Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Colorear filas pares rxDBGrid?????? (https://www.clubdelphi.com/foros/showthread.php?t=3456)

mguixot 08-09-2003 14:02:20

Colorear filas pares rxDBGrid??????
 
Hola amigos,
estoy intentando colorear las filas pares de un RXDBGrid, pero no me funciona, me pinta algunas columnas, y me gustaria saber si el código está mal, o no funciona por alguna opcion del componente RXDBGrid.

... codigo ....

procedure TListadoLibro.RxDBGridListadoLibrosGetCellParams(Sender: TObject;
Field: TField; AFont: TFont; var Background: TColor; Highlight: Boolean);
begin
if Odd(Field.Index) then
Background := clWhite
else
Background := $00D5FFFF;
end;


Saludos y gracias

andres1569 08-09-2003 15:50:52

Hola:

Con la instrucción if Odd(Field.Index) then ... accedes al índice de los campos, por lo tanto afecta a las columnas y no a las filas como indica el título de tu mensaje.

No es fácil saber qué filas (registros) son pares e impares, salvo que tengas un campo que así lo indique (y que tenga valores correlativos sin huecos), aunque quizás, dependiendo de la base de datos que utilices, te pueda servir acceder a la propiedad RecNo del DataSet correspodiente, y comprobar si es par o no. De todas formas, no estoy ahora seguro de si RecNo devuelve el nº de registro en la base de datos o el nº dentro del objeto TDataset, si es lo primero (creo que sí) sólo te servirá cuando muestres los registros sin filtrar y en el mismo orden en que se hallan en la base de datos.

Otra cosa no se me ocurre,

Un saludo


La franja horaria es GMT +2. Ahora son las 20:18:24.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi