Hallo Michael,
du könntest den Baum auch
rückwärts durchlaufen (
GetLast/GetPrevious) und bei jedem Knoten die Sichtbarkeit in Abhängigkeit des Knotentyps festlegen:
Delphi-Quellcode:
Node := treeAccounts.GetLast;
while Node <> nil do
begin
Data := treeAccounts.GetNodeData(Node);
if "Node ist ein Ordnerknoten" then
treeAccounts.IsVisible[Node] := Assigned(treeAccounts.GetFirstVisibleChild(Node))
else
treeAccounts.IsVisible[Node] := MatchStr(Data^.Caption, Text, False);
Node := treeAccounts.GetPrevious(Node);
end;
Die Bestimmung des Knotentyps musst du noch einbauen. Vergiss auch das fehlende
treeAccounts.EndUpdate nicht...
Gruß Hawkeye