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

lcl: TTreeNode: increase Owner.Count on add, not on create, Delphi compatibility, bug #24477

Browse Source 
git-svn-id: trunk@56483 -
This commit is contained in:
mattias 2017-11-24 16:55:03 +00:00
parent c9af6fa9ba
commit a1d1851470
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/treeview.inc
View File

@ -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