ondrawcolumncell en QuantumGrid

[ContraVeneno]

en el evento OnCustomDrawCell deberías encontrar todo lo que necesitas. "AColumn" que representa la celda que se está pintando, "AColor" que define el color y algunas otras cosas que te pueden servir.
¿has intentado algo? ¿algún código?

[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;

[ContraVeneno]

... yo tengo una versión diferente... mas antigua, creo que no te podré ayudar...

Código Delphi [-]
procedure TFrmInicial.dxgDatosCustomDrawCell(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
  var AText: String; var AColor: TColor; AFont: TFont;
  var AAlignment: TAlignment; var ADone: Boolean);
begin
  inherited;
 //aquí el código...
end;