Code clean up at TWinControl.Loaded
What happens
From 'lagprogramming' on forum:
lcl/include/wincontrol.inc has procedure TWinControl.Loaded. The following patch removes the useless "if AChild=nil then ;" line. The line can be found inside the "for" loop.
diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 37346973b5..7034017b77 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -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;