根据条件改变TreeView的颜色

在Delphi中使用树形控件TreeView,改变其颜色,使用的是CustomDrawItem方法:

代码

procedure  TForm1.tv1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState;  var  DefaultDraw: Boolean); begin if  Odd(Node.AbsoluteIndex)  then begin
    Sender.Canvas.Brush.Color: = clGreen;  // 改变背景颜色
    Sender.Canvas.Font.Color: = clWhite;   // 改变字体颜色 end else
    Sender.Canvas.Font.Color: = clRed; end ;

 在根据内容条件改变时,使用Node判断:

代码

procedure  TForm1.tv1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState;  var  DefaultDraw: Boolean); begin if  Length(Node.Text) < 5   then
    tv1.Canvas.Brush.Color: = clRed else
    tv1.Canvas.Brush.Color: = clWhite; end ;