changer la couleur des nœuds de l'arborescence

Question

Existe-t-il un moyen de changer la couleur des nœuds dans un TTreeView. Je veux colorer mon treeview avec une couleur sombre et alors je ne peux pas voir les noeuds.

texte alternatif http://rigo.ro/temp/ChangeTreeViewNodeColor.png

Answer 1

Il n'est pas évident que vous vouliez seulement 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 l'événement OnCustomDrawItem 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;