Distinguir registros no consecutivos para alternar colores en dbgrid.

[Casimiro Noteví]

¿Pero cómo lo quieres hacer?

[amadis]

Nose , busco alguna idea aunque sea descabellada para probar algo nuevo. Como vos bien decias, lo normal es tomar el numero de registro y comparar. Pero a nadie se le ocurrió plantearse ¿que pasa si por ej se eliminan algunos registros y quedan consecutivos pares o impares??.
Algo se debe poder hacer.

[ecfisa]

Empezado por amadis

Nose , busco alguna idea aunque sea descabellada para probar algo nuevo. Como vos bien decias, lo normal es tomar el numero de registro y comparar. Pero a nadie se le ocurrió plantearse ¿que pasa si por ej se eliminan algunos registros y quedan consecutivos pares o impares??.
Algo se debe poder hacer.

Hola amadis.

Código Delphi [-]
type
  TDBGridEx = class(TDBGrid);

procedure TForm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
  COLORS : array[Boolean] of TColor = (clYellow, clMoneyGreen);
begin
  with TDBGridEx(Sender as TDBGrid) do
  begin
    Canvas.Brush.Color := COLORS[Odd(Rect.Top div DefaultRowHeight)];
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

Saludos

[Casimiro Noteví]

Empezado por amadis

Nose , busco alguna idea aunque sea descabellada para probar algo nuevo. Como vos bien decias, lo normal es tomar el numero de registro y comparar. Pero a nadie se le ocurrió plantearse ¿que pasa si por ej se eliminan algunos registros y quedan consecutivos pares o impares??.
Algo se debe poder hacer.

Todo eso está controlado con la "forma normal de hacerlo"

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