【搞定】DataTreeList 中 DataTreeList1CustomDrawCell 事件中如何获得列对应的字

wqh

那个链接打不开哦。麻烦重新给个例子。

jiahaiminghr

可以啊，
”bbs.justep.com/search.php?s=&action=showresults&searchid=133899&sortby=lastpost&sortorder=descending “

wqh

我打不开链接，麻烦你把结果帖过来嘛。是DataTreeList1CustomDrawCell哈

wqh

顶，麻烦回复一下如何？ 这个问题搞两天都得不到一个结果。

wqh

ding

wqh

ding

Akon

楼主,我在是DataGrid下做的,方法应该一样,您可以用下面的代码试一下。
procedure TFZTJBD.DataGridCustomDrawCell(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 not (ASelected or AFocused) then
    begin
      if (TDataGridColumn(AColumn).FieldName= 'DJ') then
        begin
          {if TDataGridColumn(AColumn).ColumnDef.Field.DataSet.
            FieldByName('DJ').AsInteger <= 100 then }
          if SysUtils.StrToInt(AText)<=100 then
             begin
               AColor := Business.System.Graphics.clGreen;
             end
          else
            begin
              AColor := Business.System.Graphics.clRed;
            end;
        end;
    end;
end;

wqh

不好意思，好像在DataGrid下和TDataTreeList下就是不一样。我在DataGrid下也可以完全控制，
但在 TDataTreeList下好像不行。
麻烦回复一下。！！！！！！！！

Akon

我可以的
begin
  if not (ASelected or AFocused) then
    begin
      if (TDataTreeListColumn(AColumn).FieldName= 'ETELPHONE') then
        begin
          if SysUtils.StrToInt(AText)<=100  then
            AColor := Business.System.Graphics.clGreen
          else
            AColor := Business.System.Graphics.clRed;
        end;
    end;
end;

Akon

楼主，您的需求用以下代码可以实现。
begin
  if not ASelected or AFocused then
  begin
  if TDataTreeListColumn(AColumn).FieldName = 'KCL' then
    begin
      if ANode.Strings[9].ToString > ANode.Strings[10].ToString then
      AColor := Business.System.Graphics.clRed
    else
      AColor := Business.System.Graphics.clBlue;
    end;
  end;
end;