[Lazarus-es] DBGrid llamativos

[Paola Bruccoleri]

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!!!


--

--


>----Original Message----
>De: gustavo7218 en hotmail.com
>Fecha: 30/12/2013 09:51 
>Para: "Lazarus Lista"<lazarus-es en lists.lazarus.freepascal.org>
>Asunto: [Lazarus-es] DBGrid llamativos
>
>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
>