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

LCL-GTK3: Fix ScrollBox. Issue #39694, patch by Anton Kavalenka.

Browse Source
This commit is contained in:
Juha 2022-04-07 00:30:59 +03:00
parent 85ce787c8d
commit 483102e819
1 changed files with 28 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3555,11 +3555,13 @@ const
POLICY: array[BOOLEAN] of TGTKPolicyType = (2, 0); // GTK_POLICY_NEVER, GTK_POLICY_ALWAYS);
var
Adjustment: PGtkAdjustment;
Adjustment,hadj,vadj: PGtkAdjustment;
AWidget: TGtk3Widget;
ACenter:PGtkWidget;
ARange: PGtkRange;
AScrollWin: PGtkScrolledWindow;
IsScrollbarVis: Boolean;
w,h:gint;
begin
Result := 0;
if not IsValidHandle(Handle) then
@ -3586,18 +3588,41 @@ begin
DebugLn('ERROR: TGtk3WidgetSet.SetScrollInfo: Wrong class extracted for scrollwin ',dbgsName(TGtk3Widget(Handle).LCLObject));
AScrollWin := nil;
end;
if Assigned(AScrollWin) then
begin
hadj := AScrollWin^.get_hadjustment;
vadj := AScrollWin^.get_vadjustment;
end else
begin
hadj:=nil;
vadj:=nil;
end;
end;
case SBStyle of
SB_Horz:
begin
if not Assigned(Adjustment) and Assigned(AScrollWin) then
Adjustment := AScrollWin^.get_hadjustment;
begin
Adjustment := hadj;
if (ScrollInfo.fMask and SIF_RANGE) <> 0 then
begin
ACenter:=AWidget.GetContainerWidget;
Acenter^.set_size_request(ScrollInfo.nMax - ScrollInfo.nMin,round(vadj^.upper));
end;
end;
end;
SB_Vert:
begin
if not Assigned(Adjustment) and Assigned(AScrollWin) then
Adjustment := AScrollWin^.get_vadjustment;
begin
Adjustment := vadj;
if (ScrollInfo.fMask and SIF_RANGE) <> 0 then
begin
ACenter:=AWidget.GetContainerWidget;
Acenter^.set_size_request(round(hadj^.upper),ScrollInfo.nMax - ScrollInfo.nMin);
end;
end;
end;
SB_CTL:
begin