paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 07:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix for bug #864 by Andrew Haines

Browse Source 
git-svn-id: trunk@7070 -
This commit is contained in:
marc 2005-04-12 21:06:00 +00:00
parent 151ef8e01a
commit d926947285
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -133,11 +133,9 @@ begin
AnAdjustment^.upper:=ACustomSpinEdit.MaxValue; AnAdjustment^.upper:=ACustomSpinEdit.MaxValue;
gtk_adjustment_changed(AnAdjustment); gtk_adjustment_changed(AnAdjustment);
end; end;
gtk_spin_button_set_digits(SpinWidget,ACustomSpinEdit.Decimal_Places); gtk_spin_button_set_digits(SpinWidget, ACustomSpinEdit.Decimal_Places);
gtk_spin_button_set_value(SpinWidget,ACustomSpinEdit.Value); gtk_spin_button_set_value(SpinWidget,ACustomSpinEdit.Value);
//gtk_object_set_data(PGtkObject(SpinWidget), 'Empty', AnAdjustment^.step_increment := ACustomSpinEdit.Climb_Rate;
// Pointer(GtkValueEmpty[ACustomSpinEdit.ValueEmpty]));
SpinWidget^.climb_rate:=ACustomSpinEdit.Climb_Rate;
end; end;
initialization initialization