Delpi RzTreeView1控件 节点颜色设置

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;