Distinguir registros no consecutivos para alternar colores en dbgrid.

[carlincortis]

Amigo Amadis, tengo un problema muy similar al tuyo, no se puede trabajar con el RecNo porque no funciona para algunas bases de datos, y además RecNo es -1 cuando se inserta o adiciona un nuevo registro y todo el dbgrid se decolora. He tratado de usar el método propuesto por Ecfisa, pero tengo unos inconvenientes al hacer hacer scroll con el teclado (que se puede corregir con el evento Scroll del dbGrid) y el scroll con el mouse, por favor, puedes compartir tu código o la forma como lograste lo que buscabas?

[amadis]

Hola CARLINCORTIS

Te cuaento que al final cuando encontré algo fabuloso, me pasé a delphi XE y ya no funcionó más. Lo que comento abajo funciona hasta delphi 2010. Por ahora estoy con XE5 pero no logré hacer que este método que te dejo funcione

Lo que conseguí fueron unas modificaciones de Mike Eberhart, que agregando algunas partes de código al DBGRID.pas lograba algo fabuloso, que el insertar un dbgrid en el form se haga automático el color alternado. Y te permitia que tu pintes el grid del color que quieras y el codigo busca para cada color, un alterno correspondiente en la misma gama de colores.

aqui deje unos links a la web del colega Mike donde están las instrucciones y modificaciones a la Unit dbgrid.pas.

una ves que modifiques la unit, debes guardar la unit modificada en la carpeta local del source de cada proyecto.


http://www.intersoftdevelopment.com/...20row%20colors

http://www.intersoftdevelopment.com/...%20row%20color

Supongo que ha dejado de funcionar desde los cambios que surgieron luego de delphi 2010 y con lo de las mutiples plataformas que ahora soporte. he probado renombrar la unit modificada como vcl.dbgrids pero no funciona.

Espero que sirva de alguna ayuda. Y si logras hacerlo funcionar en alguna version XE agradeceremos el comentario.