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

wqh · 发表于 2007-7-25 10:11:08

如题！在DtaGrid中能够在DataTreeList中没找到。麻烦告知。谢谢！

通过 AColumn 我无法得到所在行想要的列值。

wqh · 发表于 2007-7-25 10:33:01

急急。

wqh · 发表于 2007-7-25 11:30:36

有人没得?

wqh · 发表于 2007-7-25 13:47:43

wqh · 发表于 2007-7-25 15:55:59

没得人管吗？没得人管吗？

wqh · 发表于 2007-7-26 08:56:30

ding

jiahaiminghr · 发表于 2007-7-26 10:09:22

TDataTreeListColumn( AColumn).FieldName

wqh · 发表于 2007-7-26 10:51:26

好,如图。我想现在显示红色的列的每行颜色根据行的某个列字段的至来进行显示或不显示。

如何做？我没有成功

procedure TFRM_PLCKDXZ.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);
var
  DS:TDataSet;
begin
  if not (ASelected or AFocused) then
  begin if TDataTreeListColumn(AColumn).FieldName='QTY' then
begin
   if TDataTreeListColumn(AColumn).Field.DataSet.FieldByName('QTY').AsFloat >0 then
   begin
      AFont.Color := Business.System.Graphics.clWhite;
      AColor :=Business.System.Graphics.clRed;// $0F0D0F0;
   end;
end;
end;

wqh · 发表于 2007-7-26 11:22:40

在线等待。

jiahaiminghr · 发表于 2007-7-26 11:35:37

楼主，你这个需求在论坛有很多人讨论过，请参考：
http://bbs.justep.com/search.php ... ortorder=descending

		自动登录	找回密码
密码			立即注册