Pintar fila completa en un DBgrid segun un dato

[[BlueSteel]]

Gracias Neftali

revise el ejemplo.. realice todo igual.... salvo 3 cosas:

cambiar el nombre del DBGrid... y de donde se obtienen los colores.

lo demás esta igual, pero no se por que no me pinta las filas.

si compilo tu ejemplo funciona bien.. pero quizas sea un bug de esos...

lo raro es que si quiero pintar las celdas que cumplan una condición si lo hace bien (en otro dbgrid)...

este es el codigo que utilizo...

Código Delphi [-]
procedure TTarjetas.DBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var
  num : Integer;
begin
     num := Datos.AQ_AbonosVendidos.RecNo;
//     num := DBGrid2.DataSource.DataSet.RecNo;
     if ((num mod 2) = 0) then begin
        DBGrid2.Canvas.Brush.Color := clMoneyGreen;
        end
     else begin
          DBGrid2.Canvas.Brush.Color := clWindow;
     end;

    DBGrid2.DefaultDrawDataCell(Rect, Field, State);
end;

la proxima semana seguiré probando

Salu2 y que tengan un buen fin de semana