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

LCL: TWinControl.DoAllAutoSize: do not call UpdateShowing for form if already running, bug #17770

Browse Source 
git-svn-id: trunk@28089 -
This commit is contained in:
mattias 2010-11-05 08:25:59 +00:00
parent c708840d05
commit 88875f45c2
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/include/wincontrol.inc
View File

@ -3428,7 +3428,7 @@ procedure TWinControl.DoAllAutoSize;
end;
procedure UpdateShowingRecursive(AWinControl: TWinControl;
OnlyChilds: boolean);
OnlyChildren: boolean);
var
i: Integer;
begin
@ -3438,7 +3438,7 @@ procedure TWinControl.DoAllAutoSize;
if TObject(AWinControl.FControls[i]) is TWinControl then
UpdateShowingRecursive(TWinControl(AWinControl.FControls[i]),false);
// then make the control visible
if not OnlyChilds and AWinControl.HandleObjectShouldBeVisible and not AWinControl.Showing then
if not OnlyChildren and AWinControl.HandleObjectShouldBeVisible and not AWinControl.Showing then
AWinControl.UpdateShowing;
end;
@ -3511,11 +3511,15 @@ begin
{$IFDEF VerboseAllAutoSize}
DebugLn(['TWinControl.DoAllAutoSize UPDATESHOWING ',DbgSName(Self),' lclbounds=',dbgs(BoundsRect)]);
{$ENDIF}
Include(FWinControlFlags, wcfUpdateShowing);
try
UpdateShowingRecursive(Self, False);
finally
Exclude(FWinControlFlags, wcfUpdateShowing);
if not (wcfUpdateShowing in FWinControlFlags) then
begin
Include(FWinControlFlags, wcfUpdateShowing);
try
if HandleObjectShouldBeVisible and not Showing then
UpdateShowing;
finally
Exclude(FWinControlFlags, wcfUpdateShowing);
end;
end;
end;