CodedDataTreeView 怎么实现更改选择节点颜色？**

lanbaoshi

CodedDataTreeView 怎么实现更改选择节点颜色?

jiahaiming

http://topic.csdn.net/t/20040513/16/3063844.html

zfang

请楼主参考
声明一个事件
    procedure CodeDataTreeViewCustomDrawItem(Sender: TCustomTreeView;Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);

该事件的实现代码
procedure TTreeViewJDYS.CodeDataTreeViewCustomDrawItem(Sender: TCustomTreeView;Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
    if Node.Selected then
    begin
      CodedDataTreeView1.Canvas.Font.Color := Business.System.Graphics.clRed;
      CodedDataTreeView1.Canvas.Font.Size := 12;
      CodedDataTreeView1.Canvas.Font.Name := '隶书';
    end
    else
    begin
      CodedDataTreeView1.Canvas.Font.Color := Business.System.Graphics.clblack;
      CodedDataTreeView1.Canvas.Font.Size := 9;
      CodedDataTreeView1.Canvas.Font.Name := '宋体';
    end;
end;

加载该事件到CodedDataTreeView1
  TTreeView(CodedDataTreeView1).OnCustomDrawItem := CodeDataTreeViewCustomDrawItem;