Color de celda en una tabla

[cmfab]

Hola a todos, en una rejialla de datos de los componentes devexperss
(cxGrid) necesitaria que las celdas tomaran diferentes colores en base
a su contenido. he hecho este tipo de operacion pero para toda la fila
por ejemplo usando este evento

Código Delphi [-]
procedure TForm1.cxGrid1DBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  if AViewInfo.GridRecord.Values[0] = True then
  begin
    ACanvas.Brush.Color := clGreen;   {Color del fondo de la fila}
    ACanvas.Font.Style := [fsBold];   {Formatea el texo en negrita (Bold)}
  end;
end

pero en este caso se ointa toda una fila en base al valor de una sola columna

espero me haya explicado correctamente

Gracias

[ecfisa]

Hola.

Este código funciona correctamente en un TDBGrid, supongo que con algunos cambios debería hacerlo en un TcxGrid también.

Código Delphi [-]
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  if (Field.FieldName = 'Nombre_Del_Campo') and (Field.AsBoolean = True) then
  begin
    DBGrid1.Canvas.Brush.Color:= clGreen;
    DBGrid1.Canvas.Font.Style:= [fsBold];
  end;
  DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;

No conozco esos componentes pero quizá puedas hacer algo como:

Código Delphi [-]
  if (AViewInfo.GridRecord.Values[0] = True) and (AViewInfo.GridRecord.FieldName = 'Nombre_del_Campo') then

Espero te sirva.

Saludos.

[cmfab]

Gracias por la pronta respuesta. lo analizaré y despues les comento

[cmfab]

si positivo todo funciono correctamente, gracias por todo