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.

[DeddyH]

Ich habe die JVCL nicht installiert, aber IIRC ist diese Funktionalität doch bereits enthalten, oder? Ansonsten solltest Du Dir einmal den protected-Abschnitt der Komponente anschauen, ob man da nicht die entsprechende Methode überschreiben kann, das erscheint mir sinniger, als über das Event zu gehen.

[edit] Ich habe mir den Source online angesehen, da gibt es eine AlternateRowColor, die müsste das sein, was Du einzubauen versuchst. [/edit]

[WizoHulk]

aaaaaahhhhh, jetzt bin ich Grad verwirrt....
Die Funktion soll die Geraden Zeilen und die Ungeraden zeilen in Farbe setzen.

Meintest du das ich das Event OnDrawCellColumn.... überschreiben soll.

Ich hoffe ich hab dich jetzt nich verwirrt.

[DeddyH]

Setz doch bei AlternateRowColor mal eine Farbe ein, das sollte den gewünschten Effekt bringen.

[WizoHulk]

Aber kann das sein, das man nur die Ungeraden Zeilen in Farbe setzen kann, und die geraden nur über den Standard Color.

Es sei denn ich hab ma wieder Tomaten auf den Augen.

[DeddyH]

Das ist gut möglich, aber ist das so schlimm? Zur Not kannst Du ja die Farben vertauschen.