改变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;
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;