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

Gtk2: implemented TTrackBar.Reversed property.

Browse Source 
git-svn-id: trunk@28314 -
This commit is contained in:
zeljko 2010-11-18 10:02:59 +00:00
parent 7e8594978a
commit 4d4bcc1584
1 changed files with 4 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -279,13 +279,10 @@ 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);
gtk_range_set_inverted(PGtkRange(Widget), Reversed);
gtk_scale_set_digits(PGtkScale(Widget), 0);
end;
Result := TLCLIntfHandle(PtrUInt(Widget));
{$IFDEF DebugLCLComponents}
@ -315,17 +312,8 @@ begin
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;
if gtk_range_get_inverted(PGtkRange(wHandle)) <> Reversed then
gtk_range_set_inverted(PGtkRange(wHandle), Reversed);
Adjustment := gtk_range_get_adjustment(GTK_RANGE(Pointer(wHandle)));
// min >= max causes crash