DBGrid Komponente erstellen

[WizoHulk]

Hallo an alle,

ich möchte mir eine neue DBGrid Komponente erstellen, die von TJVDbGrid abgeleitet ist.
Mein problem hier bei ist, wie kann ich diese Funktion

Delphi-Quellcode:

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

der Prozedur

Delphi-Quellcode:

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

zuweisen.
Meine Quellcode der komponente Packe ich sicherhalbsweise auch mal mit hinzu.

Delphi-Quellcode:

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.