Foros Club Delphi - DBGrid Colorido

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - DBGrid Colorido (https://www.clubdelphi.com/foros/showthread.php?t=930)

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:p

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

salu2 :cool:

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

Código:

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