| procedure
TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var
DefaultDraw: Boolean);
begin
if Node.Level=0 then
TreeView1.Canvas.Font.Color:=clRed //Couleur
du texte des noeuds principaux
else
TreeView1.Canvas.Font.Color:=clBlue; //Couleur
du texte des autres noeuds
end; |
