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

Gtk2: fixed vertical TTrackBar behaviour, start value should be at bottom not at top. fixes #17703

Browse Source 
git-svn-id: trunk@27846 -
This commit is contained in:
zeljko 2010-10-25 06:24:50 +00:00
parent 867da8c06b
commit e00ff67049
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/interfaces/gtk2/gtk2wscomctrls.pp
View File

@ -279,7 +279,11 @@ begin
if (Orientation = trHorizontal) then
Widget := gtk_hscale_new(Adjustment)
else
begin
Widget := gtk_vscale_new(Adjustment);
if not gtk_range_get_inverted(PGtkRange(Widget)) then
gtk_range_set_inverted(PGtkRange(Widget), True);
end;
gtk_scale_set_digits(PGtkScale(Widget), 0);
end;
@ -307,9 +311,22 @@ var
begin
if not WSCheckHandleAllocated(ATrackBar, 'ApplyChanges') then
Exit;
with ATrackBar do
begin
wHandle := Handle;
if Orientation = trHorizontal then
begin
if gtk_range_get_inverted(PGtkRange(wHandle)) then
gtk_range_set_inverted(PGtkRange(wHandle), False);
end else
begin
if not gtk_range_get_inverted(PGtkRange(wHandle)) then
gtk_range_set_inverted(PGtkRange(wHandle), False);
end;
Adjustment := gtk_range_get_adjustment(GTK_RANGE(Pointer(wHandle)));
// min >= max causes crash
Adjustment^.lower := Min;