mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-29 13:10:53 +02:00
LCL Cleanup TWinControl.Loaded. Patch by lagprogramming. Issue #40209.
This commit is contained in:
parent
d2eae5b3d0
commit
f63e480295
@ -7784,7 +7784,6 @@ begin
|
||||
end;
|
||||
for i:=0 to ControlCount-1 do begin
|
||||
AChild:=Controls[i];
|
||||
if AChild=nil then ;
|
||||
AChild.FBaseParentClientSize:=LoadedClientSize;
|
||||
//DebugLn(['TWinControl.Loaded Self=',DbgSName(Self),' AChild=',AChild,' AChild.FBaseParentClientSize=',dbgs(AChild.FBaseParentClientSize)]);
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user