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

Gtk3: better guess when scrollbars are logical

Browse Source
This commit is contained in:
zeljan1 2025-03-10 13:10:05 +01:00
parent 2594469911
commit ec4ad2c184
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/gtk3/gtk3winapi.inc
View File

@ -4006,6 +4006,13 @@ var
{$IFDEF GTK3DEBUGSCROLL} {$IFDEF GTK3DEBUGSCROLL}
S: String; S: String;
{$ENDIF} {$ENDIF}
function NeedsRecalculation(const aMaxValue, aPageSize, aVisibleSize: Integer): Boolean;
begin
Result := (aMaxValue < aVisibleSize) or ((aMaxValue > aVisibleSize) and
(aPageSize < aVisibleSize div 2)) and (aMaxValue >= aPageSize);
end;
procedure UpdateAdjustment; procedure UpdateAdjustment;
var var
ATarget: gdouble; ATarget: gdouble;
@ -4239,7 +4246,7 @@ begin
R := AControl.getClientRect; R := AControl.getClientRect;
if ([wtScrollingWinControl] * AControl.WidgetType = []) and if ([wtScrollingWinControl] * AControl.WidgetType = []) and
(Scrollinfo.nMax - (R.Width - ScrollInfo.nPage) < R.Width) then NeedsRecalculation(ScrollInfo.nMax, ScrollInfo.nPage, R.Width) then
begin begin
HaveLogicalValues := True; HaveLogicalValues := True;
ChangeLogicalToAbsolute(AControl, ScrollInfo, SB_HORZ, R); ChangeLogicalToAbsolute(AControl, ScrollInfo, SB_HORZ, R);
@ -4257,7 +4264,7 @@ begin
R := AControl.getClientRect; R := AControl.getClientRect;
if ([wtScrollingWinControl] * AControl.WidgetType = []) and if ([wtScrollingWinControl] * AControl.WidgetType = []) and
(Scrollinfo.nMax - (R.Height - ScrollInfo.nPage) < R.Height) then NeedsRecalculation(ScrollInfo.nMax, ScrollInfo.nPage, R.Height) then
begin begin
HaveLogicalValues := True; HaveLogicalValues := True;
ChangeLogicalToAbsolute(AControl, ScrollInfo, SB_VERT, R); ChangeLogicalToAbsolute(AControl, ScrollInfo, SB_VERT, R);