Distinguir registros no consecutivos para alternar colores en dbgrid.

[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