如何改变TdxTreeList行的颜色及字体? 各位 请问怎么改变TdxTreeList行的字体及颜色?好像关于TdxTreeList行的操作,本身可用的属性并没有。。有高手知道如何解决吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 测试数据:在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; 将倒数第四行改为:Acanvas.TextOut(ARect.left,ARect.top,Atext); //输出你的内容文本////////////////////////////////Acanvas.TextOut(ARect.left,ARect.top,Acolumn.Caption); //输出列的标题. 菜鸟问题! 菜鸟拜求“如何制作闪屏窗口” 请问如何解决用delphi开发数据库的中文问题? 怎么将字符串中的*部分字符*替换掉?急!!(在线等待) 怎样把字符串中的信息转换为程序代码??? 在线等待,怎么实现延时。 有关TABLE控件的小问题,再线等待!谢谢!!!!!!!!!!!!!!!!!!!!!!!! 请问要清空Clientdataset的清空问题. TWAIN Toolkit无法支持100dpi以上的分辩率么?还有其它牌子的虚拟扫描仪么? 怎样得到构件名? 请大家帮忙,关于截获串口数据问题,请教高手 请问各位,在delphi2007中怎么没有Rave Reports??
在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;
Acanvas.TextOut(ARect.left,ARect.top,Atext); //输出你的内容文本
////////////////////////////////
Acanvas.TextOut(ARect.left,ARect.top,Acolumn.Caption); //输出列的标题.