HY!
Bernd hat völlig recht. Du musst gar nicht suchen, wenn Du das Ergebnis nur Visualisieren willst. Es reicht aus, z.B. die Variablen FSuchText_1,FSuchText_2:String entsprechend der Suchanfrage(n) zu setzen und dann mit Treeview.Invalidate ein Neuzeichnen der Baumansicht zu erzwingen.
@Bernd: Ich klau mal gerade Deinen Code:
Delphi-Quellcode:
Procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
Begin
Case node.Text of
FSuchText_1: treeview1.canvas.font.Color:=clGreen ;
FSuchText_2: treeview1.canvas.font.Color:=clred ;
end;
End;
Procedure TForm1.StartNewSearch;
Begin
FSuchText_1: Edit1.Text ;
FSuchText_2: Edit1.Text;
Treeview.Invalidate;
End;
Viele Grüsse
OLLI