paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 12:36:09 +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; end;
procedure TTreeFilterBranch.RemoveChildrenData(ARootNode : TTreeNode); procedure TTreeFilterBranch.RemoveChildrenData(ARootNode : TTreeNode);
Var
ANode : TTreeNode; procedure ProcessSubNodes(ANode : TTreeNode);
Begin Var
ANode := NIL; BNode : TTreeNode;
FreeNodeData(ARootNode); begin
If Assigned(ARootNode) Then
ANode := ARootNode.GetFirstChild;
While Assigned(ANode) Do Begin
FreeNodeData(ANode); FreeNodeData(ANode);
ANode := ANode.GetNextSibling; BNode := ANode.GetFirstChild;
While Assigned(BNode) Do Begin
ProcessSubNodes(BNode);
BNode := BNode.GetNextSibling;
end;
end; end;
Begin
ProcessSubNodes(ARootNode);
end; end;
procedure TTreeFilterBranch.Clear; procedure TTreeFilterBranch.Clear;