[Chente(rMan)]

Que tal Anunakis, yo tambien ya habia buscado esto que preguntas, y lo habia buscado tambien en los hilos que te enviaron, pero ahi no encontre nada, de cualquier manera aqui te envio la solución.


en el evento OnDrawColumnCell de tu dbgrid agrega este código:

Código Delphi [-]
  with (Sender as TDBGrid) do
    begin
      if DataSource.DataSet.RecNo mod 2 = 0 then
        Canvas.Brush.Color := $00F8FFC6
      else
        Canvas.Brush.Color := clWhite;
      Canvas.Font.Color := Font.Color;
      DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;

y listo!!!


Saludos.


Vicente López.