Mejor apariencia para un DBGRID

[jorge_mosquera]

Delphi 5 Enterprise
Firebird 1.5
IBX 5.04

Quisiera mejorar la apariencia de mis grids, desplegando algunas filas de un color y otras de otro, por ejemplo, las lineas impares con fondo amarillo, las pares en fondo blanco. Si no tengo ningun campo sobre el dataset para preguntar si es par o impar, como hago esta implementacion ?

Muchas gracias .

[jhonny]

Empezado por jorge_mosquera

par o impar, como hago esta implementacion ?

Código Delphi [-]
if (Numero mod 2)=0 then
//Es par
else
//Es Impar;

[jachguate]

Empezado por jhonny

Código Delphi [-]
if (Numero mod 2)=0 then
//Es par
else
//Es Impar;

Que tal la función odd?

Hasta luego.

[jhonny]

En el siguiente hilo Anunakis hizo una pregunta muy parecida a la tuya y en él hay varios enlaces mas que responden a lo mismo.

http://www.clubdelphi.com/foros/show...=pintar+DBGrid

[jhonny]

Empezado por jachguate

Que tal la función odd?

Copiado a mi libreta de apuntes

[Neftali [Germán.Estévez]]

Si quieres probarlo en mi Web hay un componente llamado: TCustomizeGrid;
A parte de otras cosas te permite hacer lo que necesitas (líneas alternativas en el Grid);

Basta con soltarlo en un formulario y conectarlo al DBGrid y activarlo; Él se encargará del repintado. Tienes una propiedad llamada AlternateRows para configurar lo que necesites (colores, estilos,...).

NOTA: Está en fase de construcción, pero esa parte está disponible y funciona bien. De todas formas si tienes algun problema me lo puedes comentar; Cualquier sugerencia, problema,... será bienvenido.

[Cabanyaler]

Hola Neftalí, quizá sea tu componente mi solución.
Quiero hacer esto :

http://www.clubdelphi.com/foros/showthread.php?t=27536

Y he utilizado tu componente, pero no me pinta los diferentes colores haciéndole este código

Código Delphi [-]
procedure TFLibroNegro.CustomizeGrid1PaintRow(DS: TDataSet;
  var RowColor: TColor; var ChangeColor: Boolean);
begin
    if (NumSubObr_ant <> RxDBGridLibNegro.Fields[1].Value) and (RxDBGridLibNegro.Canvas.Brush.Color = clinfoBk) then
         RxDBGridLibNegro.Canvas.Brush.Color := clSkyBlue;
    NumSubObr_ant := RxDBGridLibNegro.Fields[1].Value;
end;

He asociado al Componente dicho RxGrid, el DefaultDrawing a True, y chico ... nada.
¿me falta algo?
Un saludo y gracias.

[jachguate]

Podes valerte del evento OnDrawColumnCell del grid en cuestión.

Hasta luego.