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

lcl: LDockTree: remove anchors when we remove control from the tree

Browse Source 
git-svn-id: trunk@20094 -
This commit is contained in:
paul 2009-05-21 08:10:41 +00:00
parent 071f4c60e7
commit 05c0578025
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/ldocktree.pas
View File

@ -1367,6 +1367,7 @@ begin
begin
ParentZone := RemoveZone.Parent as TLazDockZone;
RemoveZone.FreeSubComponents;
BreakAnchors(RemoveZone);
if ParentZone <> nil then
ParentZone.Remove(RemoveZone);
RemoveZone.Free;