paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 03:50:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk interface: improved rounding of floatspinedit value, fixes issue #12006

Browse Source 
git-svn-id: trunk@19826 -
This commit is contained in:
vincents 2009-05-06 14:17:30 +00:00
parent fdb51eba4c
commit df85c2d5c1
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk/gtkwsspin.pp
View File

@ -107,7 +107,10 @@ end;
class function TGtkWSCustomFloatSpinEdit.GetValue(
const ACustomFloatSpinEdit: TCustomFloatSpinEdit): Double;
begin
Result:=gtk_spin_button_get_value_as_float(PGtkSpinButton(ACustomFloatSpinEdit.Handle));
Result := gtk_spin_button_get_value_as_float(PGtkSpinButton(ACustomFloatSpinEdit.Handle));
// explicitly round to number of digits,
// to prevent rounding errors from single to double
Result:= RoundTo(Result, - ACustomFloatSpinEdit.DecimalPlaces);
end;
class procedure TGtkWSCustomFloatSpinEdit.SetSelStart(const ACustomEdit: TCustomEdit;