colorear datos de un Grid

[rotsen26]

Código Delphi [-]
procedure Tfrm_Agrega.dbg_bsqDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if qry_articulopk_articulo.Value=ADOQuery1dpk.Value then
  begin
    dbg_bsq.Canvas.Brush.Color := $00E6DC64;
    dbg_bsq.Font.Color := clBlack;
   end;
   dbg_bsq.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Con este código también me colorea nada mas el primer registro!!!

[ecfisa]

Hola rotsen26.

Percibo que a pesar de contar con 33 mensajes y casi cuatro meses de permanencia en el foro no has dedicado mucho de tu tiempo a leer nuestra guía de estilo.

Si no entiendes el por que de mi comentario, hazmelo saber y con gusto te lo explico.

Saludos.