TreeView colorir um texto com uma cor adequado

[webrodex 0]

Amigo gostaria de colorir um texto do treeview conforme o if com uma cor que eu escolher tipo assim nao sei se é assim que faz eu tentei mas nao consegui tem algo errado ?

 

 

if TreeView1.Text = 'Amigos' then (Sender as TCustomTreeView).Canvas.Font.Color:= clred;

[marcio.theis 3]

No evento OnCustomDrawItem pode fazer algo do tipo:

 

 

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);beginif Node.Text = 'Amigos' then	Sender.Canvas.Font.Color:=clred;if Node.Text = 'Contatos' then	Sender.Canvas.Font.Color:=clGreen;if Node.Text = 'Serviço' then	Sender.Canvas.Font.Color:=clYellow;end;