diff options
| author | jean-marc <jean-marc@localhost.(none)> | 2009-07-29 21:30:23 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-07-30 10:09:29 +0200 |
| commit | cc24e1ed809ae7d099affdd3e76d0534f2fa3faf (patch) | |
| tree | 20047471c37b5d7aa1162232ec186ab29b72adce /src | |
| parent | 271db17a3e8b3eb1d9404b6a66e76ebd1e7b2a25 (diff) | |
| download | fpGUI-cc24e1ed809ae7d099affdd3e76d0534f2fa3faf.tar.xz | |
Fix bug for SpinEditFloat MinValue setting
Signed-off-by: Graeme Geldenhuys <graeme@mastermaths.co.za>
Diffstat (limited to 'src')
| -rw-r--r-- | src/gui/fpg_spinedit.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/gui/fpg_spinedit.pas b/src/gui/fpg_spinedit.pas index b7a85dbb..49f09b96 100644 --- a/src/gui/fpg_spinedit.pas +++ b/src/gui/fpg_spinedit.pas @@ -563,7 +563,7 @@ end; procedure TfpgSpinEditFloat.SetMinValue(const AValue: extended); begin - if (FMinValue <> AValue) and (AValue < FMinValue) then + if (FMinValue <> AValue) and (AValue < FMaxValue) then begin FMinValue := AValue; if FValue < FMinValue then @@ -806,7 +806,7 @@ begin begin if FValue + FTempIncrement <= FMaxValue then begin - Value := FValue + FTempIncrement; + FValue := FValue + FTempIncrement; FEdit.Value := FValue; if FSteps <= FSpeedUpSteps then Inc(FSteps); |