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

TreeFilterEdit: Improve TTreeFilterBranch.RemoveChildrenData logic. Issue #25259, patch from Cyrax

Browse Source 
git-svn-id: trunk@43344 -
This commit is contained in:
juha 2013-10-30 22:55:22 +00:00
parent 75b3da80b2
commit 95fe4e6ff1
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/lazcontrols/treefilteredit.pas
View File

@ -347,17 +347,21 @@ Begin
end;
procedure TTreeFilterBranch.RemoveChildrenData(ARootNode : TTreeNode);
Var
ANode : TTreeNode;
Begin
ANode := NIL;
FreeNodeData(ARootNode);
If Assigned(ARootNode) Then
ANode := ARootNode.GetFirstChild;
While Assigned(ANode) Do Begin
procedure ProcessSubNodes(ANode : TTreeNode);
Var
BNode : TTreeNode;
begin
FreeNodeData(ANode);
ANode := ANode.GetNextSibling;
BNode := ANode.GetFirstChild;
While Assigned(BNode) Do Begin
ProcessSubNodes(BNode);
BNode := BNode.GetNextSibling;
end;
end;
Begin
ProcessSubNodes(ARootNode);
end;
procedure TTreeFilterBranch.Clear;