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

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修改选中的节点的颜色和背景