delphi TcxGrid网格组件：OnCustomDrawCell 自绘网格事件的应用

onCustomDrawCell事件分为两种:

一个是整个表格的事件,需要判断单元格所在的字段,符合了之后,才能进行下一步

　　取得单元格所在字段的字段名:TcxGridColumn(AViewInfo.Item).DataBinding.FilterFieldName

　　AViewInfo.Item 表示当前单元格所在的列

　　AViewInfo.value 表示当前单元格的值

　　补充:　　

//以下两句代码在下图中是等价的,建议使用第二行
ACanvas.FillRect(AViewInfo.Bounds, oColor);
ACanvas.Brush.Color := clTeal;

一个是指定列的事件.不需要判断所在字段

　　　　一.当某一列的数值符合某个条件时,填充颜色.(你还可以设置它字体的各种属性等)

　　　　效果图:

二.ACanvas字体样式设置

　　请参考下图格式书写代码.注意style的层级关系.比如

　　设置字体大小: ACanvas.Font.Size:=12;

　　设置字体为粗体: ACanvas.Font.Style.fsBold:=True;

　　都是成年人,其他字体设置,请自己举一反三

三.当某个值符合特定条件时,改变整行记录的背景色

　　首先.我们要明白,这不是单独某一个列的行为,所以我们不能使用指定列的事件,而应该使用全局事件

procedure TForm1.cxGrid1DBTableView1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  //AViewInfo.GridRecord.Values 返回的是一整行记录的数组
  //你也可以使用arr[0]这样的方式返回,但是如果用户移动列位置的时候,程序就会出错
  //所以还是用index来定位比较稳  
 //字段名.Index 返回字段所在的位置,比如下面的ID.Index,反回的是ID字段排在第几列
  if AViewInfo.GridRecord.Values[ID.Index] = 5 then
    ACanvas.Brush.Color := clTeal;
end;

效果如下: