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

LCL: small improvement to TWinControl.RealizeBoundsRecursive. Issue #20490, patch from Hans-Peter Diettrich

Browse Source 
git-svn-id: trunk@32901 -
This commit is contained in:
juha 2011-10-15 10:04:55 +00:00
parent 8d2cd60d3f
commit 8b882f0d76
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/wincontrol.inc
View File

@ -8259,7 +8259,7 @@ procedure TWinControl.RealizeBoundsRecursive;
var
i: Integer;
OldRealizing: boolean;
AWinControl: TWinControl;
AControl: TControl;
begin
if not HandleAllocated then exit;
OldRealizing:=wcfRealizingBounds in FWinControlFlags;
@ -8267,9 +8267,9 @@ begin
try
if FControls<>nil then begin
for i:=0 to FControls.Count-1 do begin
AWinControl:=TWinControl(FControls[i]);
if (AWinControl is TWinControl) then
TWinControl(FControls[i]).RealizeBoundsRecursive;
AControl:=FControls[i];
if (AControl is TWinControl) then
TWinControl(AControl).RealizeBoundsRecursive;
end;
end;
RealizeBounds;