＋设为首页 ＋添加到收藏夹
由于程序需要，要把TreeView控件中的一些节点以不同颜色显示出来，
通过设置TreeView1.Font.color却把所有节点颜色都变了，不能达到要求，
哪位帮帮忙，在线ing......
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
with treeview1.Canvas do
begin
if cdsSelected in State then
begin
Font.Color:=clred;
Brush.Color := clwhite;
end;
end;
end;
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if cdsSelected in State then
begin
TreeView1.canvas.Brush.Color := clRed;
end;
end;
用Tcustomtreeview新建一个类，申明这些属性
