cxgrid 单元格颜色控制

procedure TfrmTest.cxGridTestListDBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  if AViewInfo.Item.Caption='c_m' then //Item定位到某一列,c_m为字段名
  begin
    if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName
        ('flag').Index]= '1' then //GridRecord定位到某一行，行列交织即为单元格。flag也是字段名
    begin
      ACanvas.Canvas.brush.Color := clRed;
      ACanvas.FillRect(AViewInfo.Bounds);
    end;

    if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName
        ('flag').Index]= '3' then
    begin
      ACanvas.Canvas.brush.Color := clRed;
      ACanvas.FillRect(AViewInfo.Bounds);
    end;
  end;

  if AViewInfo.Item.Caption='c_z' then
  begin
    if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName
        ('flag').Index]= '2' then
    begin
      ACanvas.Canvas.brush.Color := clRed;
      ACanvas.FillRect(AViewInfo.Bounds);
    end;