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

gtk2 intf: fixed TScrollBar

Browse Source 
git-svn-id: trunk@9473 -
This commit is contained in:
mattias 2006-06-22 02:49:18 +00:00
parent 9b52c9bc1d
commit 2d930cf78b
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/gtk/gtkwsstdctrls.pp
View File

@ -314,17 +314,17 @@ end;
class procedure TGtkWSScrollBar.SetParams(const AScrollBar: TCustomScrollBar);
var
Widget : PGtkWidget;
Adjustment: PGtkAdjustment;
begin
with AScrollBar do
begin
//set properties for the range
Widget := GTK_WIDGET(gtk_range_get_adjustment (GTK_RANGE(Pointer(Handle))));
GTK_ADJUSTMENT(Widget)^.lower := Min;
GTK_ADJUSTMENT(Widget)^.Upper := Max;
GTK_ADJUSTMENT(Widget)^.Value := Position;
GTK_ADJUSTMENT(Widget)^.step_increment := SmallChange;
GTK_ADJUSTMENT(Widget)^.page_increment := LargeChange;
Adjustment := gtk_range_get_adjustment (GTK_RANGE(Pointer(Handle)));
Adjustment^.lower := Min;
Adjustment^.Upper := Max;
Adjustment^.Value := Position;
Adjustment^.step_increment := SmallChange;
Adjustment^.page_increment := LargeChange;
end;
end;