paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 20:56:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/FlowPanel: Fix AutoSize issue (issue #36514).

Browse Source 
git-svn-id: trunk@62486 -
This commit is contained in:
wp 2020-01-04 14:26:03 +00:00
parent 16a4757fa3
commit ec8029f42d
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/include/customflowpanel.inc
View File

@ -401,13 +401,22 @@ begin
begin
xControl := FControlList.Items[I].Control;
if FFlowStyle in [fsLeftRightTopBottom, fsRightLeftTopBottom, fsLeftRightBottomTop, fsRightLeftBottomTop] then
begin
PreferredHeight := Max(PreferredHeight,
xControl.BoundsRect.Bottom+xControl.BorderSpacing.Around+xControl.BorderSpacing.Bottom +
xTestRect.Bottom-xClientRect.Bottom-xTestRect.Top+xClientRect.Top)
else
xTestRect.Bottom-xClientRect.Bottom-xTestRect.Top+xClientRect.Top);
PreferredWidth := Max(PreferredWidth,
xControl.Width + xControl.BorderSpacing.AroundLeft + xControl.BorderSpacing.AroundRight
);
end else
begin
PreferredWidth := Max(PreferredWidth,
xControl.BoundsRect.Right+xControl.BorderSpacing.Around+xControl.BorderSpacing.Right +
xTestRect.Right-xClientRect.Right-xTestRect.Left+xClientRect.Left);
PreferredHeight := Max(PreferredHeight,
xControl.Height + xControl.BorderSpacing.AroundTop + xControl.BorderSpacing.AroundBottom
);
end;
end;
end;
end;