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

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

Alternar color filas del Dbgrid

Publicado por Juan Carlos Giron (1 intervención) el 22/09/2020 00:26:16
Excelente solución:

Yo lo apliqué con un if anidado respecto de rangos de valores .


Excelente. Felicitanciones
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