items suchen in TreeView

[OLLI_T]

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