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

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

Browse Source 
git-svn-id: trunk@32902 -
This commit is contained in:
juha 2011-10-15 10:26:09 +00:00
parent 8b882f0d76
commit 1b25411dc1
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;
AControl: TControl;
AWinControl: TWinControl;
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
AControl:=FControls[i];
if (AControl is TWinControl) then
TWinControl(AControl).RealizeBoundsRecursive;
AWinControl:=TWinControl(FControls[i]);
if (AWinControl is TWinControl) then
TWinControl(FControls[i]).RealizeBoundsRecursive;
end;
end;
RealizeBounds;