DBGrid Colorido

[diegofhernando]

Que tal foro...

Lo que pretendo es poder intercalar el color de las filas de un dbgrid, pero toda una fila es decir la primera a color A y la sengunda a color B, de esta forma la tercera a color A y la cuarta a color B... jejeje

Espero haberme explicado... lo cierto es que estoy saliendo y me estan esperando gracias por su colaboracion.

salu2

[FRANKER]

Prueba a poner este código en el onDrawColumnCell del DBGrid:

procedure TFmRecaudacion.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin

  //***** Dibuja una linea de cada color *****//
  if Column.Field.DataSet.RecNo mod 2 = 0 then
    dbgrid1.canvas.brush.color := clAqua
  else
    dbgrid1.canvas.brush.color := clMenu;


     dbgrid1.DefaultDrawColumnCell(rect,DataCol,Column,State)
end;

Lo que hace el Código es preguntar al dataset si el registro es par, y si es le asigna un color (clAqua) sino Pues le pone el Otro.

Saludos y Suerte!!.