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

Qt: trial to fix #19387

Browse Source 
git-svn-id: trunk@30829 -
This commit is contained in:
zeljko 2011-05-20 14:53:22 +00:00
parent aa66c023e4
commit 7e730027e3
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/qt/qtwscomctrls.pp
View File

@ -294,6 +294,10 @@ var
end;
begin
if not WSCheckHandleAllocated(ATrackBar, 'ApplyChanges') then
Exit;
QtTrackBar := TQtTrackBar(ATrackBar.Handle);
QtTrackBar.BeginUpdate;
@ -335,6 +339,9 @@ class function TQtWSTrackBar.GetPosition(const ATrackBar: TCustomTrackBar): int
var
QtTrackBar: TQtTrackBar;
begin
Result := 0;
if not WSCheckHandleAllocated(ATrackBar, 'GetPosition') then
Exit;
QtTrackBar := TQtTrackBar(ATrackBar.Handle);
Result := QtTrackBar.getSliderPosition;
end;
@ -343,6 +350,8 @@ class procedure TQtWSTrackBar.SetPosition(const ATrackBar: TCustomTrackBar; cons
var
QtTrackBar: TQtTrackBar;
begin
if not WSCheckHandleAllocated(ATrackBar, 'SetPosition') then
Exit;
QtTrackBar := TQtTrackBar(ATrackBar.Handle);
QtTrackBar.BeginUpdate;
try