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

lcl: don't call Resize for invisible controls in DoAllAutosize

Browse Source 
git-svn-id: trunk@28676 -
This commit is contained in:
paul 2010-12-11 05:21:19 +00:00
parent 4b168f8fd6
commit 35ffa66fe0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/control.inc
View File

@ -2424,7 +2424,7 @@ procedure TControl.DoAllAutoSize;
begin
AWinControl := TWinControl(AControl);
for i := 0 to AWinControl.ControlCount - 1 do
if not CallAllOnResize(AWinControl.Controls[i]) then Exit;
if AWinControl.Controls[i].IsControlVisible and not CallAllOnResize(AWinControl.Controls[i]) then Exit;
end;
AControl.Resize;
Result := True;