Distinguir registros no consecutivos para alternar colores en dbgrid.

[amadis]

Ecfisa, interesante el metodo.

No logré que funcione pero tomé este dato de referencia que me interesó.

COLORS[Odd(Rect.Top div DefaultRowHeight)

para adaptar a lo que uso que es el metodo normal que mencionabamos antes. Hay algunos detalles que resta pulir aun.

De hecho reemplazando el defaultrowheight por 18 funciona pero hay un detalle de pintado al recorrer los registros uno por uno, bajando de lo que se ve en la pantalla o bien subiendo. AL usar page down para navegar el grid no hay problemas.

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);
begin
  with DBGrid1 do
  begin
    Canvas.Brush.Color := COLORS[Odd(Rect.Top div 18)];
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

Falta pulir esos detalles de refresco pero es prometedor ya que no utiliza el numero de registro.

[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