Hola amigos de la lista he querido colocar este c�digo en una dbgrid para que sea m�s llamativa e informativa sin embargo no me funciona; el c�digo es:
procedure TfRecepcion.acGrillaDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Column.Field.DataSet.FieldByName('estado').AsInteger = 0 then
    acGrilla.Canvas.Brush.Color := $009EE78F;
  if Column.Field.DataSet.FieldByName('estado').AsInteger = 1 then
    acGrilla.Canvas.Brush.Color := $00F4B848;
  if Column.Field.DataSet.FieldByName('estado').AsInteger = 2 then
    acGrilla.Canvas.Brush.Color := $004BBDDE;
  acGrilla.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  if gdSelected in State then
    with acGrilla do
      begin
        Canvas.Brush.Color := $00E3B28D;
        Canvas.Font.Color := $00000059;
        Canvas.Font.Style := [fsBold];
        DefaultDrawColumnCell(Rect, DataCol, Column, State);
      end;
end;

Gracias por vuestra ayuda y tiempo...

GustavoCruz

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20131230/cef43c44/attachment.html>

Hola Gustavo..
tienes que poner el coloreado en el m�todo onPrepareCanvas. Estoy en una m�q q no tiene lazarus, por tanto te lo estoy diciendo de memoria...
Fijate por la web que hay montones de ejemplos.
ac� una pregunta m�a:
http://lists.lazarus.freepascal.org/pipermail/lazarus-es/2011-May/003765.html

Saludos a todos y muchos �xitos para el 2014!!!