paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 03:57:16 +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); class procedure TGtkWSScrollBar.SetParams(const AScrollBar: TCustomScrollBar);
var var
Widget : PGtkWidget; Adjustment: PGtkAdjustment;
begin begin
with AScrollBar do with AScrollBar do
begin begin
//set properties for the range //set properties for the range
Widget := GTK_WIDGET(gtk_range_get_adjustment (GTK_RANGE(Pointer(Handle)))); Adjustment := gtk_range_get_adjustment (GTK_RANGE(Pointer(Handle)));
GTK_ADJUSTMENT(Widget)^.lower := Min; Adjustment^.lower := Min;
GTK_ADJUSTMENT(Widget)^.Upper := Max; Adjustment^.Upper := Max;
GTK_ADJUSTMENT(Widget)^.Value := Position; Adjustment^.Value := Position;
GTK_ADJUSTMENT(Widget)^.step_increment := SmallChange; Adjustment^.step_increment := SmallChange;
GTK_ADJUSTMENT(Widget)^.page_increment := LargeChange; Adjustment^.page_increment := LargeChange;
end; end;
end; end;