изменить цвет узла дерева

Question

Есть ли способ изменить цвет узлов в TTreeView. Я хочу закрасить свое дерево темным цветом, а затем не вижу узлов.

альтернативный текст http://rigo.ro/temp/ChangeTreeViewNodeColor.png

Answer 1

Нелегко понять, что вы хотели изменить только цвет линии. В любом случае, в API есть сообщение об этом;

uses
  commctrl;

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

Answer 2

возможно, вы можете использовать событие OnCustomDrawItem в 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;