treeview节点字体颜色

Question

用Treeview的CustomDraw事件，设置Font.color属性，无效， 不知道哪里没弄好。
  with Treeview1.canvas do   
  begin   
    Font.Color := clBlue;      
    FillRect(ARect);
  end;

Answer 1

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Node.AbsoluteIndex mod 2 = 0 then
    treeview1.canvas.Font.Color := clRed
  else
    treeview1.canvas.Font.Color := clBlue;
  defaultDraw := true;
end;

Answer 2

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
 Treeview1.Canvas.Font.Color := clRed;
end;