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

LCL: invalidatepreferredsize for self in CreateWnd

Browse Source 
git-svn-id: trunk@26869 -
This commit is contained in:
mattias 2010-07-28 10:45:19 +00:00
parent 3d89257182
commit f62c482f58
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/wincontrol.inc
View File

@ -6820,11 +6820,11 @@ begin
and (not (wcfClientRectNeedsUpdate in FWinControlFlags)) then
exit;
{ $IFDEF VerboseAllAutoSize}
{$IFDEF VerboseAllAutoSize}
DebugLn(['TWinControl.WMWindowPosChanged CHANGED BY INTF ',dbgsname(Self),' Message=',NewLeft,',',NewTop,',',NewWidth,'x',NewHeight,
' BoundsRealized=',dbgs(FBoundsRealized),
' wcfClientRectNeedsUpdate=',wcfClientRectNeedsUpdate in FWinControlFlags]);
{ $ENDIF}
{$ENDIF}
TopParent:=GetTopParent;
if (TopParent is TWinControl)
@ -7256,6 +7256,7 @@ begin
Exclude(FWinControlFlags, wcfCreatingChildHandles);
end;
InvalidatePreferredSize;
if FControls<>nil then
for i:=0 to FControls.Count-1 do
TControl(FControls[i]).InvalidatePreferredSize;