【结贴】代码修改DOCVIEW中字段的颜色？

lijunfeng

代码修改DOCVIEW中字段的颜色？ 比如说有一条记录，如何在DOCVIEW上根据字段值来控制填充的字段颜色？

shangxy

您搜索下论坛。关键字:datagrid*颜色

zklbx

//网格隔行颜色
procedure TLISTFORMDOC.DataGridCustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; const AText: string; AFont: TFont; var AColor: Integer; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
  if not (ASelected or AFocused) and ((ANode.Index mod 2) = 1) then
    AColor := $EAEAEA;
end;

zklbx

根据计划工期和合同工期的值设置计划工期的显示颜色
procedure TLISTFORMDOC.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);
Var
  i: Integer;
begin
  for i := 0 to DataGrid.ColumnCount - 1 do
  begin
    if TDataGridColumn(AColumn).FieldName = 'FPLANPERIOD' then
    begin
      if TDataGridColumn(AColumn).ColumnDef.Field.DataSet.FieldByName('FPLANPERIOD').AsInteger >
        TDataGridColumn(AColumn).ColumnDef.Field.DataSet.FieldByName('FCONTRACTPERIOD').AsInteger then
        AFont.Color := Business.System.Graphics.clRed;
    end;
  end;
end;

lijunfeng

DOCVIEW中能代码控制颜色不？

zfang

楼主，你说的docview引用的是 表格文档么？
如果是，1楼的不支持

lijunfeng

是的，是DOCVIEW 中单元格的颜色。如何代码进行更改字体颜色

FBO

楼主，你看下下面这个帖子的3楼：
http://bbs.justep.com/forum.php?mod=viewthread&tid=1861

lijunfeng

可以了谢谢，可以结贴了

lijunfeng

还有一个问题：从数据集自增长无法取得行号？