更改TreeView节点颜色

Question

有没有办法改变TTreeView中节点的颜色？我想用深色来着色我的树形视图，但是我看不到节点。以下是需要翻译的内容：

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

- Remus Rigo

---

请说明您正在使用哪个 Delphi 版本。我刚刚检查了一下，在 Delphi 7 中，除了颜色属性之外，“Kornel”提到的属性都不存在。 - Edelcom

Answer 1

您只想更改行颜色并不容易明显。 无论如何，API中都有相关信息;

uses
  commctrl;

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

- Sertac Akyuz

Answer 2

也许你可以使用TTreeView的OnCustomDrawItem事件：

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;

- SimaWB

---

这会实现什么？ 这将绘制具有黑色前景和黑色背景的项目。Remus只是询问是否只涂树线，对吗？ - Edelcom

是的，没错。我只想改变树线的颜色。 - Remus Rigo