Delphi cxgrid 單元格數據對比，實現自繪標識！

procedure TRes_HrYd_Approve_F.cxGrid1DBBandedTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  CheckValue:Integer;
  aa,bb,cc,dd,ee,ff,gg,hh,ii,jj:string;
  CxColumn,aa1,bb1,cc1,dd1,ee1,ff1,gg1,hh1,ii1,jj1:TcxGridDBBandedColumn;
begin
  inherited; //程序自繪
  CxColumn:=(Sender as TcxGridDBBandedTableView).GetColumnByFieldName('FLAG');
  if CxColumn=nil then Exit;
  if SameText(AViewInfo.Item.Name,CxColumn.Name) then
  begin
    CheckValue:=StrToInt(AViewInfo.GridRecord.Values[cxGrid1DBBandedTableView1Column28.Index]);
    if(CheckValue=0) then
    begin
      AViewInfo.Focused;
      ACanvas.Brush.Color:=clRed;
    end;
    if(CheckValue=1) then
    begin
      AViewInfo.Focused;
      ACanvas.Brush.Color:=clGreen;
    end;
    if(Che