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

qt: use sliderPosition for TrackBar instead of value

Browse Source 
git-svn-id: trunk@15620 -
This commit is contained in:
paul 2008-06-30 07:16:41 +00:00
parent 9b8ffbea8c
commit d07764681a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -371,7 +371,7 @@ begin
QtTrackBar.setPageStep(ATrackBar.PageSize);
if QtTrackBar.getTickInterval <> ATrackBar.Frequency then
QtTrackBar.setTickInterval(ATrackBar.Frequency);
if QtTrackBar.getValue <> ATrackBar.Position then
if QtTrackBar.getSliderPosition <> ATrackBar.Position then
QtTrackBar.setSliderPosition(ATrackBar.Position);
if QtTrackBar.getOrientation <> TrackBarOrientationToQtOrientationMap[ATrackBar.Orientation] then
@ -390,7 +390,7 @@ var
QtTrackBar: TQtTrackBar;
begin
QtTrackBar := TQtTrackBar(ATrackBar.Handle);
Result := QtTrackBar.getValue;
Result := QtTrackBar.getSliderPosition;
end;
class procedure TQtWSTrackBar.SetPosition(const ATrackBar: TCustomTrackBar; const NewPosition: integer);
@ -398,7 +398,7 @@ var
QtTrackBar: TQtTrackBar;
begin
QtTrackBar := TQtTrackBar(ATrackBar.Handle);
QtTrackBar.setValue(NewPosition);
QtTrackBar.setSliderPosition(NewPosition);
end;
{ TQtWSProgressBar }