Cita:
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;
if ((num mod 2) = 0) then Self.Canvas.Brush.Color := clMoneyGreen;
igual.. voy a seguir intentando..
Salu2