If ((Query.RecNo mod 2) = 0) then
begin
  Self.Canvas.Brush.Color := clGreen;
  self.DefaultDrawColumnCell(Rect, 0, Column, State);
end;

 OnDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);

unit msDBGrid;

interface

uses
  SysUtils, Classes, Controls, Grids, DBGrids, JvExDBGrids, JvDBGrid,Graphics;

type
  TmsDBGrid = class(TJvDBGrid)
  private
    EvenColor : TColor;
    OddColor : TColor;

    procedure SetzeEvenColor(aValue : TColor);
    procedure SetzeOddColor(aValue : TColor);
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    property RowEvenColor : TColor read EvenColor Write SetzeEvenColor; //gerade Zeilen
    property RowOddColor : TColor read OddColor write SetzeOddColor; //ungerade zeilen
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('msKomponenten', [TmsDBGrid]);
end;

{ TmsDBGrid }

procedure TmsDBGrid.SetzeEvenColor(aValue: TColor);
begin
  EvenColor := aValue;
end;

procedure TmsDBGrid.SetzeOddColor(aValue: TColor);
begin
  OddColor := aValue;
end;

end.