items suchen in TreeView

[huberlix]

Code:

Procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);

begin

  case node.Text of

     'AAA': treeview1.canvas.font.Color:=clGreen ;
     ...
     'BBB': treeview1.canvas.font.Color:=clred ;
  end;

.........
.........

nicht getestet!
Gruß,Bernd