Distinguir registros no consecutivos para alternar colores en dbgrid.

[olbeup]

Que problemas tienes con el RecNo del DBGrid, es un dato automático, si borras un registro el RecNo se actualizará automáticamente.

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
  COLORS : array[Boolean] of TColor = (clYellow, clMoneyGreen);
var
  DS: TDataSet;
begin
  DS := DBGrid1.DataSource.DataSet;
  with DBGrid1 do
  begin
    Canvas.Brush.Color := COLORS[((DS.RecNo mod 2) = 0)];
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

Que problemas tienes con esto.

Un saludo.

[amadis]

Como expliqué en el post original. Para que funcione correctamente el dataset tiene que ser secuencial. Y tratandose de tablas extensas y trabajando todo del lado del cliente produce demoras.

[[ElDioni]]

Yo creo que se está hablando de cosas distintas y por eso no se entiende, el recno te devuelve siempre par o impar secuencialmente tengas los registros que tengas, porque es el orden que ocupa ese registro en el dataset, supongo que amadis se referirá a la clave principal de la tabla la cual puede quedar desordenada con respecto a esta clave y pueden haber valores pares juntos e impares. Digo yo.

Saludos.

[amadis]

Estimados, a ver si se entiende. NO QUIERO USAR LAS TABLAS SECUENCIALES, que es la condicion necesaria para tener todos los registros irdenados y que cada registro intercale uno par y otro impar. Ademas, si se cambian los indices en tiempo de ejecución o se filtra la tabla cambian los numeros de registro y el pintado queda hecho un desastre.

Acá hasta ahora el único que entendió lo que pretendía fue ECFISA y tiró un aporte que me ha servido y estoy tratando de optimizar ese código.

Si alguien quiere complicarse la vida tratando de pintar el dbgrig con filas alternadas SIN USAR los numeros de registros. Esa es tu oportunidad.

Sino, sigan utilizando los métodos que estan por varios lados del foro que funcionan bien. (en tablas secuenciadas).

[Casimiro Noteví]

Amigo, creo que quien no lo ha entendido eres tú

[amadis]

Quizá no comprendan lo que pido porque omití decir que trabajo con un motor de BD embebido de Sybase que no trabaja los registros de forma habitual secuencial como el viejo Ttable del BDE.
Este asigna los RecNo al crearse la tabla y luego si uno altera el orden con un cambio de indice o eliminando un registro los recno comienzan a quedar inservibles porque no son actualizados. Si quiero esta funcionalidad debo activar la propiedad Sequenced y de esa forma obtengo siempre un recno actualizado.

Gracias al comentario de Ecfisa logré lo que buscaba.

Saludos

[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?