Delpi RzTreeView1控件节点颜色设置

最新推荐文章于 2021-01-14 09:52:00 发布

最新推荐文章于 2021-01-14 09:52:00 发布 · 159 阅读

本文介绍如何使用 Delphi 中的 RzTreeView1 控件自定义节点的颜色。通过重写 RzTreeView1AdvancedCustomDrawItem 方法，可以实现对选中节点背景色的设置。此方法首先继承了原有方法，然后通过获取画布和节点显示区域来绘制自定义颜色。

Delpi RzTreeView1控件节点颜色设置

Procedure Tfrm_SysDepasManager.RzTreeView1AdvancedCustomDrawItem(
Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;
Stage: TCustomDrawStage; Var PaintImages, DefaultDraw: Boolean);
Var
ACanvas: TCanvas;
ARect: TRect;
Begin
Inherited;
ACanvas := RzTreeView1.Canvas;
ARect := Node.DisplayRect(True);

If node.Selected Then
ACanvas.Brush.Color := clSkyBlue;

ACanvas.Font.Assign(RzTreeView1.Font);
ACanvas.FillRect(ARect);
DrawText(ACanvas.Handle, PChar(Node.Text), -1,
ARect, DT_SINGLELINE Or DT_VCENTER Or DT_SINGLELINE);

End;