如何改变TdxTreeList行的颜色及字体？

Question

各位
    请问怎么改变TdxTreeList行的字体及颜色？好像关于TdxTreeList行的操作，本身可用的属性并没有。。有高手知道如何解决吗？

Answer 1

测试数据:
在TdxTreeList1中建立几层
中国
   湖北
      武汉
         江岸区
            解放大道
               1304号然后添加如下代码[在CustomDraw中]
--------------------------------------------------------------------------------------
procedure TForm1.dxTreeList1CustomDraw(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
  const AText: String; AFont: TFont; var AColor: TColor; ASelected,
  AFocused: Boolean; var ADone: Boolean);
begin
  case ANode.Level of    //根据层画不同的颜色
    0: ACanvas.Brush.Color := clBlue;
    1: ACanvas.Brush.Color := clYellow;
    2: ACanvas.Brush.Color := clRed;
    3: ACanvas.Brush.Color := clNavy;
  end;    // case  AFont.Color := clWhite;  //字体的颜色
  AFont.Size := 10;  //字体的大小
  Acanvas.FillRect(ARect); //填充
  Acanvas.TextOut(ARect.left,ARect.top,Acolumn.Caption);  //输出文本
  //ASelected := false;    //
  ADone:= true;   //应用
end;

Answer 2

将倒数第四行改为:
Acanvas.TextOut(ARect.left,ARect.top,Atext);  //输出你的内容文本
////////////////////////////////
Acanvas.TextOut(ARect.left,ARect.top,Acolumn.Caption); //输出列的标题.