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

fixed TTreeNode deletion by Vincent

Browse Source 
git-svn-id: trunk@4865 -
This commit is contained in:
mattias 2003-11-29 20:13:45 +00:00
parent e7b266aa8c
commit 0c7ffd188b
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/include/treeview.inc
View File

@ -201,7 +201,11 @@ begin
FDeleting := True;
HasChildren := false;
Unbind;
if Owner<>nil then dec(Owner.FCount);
if Owner<>nil then begin
if Owner.Owner<>nil then
Owner.Owner.Delete(self);
dec(Owner.FCount);
end;
{if Owner.Owner.FLastDropTarget = Self then
Owner.Owner.FLastDropTarget := nil;
Node := Parent;
@ -1728,9 +1732,10 @@ end;
procedure TTreeNodes.Delete(Node: TTreeNode);
begin
if Owner<>nil then
//if (Node.ItemId = nil) then
Owner.Delete(Node);
//Calling Owner.Delete is done in by TTreeNode.Destroy
//if Owner<>nil then
////if (Node.ItemId = nil) then
// Owner.Delete(Node);
Node.Delete;
end;