[Willo]

Ese es el problema... no existe el objeto Acolumn....!

este es el codigo que tengo hasta el momento....(no funciona como debe ser)

procedure TFclientes.GridDBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
     ARec: TRect;
     ATextToDraw, val: String;
     AIsVertical: Boolean;
     procedure SetTextToDraw;
     begin
          ATextToDraw := AViewInfo.GridRecord.DisplayTexts[AViewInfo.Item.Index];
     end;
begin
     SetTextToDraw;
     ARec := AViewInfo.Bounds;
     if (Qclientes.FieldByName('CL_EMAIL').asstring = '') and (Qclientes.FieldByName('CL_EMAIL').asstring = '') then
     begin
          Acanvas.Canvas.Font.Color := clred;
     end
     else
     begin
          Acanvas.Canvas.Font.Color := clwindowtext;
     end;
     ACanvas.Canvas.FillRect(ARec);
end;