Delpi RzTreeView1控件节点颜色设置

Delphi RzTreeView 节点颜色设置

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

weixin_30905133

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

阅读量113

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/fengju/archive/2009/07/30/6173861.html

本文介绍了一种使用 Delphi 中的 RzTreeView 控件自定义节点颜色的方法。通过重写 RzTreeView1AdvancedCustomDrawItem 方法，可以根据节点的状态改变其背景颜色。此方法适用于希望为 Delphi 应用程序中的树形视图提供定制视觉效果的开发者。

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;