paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 18:39:05 +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 var
i: Integer; i: Integer;
OldRealizing: boolean; OldRealizing: boolean;
AControl: TControl; AWinControl: TWinControl;
begin begin
if not HandleAllocated then exit; if not HandleAllocated then exit;
OldRealizing:=wcfRealizingBounds in FWinControlFlags; OldRealizing:=wcfRealizingBounds in FWinControlFlags;
@ -8267,9 +8267,9 @@ begin
try try
if FControls<>nil then begin if FControls<>nil then begin
for i:=0 to FControls.Count-1 do begin for i:=0 to FControls.Count-1 do begin
AControl:=FControls[i]; AWinControl:=TWinControl(FControls[i]);
if (AControl is TWinControl) then if (AWinControl is TWinControl) then
TWinControl(AControl).RealizeBoundsRecursive; TWinControl(FControls[i]).RealizeBoundsRecursive;
end; end;
end; end;
RealizeBounds; RealizeBounds;