【结贴】如何控制datatreelist中根节点的每行的颜色**

rzport_lq0

在datagrid的CustomDraw中能很好的对每行的颜色进行控制，但是在
datatreelist中就到不到这种效果，要变色就全部变色了！请问如何在datatreelist中实现这种效果？！！

lixy

我判断的是图的第一直是偶数的就变色

procedure TKBBD1.DataTreeList1CustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
begin
   if (sysutils.StrToInt(ANode.strings[0])  mod 2)=0 then
    begin
      if not AFocused then
         AColor := $34555F;
    end;

end;

rzport_lq0

这个好像不行，我在点击某行时，才进行重画，而且是所有的都重画！。我现在想的是，在打开这个窗口时，颜色就已经重画好了！
begin
   if DataSetBroker1.dataset.FieldByName('nr').AsString.Substring(0,2)='收文' then
    begin
      if not AFocused then
         AFont.Color := Business.System.Graphics.clRed;
    end;
end;

lixy

楼主看我2楼代码，我不是用你那个方式判断的。

rzport_lq0

如果那个字段没有显示出来，请问该如何实现这种效果呢？
例如我想用任务消息表里面的那个状态字段，按照他来显示任务的颜色！该如何做？

lixy

把字段1添加进来，设置
   DataTreeList1ID: TDataTreeListColumn;   
属性visable为假。

rzport_lq0

那我知道。
还有个问题，在TDataTreeList中双击根节点，如何实现Transparent中的单击事件。

lixy

Transparent中的单击事件怎么写的，你就怎么写

rzport_lq0

在TDataTreeList中如何让他如对应的任务关联起来，就是双击这条任务就打开对应的表单，现在知道这条任务的ftaskguid，fguid，fmsgguid 和其他有关信息

jiahaiming

楼主可以参考任务导航文档的代码（8楼说的）。
就是使用runtask运行某个任务对应的功能。
论坛中有例子。