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

LCL-GTK3: Fix the initial position of TTrackbar. Issue #39092, patch by Anton Kavalenka.

Browse Source 
git-svn-id: trunk@65326 -
This commit is contained in:
juha 2021-06-29 13:30:58 +00:00
parent c16bbd6e94
commit 56a26420ad
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/gtk3/gtk3wscomctrls.pp
View File

@ -267,11 +267,14 @@ begin
ATrack := TGtk3TrackBar(ATrackBar.Handle); ATrack := TGtk3TrackBar(ATrackBar.Handle);
APt.X := ATrackBar.Min; APt.X := ATrackBar.Min;
APt.Y := ATrackBar.Max; APt.Y := ATrackBar.Max;
ATrack.BeginUpdate;
ATrack.Range := APt; ATrack.Range := APt;
ATrack.Position:=ATrackBar.Position;
ATrack.SetStep(ATrackBar.Frequency, ATrackBar.PageSize); ATrack.SetStep(ATrackBar.Frequency, ATrackBar.PageSize);
ATrack.SetScalePos(ATrackBar.ScalePos); ATrack.SetScalePos(ATrackBar.ScalePos);
ATrack.SetTickMarks(ATrackbar.TickMarks, ATrackBar.TickStyle); ATrack.SetTickMarks(ATrackbar.TickMarks, ATrackBar.TickStyle);
ATrack.Reversed := ATrackBar.Reversed; ATrack.Reversed := ATrackBar.Reversed;
ATrack.EndUpdate;
end; end;
class function TGtk3WSTrackBar.GetPosition(const ATrackBar: TCustomTrackBar class function TGtk3WSTrackBar.GetPosition(const ATrackBar: TCustomTrackBar