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

Gtk2: fixed crash under 64bit when changing orientation of trackbar.

Browse Source 
git-svn-id: trunk@30847 -
This commit is contained in:
zeljko 2011-05-22 09:21:39 +00:00
parent 5306a46d58
commit 2a26b86c4c
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -217,6 +217,7 @@ type
class procedure ApplyChanges(const ATrackBar: TCustomTrackBar); override; class procedure ApplyChanges(const ATrackBar: TCustomTrackBar); override;
class function GetPosition(const ATrackBar: TCustomTrackBar): integer; override; class function GetPosition(const ATrackBar: TCustomTrackBar): integer; override;
class procedure SetPosition(const ATrackBar: TCustomTrackBar; const NewPosition: integer); override; class procedure SetPosition(const ATrackBar: TCustomTrackBar; const NewPosition: integer); override;
class procedure SetOrientation(const ATrackBar: TCustomTrackBar; const AOrientation: TTrackBarOrientation); override;
end; end;
{ TGtk2WSCustomTreeView } { TGtk2WSCustomTreeView }
@ -376,6 +377,19 @@ begin
Dec(WidgetInfo^.ChangeLock); Dec(WidgetInfo^.ChangeLock);
end; end;
class procedure TGtk2WSTrackBar.SetOrientation(
const ATrackBar: TCustomTrackBar; const AOrientation: TTrackBarOrientation);
begin
if not WSCheckHandleAllocated(ATrackBar, 'SetOrientation') then
Exit;
ATrackBar.Hide;
try
RecreateWnd(ATrackBar);
finally
ATrackBar.Show;
end;
end;
{ TGtk2WSProgressBar } { TGtk2WSProgressBar }
class procedure TGtk2WSProgressBar.UpdateProgressBarText(const AProgressBar: TCustomProgressBar); class procedure TGtk2WSProgressBar.UpdateProgressBarText(const AProgressBar: TCustomProgressBar);