items suchen in TreeView

[huberlix]

Also das mit der CaseAnweisung funktioniert nicht. StringTypen sind da nicht erlaubt.
Jetzt hab ich mal ein Treeview mit den Werten A,B,C und D vorbelegt, und mit if/then nach ABCD abgefragt. Der Baum wird vierfarbig gezeichnet.
Hier die Prozedur:

Code:

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  If node.Text= 'A' then
    treeview1.canvas.font.Color:=clGreen
  else
  If node.Text= 'B' then
    treeview1.canvas.font.Color:=clred
  else
  If node.Text= 'C' then
    treeview1.canvas.font.Color:=clyellow
  else
  If node.Text= 'D' then
    treeview1.canvas.font.Color:=clblue ;

end;