根據條件改變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;