paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 05:58:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: ChildSizing, fix calculating MaxWidth/Heigh for cell. If any chell in the Column(or Row in case of Height) has a Constraint it will apply (even if other are not constraint). If several have MaxWidth, the smallest MaxWidth applies.

Browse Source
This commit is contained in:
Martin 2024-03-24 20:13:12 +01:00
parent defe854704
commit 1f35f2f89b
1 changed files with 8 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lcl/include/wincontrol.inc
View File

@ -1641,13 +1641,10 @@ var
CurChild: TAutoSizeBox;
CurBorder: integer;
LastChild: TAutoSizeBox;
HasChildWithoutMax: array [TAutoSizeBoxOrientation] of Boolean;
begin
if DoInit then InitSums;
Orthogonal:=SizeBoxOrthogonal[Orientation];
if ChildCount[Orientation]>0 then begin
HasChildWithoutMax[asboHorizontal] := False;
HasChildWithoutMax[asboVertical] := False;
for i:=0 to ChildCount[Orientation]-1 do begin
CurChild:=Children[Orientation][i];
@ -1662,29 +1659,18 @@ begin
inc(MinimumSize[Orientation],CurBorder);
inc(PreferredSize[Orientation],CurBorder);
// add item size in Orientation
if not HasChildWithoutMax[Orientation] then begin
if CurChild.MaximumSize[Orientation]>0 then begin
inc(MaximumSize[Orientation],CurChild.MaximumSize[Orientation]);
end
else begin
MaximumSize[Orientation]:=0;
HasChildWithoutMax[Orientation] := True;
end;
end;
if CurChild.MaximumSize[Orientation]>0 then
inc(MaximumSize[Orientation],CurChild.MaximumSize[Orientation]);
inc(MinimumSize[Orientation],CurChild.MinimumSize[Orientation]);
inc(PreferredSize[Orientation],CurChild.PreferredSize[Orientation]);
// maximize in Orthogonal
if not HasChildWithoutMax[Orthogonal] then begin
if CurChild.MaximumSize[Orthogonal]>0 then begin
MaximumSize[Orthogonal]:=Max(MaximumSize[Orthogonal],
CurChild.MaximumSize[Orthogonal]);
end
else begin
MaximumSize[Orthogonal]:=0;
HasChildWithoutMax[Orthogonal] := True;
end;
end;
if MaximumSize[Orthogonal] = 0 then
MaximumSize[Orthogonal] := CurChild.MaximumSize[Orthogonal]
else
if CurChild.MaximumSize[Orthogonal] > 0 then
MaximumSize[Orthogonal]:=Min(MaximumSize[Orthogonal],
CurChild.MaximumSize[Orthogonal]);
MinimumSize[Orthogonal]:=Max(MinimumSize[Orthogonal],
CurChild.MinimumSize[Orthogonal]);
PreferredSize[Orthogonal]:=Max(PreferredSize[Orthogonal],