From a1d1851470def97893f045c74c76d8ea9ea6821e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 24 Nov 2017 16:55:03 +0000
Subject: [PATCH] lcl: TTreeNode: increase Owner.Count on add, not on create,
 Delphi compatibility, bug #24477

git-svn-id: trunk@56483 -
---
 lcl/include/treeview.inc | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc
index cfceb5f7d7..2034ce8a4c 100644
--- a/lcl/include/treeview.inc
+++ b/lcl/include/treeview.inc
@@ -306,7 +306,6 @@ begin
   FOwner := AnOwner;
   FSubTreeCount := 1;
   FIndex := -1;
-  if Owner<>nil then inc(Owner.FCount);
 end;
 
 destructor TTreeNode.Destroy;
@@ -339,9 +338,7 @@ begin
   HasChildren := false;
   // unbind all references
   Unbind;
-
   if Assigned(Owner) then begin
-    dec(Owner.FCount);
     if FStates * [nsSelected, nsMultiSelected] <> [] then
       Owner.FSelection.Remove(Self);
   end;
@@ -1280,6 +1277,8 @@ begin
   {$ENDIF}
   if not (nsBound in FStates) then exit;
   Exclude(FStates,nsBound);
+  if Owner<>nil then dec(Owner.FCount);
+
   // remove single select
   Selected:=false;
   // invalidate caches of TreeView and if root item, remove from TreeView.Items
@@ -1396,6 +1395,7 @@ begin
     if Owner<>nil then
       Owner.ClearCache;
     Include(FStates,nsBound);
+    if Owner<>nil then inc(Owner.FCount);
     // set parent
     if AddMode in [taAdd, taAddFirst] then
       FParent:=ANode