modifier la couleur du nœud treeview

Question

Y a-t-il un moyen de changer la couleur des nœuds dans un TTreeView? Je veux colorier ma treeview avec une couleur foncée et je ne peux pas voir les nœuds.

alt text http://rigo.ro/temp/ChangeTreeViewNodeColor.png

Answer 1

Il est évident que pas facilement vous ne vouliez changer la couleur de la ligne. De toute façon, il y a un message pour cela dans l'API;

uses 
    commctrl; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    SendMessage(TreeView1.Handle, TVM_SETLINECOLOR, 0, ColorToRGB(clYellow)); 
end; 

Answer 2

vous pouvez peut-être utiliser OnCustomDrawItem cas de TTreeView:

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView; 
    Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean); 
begin 
    with Sender as TCustomTreeView do 
    begin 
    Canvas.Brush.Color := clBlack; 
    Canvas.Font.Color := clBlack 
    end; 
end;