anchor.diff:  {
       fpGUI  -  Free Pascal GUI Toolkit
   
  -    Copyright (C) 2006 - 2010 See the file AUTHORS.txt, included in this
  +    Copyright (C) 2006 - 2014 See the file AUTHORS.txt, included in this
       distribution, for details of the copyright.
   
       See the file COPYING.modifiedLGPL, included in this distribution,
  
positive.code: 
  procedure TfpgSpinEditFloat.SetMaxValue(const AValue: extended);
  begin
    if (FMaxValue <> AValue) and (AValue > FMinValue) then
    begin
      FMaxValue := AValue;
      if FValue > FMaxValue then
      begin
        FValue      := FMaxValue;
        FEdit.Value := FValue;
      end;
    end;
  end;
  
  procedure TfpgSpinEditFloat.SetMinValue(const AValue: extended);
  begin
    if (FMinValue <> AValue) and (AValue < FMaxValue) then
    begin
      FMinValue := AValue;
      if FValue < FMinValue then
      begin
        FValue      := FMinValue;
        FEdit.Value := FValue;
      end;
    end;
  end;
  
  
negative.code: 
  procedure TfpgSpinEdit.SetMaxValue(const AValue: integer);
  begin
    if (FMaxValue <> AValue) and (AValue >= FMinValue) then
    begin
      FMaxValue := AValue;
      if FValue > FMaxValue then
        FValue      := FMaxValue;
      FEdit.Value := FValue;
    end;
  end;
  
  procedure TfpgSpinEdit.SetMinValue(const AValue: integer);
  begin
    if (FMinValue <> AValue) and (AValue <= FMaxValue) then
    begin
      FMinValue := AValue;
      if FValue < FMinValue then
        FValue      := FMinValue;
      FEdit.Value := FValue;
    end;
  end;
  
  