Colorir Linhas CxGrid

Basta ir até o evento pelo caminho: cxGrid > cxGridDBTableView > CustomDrawCell
E substituir pelo código abaixo, o mesmo tem como objetivo determinar a cor de acordo com o valor da coluna.


procedure Tfrm.cxGridDBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
   Codigo     : string;

begin


   codigo:='';
  if not AViewInfo.Selected then  begin

        Codigo := VarAsType( cxGrid1DBTableView1.ViewData.Records[AViewInfo.GridRecord.Index].Values[cxGrid1DBTableView1coluna.Index], varString );

         if Codigo = 'Texte' then begin
            ACanvas.Font.Color  := Cor;
            ACanvas.Brush.Color := Cor;
         end else begin
            ACanvas.Font.Color  := Cor;
            ACanvas.Brush.Color := Cor;
         end;
         IF AViewInfo.GridRecord.Selected then
         begin
            ACanvas.Brush.Color := ACanvas.Font.Color;
            ACanvas.Font.Color  := Cor;
         end;
         codigo:='';
  end;