[[BlueSteel]]

Empezado por Neftali

En mi caso utilizo una comprobación como esta:

Código Delphi [-] .... // FILAS ALTERNADAS.... num := DataLink.DataSource.DataSet.RecNo; if ((num mod 2) = 0) then begin Self.Canvas.Brush.Color := Config.App.ColorAlternativo; end;

Hola Neftali

Estube provando con esto... y no me ha funcionado...

tengo lo siguiente
1.- Ejecuto el codigo en onDrawColumnCell
2.- Cree la variable Num de tipo Int
3.- Cambie DataLink por el nombre del DBGrid
4.- Cambie Config.App.ColorAlternativo por clMoneyGreen


En difinitiva... no me da el efecto.... el codigo que uso es asi:

Código Delphi [-]
     
num := DBGrid2.DataSource.DataSet.RecNo;
// num := Datos.AQ_AbonosVendidos.RecNo;    Si pruebo cualquiera de estas lineas el valor que entrega es el correcto
if ((num mod 2) = 0) then Self.Canvas.Brush.Color := clMoneyGreen;

igual.. voy a seguir intentando..

Salu2