<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>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:<br>procedure TfRecepcion.acGrillaDrawColumnCell(Sender: TObject;<br> const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);<br>begin<br> if Column.Field.DataSet.FieldByName('estado').AsInteger = 0 then<br> acGrilla.Canvas.Brush.Color := $009EE78F;<br><br> if Column.Field.DataSet.FieldByName('estado').AsInteger = 1 then<br> acGrilla.Canvas.Brush.Color := $00F4B848;<br><br> if Column.Field.DataSet.FieldByName('estado').AsInteger = 2 then<br> acGrilla.Canvas.Brush.Color := $004BBDDE;<br><br> acGrilla.DefaultDrawColumnCell(Rect, DataCol, Column, State);<br> if gdSelected in State then<br> with acGrilla do<br> begin<br> Canvas.Brush.Color := $00E3B28D;<br> Canvas.Font.Color := $00000059;<br> Canvas.Font.Style := [fsBold];<br> DefaultDrawColumnCell(Rect, DataCol, Column, State);<br> end;<br>end;<br><br>Gracias por vuestra ayuda y tiempo...<br><br>GustavoCruz<br> </div></body>
</html>