delphi TreeView修改选中的节点的颜色和背景

时间：2014-08-01 10:33:01 阅读：4498 评论：0 收藏：0 [点我收藏+]

TreeView修改选中的节点的颜色和背景

TCustomDrawTarget = (dtControl, dtItem, dtSubItem);

TCustomDrawStage = (cdPrePaint, cdPostPaint, cdPreErase, cdPostErase);

TCustomDrawState = set of (cdsSelected, cdsGrayed, cdsDisabled, cdsChecked,

cdsFocused, cdsDefault, cdsHot, cdsMarked, cdsIndeterminate);

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
    if (cdsSelected in State) then
   begin
      with Sender.Canvas do
      begin
        Brush.Color :=clBlue;
        Font.Color :=clRed;
        Font.Size := 11;
        Font.Style:=[fsBold];
      end;
   end;
end;

如何画图片节点的整行的

procedure TForm1.TreeView1AdvancedCustomDraw(Sender: TCustomTreeView;

const ARect: TRect; Stage: TCustomDrawStage; var DefaultDraw: Boolean);

procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;

Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;

var PaintImages, DefaultDraw: Boolean);

procedure TForm1.TreeView1CustomDraw(Sender: TCustomTreeView;

const ARect: TRect; var DefaultDraw: Boolean);

procedure TForm1.TreeView2CustomDrawItem(Sender: TCustomTreeView;

Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);

来自为知笔记(Wiz)

delphi TreeView修改选中的节点的颜色和背景,布布扣,bubuko.com