paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 15:39:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: clean up

Browse Source 
git-svn-id: trunk@46755 -
This commit is contained in:
mattias 2014-11-04 22:56:45 +00:00
parent 349fd28c87
commit 15749008b6
1 changed files with 1 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/anchordocking/anchordocking.pas
View File

@ -4342,27 +4342,11 @@ begin
Child.AnchorSide[Side].Assign(AnchorSide[Side]); Child.AnchorSide[Side].Assign(AnchorSide[Side]);
end; end;
end; end;
{ was :
i:=0;
while i<ControlCount-1 do begin
Child:=Controls[i];
if Child.Owner=Self then
inc(i)
else begin
Child.Parent:=ParentSite;
Child.SetBounds(Child.Left+Left,Child.Top+Top,Child.Width,Child.Height);
for Side:=Low(TAnchorKind) to High(TAnchorKind) do begin
if Child.AnchorSide[Side].Control=Self then
Child.AnchorSide[Side].Assign(AnchorSide[Side]);
end;
end;
end;
}
Parent:=nil; Parent:=nil;
DockMaster.NeedFree(Self); DockMaster.NeedFree(Self);
finally finally
EnableAutoSizing;
ParentSite.EndUpdateLayout; ParentSite.EndUpdateLayout;
// not needed, because this site is freed: EnableAutoSizing;
end; end;
end; end;