anchor.diff:        FValue      := FMinValue;
         FEdit.Value := FValue;
       end;
  -    EnableButtons;
     end;
   end;
   
  
positive.code:     procedure   SetArrowUpColor(const AValue: Tfpgcolor);
      procedure   SetArrowDownColor(const AValue: Tfpgcolor);
      procedure   SetSpeedUp(const AValue: integer);
      procedure   ButtonUpPaint(Sender: TObject);
      procedure   ButtonDownPaint(Sender: TObject);
      property    ButtonsBackgroundColor: Tfpgcolor read GetButtonsBackgroundColor write SetButtonsBackgroundColor default clButtonFace;
  
negative.code: 
  procedure TfpgSpinEditFloat.EnableButtons;
  begin
    FButtonUp.Enabled := True;
    FButtonDown.Enabled := True;
    if IsMaxLimitReached then
      FButtonUp.Enabled := False
    else
      if IsMinLimitReached then
        FButtonDown.Enabled := False;
  end;
  
  function TfpgSpinEditFloat.IsMinLimitReached: Boolean;
  begin
    Result := FValue = FMinValue;
  end;
  
  function TfpgSpinEditFloat.IsMaxLimitReached: Boolean;
  begin
    Result := FValue = FMaxValue;
  end;
  
  function TfpgSpinEditFloat.GetEditBackgroundColor: TfpgColor;
  