[Lazarus-es] DBGrid llamativos

[Gustavo Adolfo Cruz Martinez]

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-ide.org/pipermail/lazarus-es/attachments/20131230/cef43c44/attachment-0002.html>