DBGrids - Alternative zu RecNo?

[nahpets]

Schau Dir bitte mal das DBGrid aus der JVCL an, das hat die gewünschte Funktion. Eventuell kannst Du Dir ja die Logik dort abschauen oder Deine Grids vom TJvDBGrid ableiten.

http://wiki.delphi-jedi.org/wiki/JVCL_Help:TJvDBGrid

http://wiki.delphi-jedi.org/wiki/JVC...ernateRowColor

Das Folgende ist jetzt eher mal geraten und nicht getestet:

Delphi-Quellcode:

  if (dbgrid.Row Mod 2 = 0) then begin
    dbgrid.Canvas.Font.Style  := [fsBold];
    dbgrid.Canvas.Brush.Color := clLime;
    dbgrid.Canvas.Font.Color  := clBlack;
  end else begin
    dbgrid.Canvas.Font.Style  := [];
  end;

[haentschman]

Moin...

Zitat:

was einen gewaltigen Performance-Einbruch zur Folge haben kann

...wie kommst darauf? RecNo ist eine Integer Property. Lesen...fertsch.

Willkommen in der DP...

[himitsu]

RecNo ist einfach nur der Index des Datensatzes im Speicher des DataSet.

So wie ItemIndex in einer ListBox/ComboBox.


Aber bei einem "ordentlichen" Grid nimmt man eh nicht RecNo, da der DataController dieser Grids ja sortieren und filtern könnte, womit die Anzeige nicht mehr mit der im DataSet übereinstimmt.

[Rabenrecht]

Zitat von nahpets:

Schau Dir bitte mal das DBGrid aus der JVCL an, das hat die gewünschte Funktion. Eventuell kannst Du Dir ja die Logik dort abschauen oder Deine Grids vom TJvDBGrid ableiten.

JvDBGrids bieten in ihrer DrawCell Methode Zugriff auf den aktuellen Col und Row Index.

Die Standard-VCL DBGrids haben das leider nicht. In DrawColumnCell ist lediglich der aktuelle Col Index verfügbar.

Sonst wäre das ja alles kein Problem

Zitat von haentschman:

...wie kommst darauf? RecNo ist eine Integer Property. Lesen...fertsch.

Tja, das meinte jedenfalls jemand auf StackOverflow

Aber der Hinweis, dass sobald die Daten gefiltert werden, die RecNo nichts mehr über die Zeile in der Anzeige aussagt, macht es für mich ohnehin uninteressant.


Bleibt also die Frage: Wie kann die die Zeilennummer extrapolieren?

[ConnorMcLeod]

Mach Dir eine Ableitung von TDbGrid mit

Delphi-Quellcode:

  protected
    procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override;

Dann klappt's auch mit dem Modulo

[Uwe Raabe]

Das hier könnte vielleicht hilfreich sein:

Delphi-Quellcode:

type
  TDBGridHelper = class helper for TDBGrid
  public
    function IsOddRowNr: Boolean;
  end;

function TDBGridHelper.IsOddRowNr: Boolean;
begin
  Result := Odd(DataLink.ActiveRecord);
end;

[himitsu]

Zitat von Uwe Raabe:

Das hier könnte vielleicht hilfreich sein:

Delphi-Quellcode:

type
  TDBGridHelper = class helper for TDBGrid
  public
    function IsOddRowNr: Boolean;
  end;

function TDBGridHelper.IsOddRowNr: Boolean;
begin
  Result := Odd(DataLink.ActiveRecord);
end;

Jain.

Das liefert die Info, ob der aktuell selektierte Record ODD ist.
Aber beim Zeichnen muß man sich diese Daten aus dem DataController/Cache des Grids holen, denn zum Anzeigen wird und kann nicht ständig das DataSet gescrollt werden.

[Uwe Raabe]

Zitat von himitsu:

Jain.

Das liefert die Info, ob der aktuell selektierte Record ODD ist.
Aber beim Zeichnen muß man sich diese Daten aus dem DataController/Cache des Grids holen, denn zum Anzeigen wird und kann nicht ständig das DataSet gescrollt werden.

Das stimmt jetzt aber nicht so ganz. Der DataLink.ActiveRecord gibt die relative Nummer innerhalb des Grid-Buffers an. Insbesondere wird der Wert innerhalb der Zeichenroutine auf die aktuelle Zeilennummer gesetzt FDataLink.ActiveRecord := ARow; und danach wieder hergestellt.