Delphi - Alternar color filas del Dbgrid

   
Vista:

Alternar color filas del Dbgrid

Publicado por ANNY (10 intervenciones) el 21/06/2012 16:39:18
Hola a todos:

Tengo una ventana de búsqueda paciente y utilizo Dbgrid, lo que quiero es cuando estén todos los datos en el Dbgrid en la primera fila podría ser de color azul, en la segunda fila que sea color blanco, luego la otra azul y así sucesivamente.

Favor de explicarme con detalle, ya que soy nueva en Dephi.

Gracias por adelantado.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Delphi
- Código fuente de Delphi
- Cursos de Delphi
- Temas de Delphi
- Chat de Delphi
información
Códigos de Delphi
- Notepad mejorado
- GL Lander
- OpenGL

Alternar color filas del Dbgrid

Publicado por E.T. (1108 intervenciones) el 22/06/2012 02:59:07
aqui hay un sencillo ejemplo de como hacerlo
http://delphi.about.com/od/usedbvcl/a/grid_row_alt_cl.htm
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Alternar color filas del Dbgrid

Publicado por ANNY (10 intervenciones) el 22/06/2012 16:59:45
Gracias, el código me salió, fue muy sencillo
En el evento OnDrawColumnCell del DBGrid, editar el siguiente código.

var
grid : TDBGrid;
row : integer;
begin
grid := sender as TDBGrid;

row := grid.DataSource.DataSet.RecNo;

if Odd(row) then
grid.Canvas.Brush.Color := clSilver
else
grid.Canvas.Brush.Color := clDkGray;

grid.DefaultDrawColumnCell(Rect, DataCol, Column, State) ;

end; (* DBGrid OnDrawColumnCell *)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar