改变treeview中节点的背景颜色和字体颜色

改变treeview中节点的背景颜色和字体颜色


procedure   TForm1.TreeView1CustomDrawItem(Sender:   TCustomTreeView; 
      Node:   TTreeNode;   State:   TCustomDrawState;   var   DefaultDraw:   Boolean); 
  begin 
      if   Node.Selected   then 
      begin 
            DefaultDraw:=false   ; 
            TreeView1.Canvas.Brush.Color:=clBlue; 
            TreeView1.Canvas.Font.Color:=clRed; 
            TreeView1.Canvas.FillRect(Node.DisplayRect(true)); 
            TreeView1.Canvas.Textout(Node.DisplayRect(true).Left+2, 
                                                              Node.DisplayRect(true).top+2, 
                                                              node.text); 
      end 
  end;