paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-09 12:18:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/FlowPanel: Fix TFlowPanel.AutoSize calculation, excludes hidden controls now. Issue #40137, patch by Henner Drewes.

Browse Source
This commit is contained in:
wp_xyz 2023-02-26 16:46:50 +01:00
parent b61d4e63a1
commit 6cc8ef7446
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customflowpanel.inc
View File

@ -398,6 +398,8 @@ begin
for I := 0 to ControlCount-1 do for I := 0 to ControlCount-1 do
begin begin
xControl := FControlList.Items[I].Control; xControl := FControlList.Items[I].Control;
if not xControl.Visible then
Continue;
if FFlowStyle in [fsLeftRightTopBottom, fsRightLeftTopBottom, fsLeftRightBottomTop, fsRightLeftBottomTop] then if FFlowStyle in [fsLeftRightTopBottom, fsRightLeftTopBottom, fsLeftRightBottomTop, fsRightLeftBottomTop] then
begin begin
PreferredHeight := Max(PreferredHeight, PreferredHeight := Max(PreferredHeight,