FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
DBGrid Colorido
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
__________________
Diego. Colombia es pasión. |
#2
|
|||
|
|||
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; Saludos y Suerte!!.
__________________
.:.::FRANKER::.:. |
|
|
|