Distinguir registros no consecutivos para alternar colores en dbgrid.

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

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