paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 15:36:31 +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

20
components/lazcontrols/treefilteredit.pas
View File

@ -347,19 +347,23 @@ Begin
end; end;
procedure TTreeFilterBranch.RemoveChildrenData(ARootNode : TTreeNode); procedure TTreeFilterBranch.RemoveChildrenData(ARootNode : TTreeNode);
procedure ProcessSubNodes(ANode : TTreeNode);
Var Var
ANode : TTreeNode; BNode : TTreeNode;
Begin begin
ANode := NIL;
FreeNodeData(ARootNode);
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; end;
Begin
ProcessSubNodes(ARootNode);
end;
procedure TTreeFilterBranch.Clear; procedure TTreeFilterBranch.Clear;
Begin Begin
RemoveChildrenData(fRootNode); RemoveChildrenData(fRootNode);