DBGrids - Alternative zu RecNo?

[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.

[himitsu]

OK, dann war der Name DataLink etwas missverständlich.

Eigentlich sind TDataLink ja nur Links zum DataSet/DataRecord und kennen das Grid nicht.

[Uwe Raabe]

Zitat von himitsu:

OK, dann war der Name DataLink etwas missverständlich.

Eigentlich sind TDataLink ja nur Links zum DataSet/DataRecord und kennen das Grid nicht.

In diesem Fall handelt es sich aber um einen TGridDataLink und der kennt wiederum sein TCustomDBGrid .

[Rabenrecht]

Ok, hatte das RecNo missverstanden.

Jetzt habe ich es hinbekommen die Zeilen alternierend einzufärben.

Dabei tauchte leider ein weiteres Problem auf: die Einfärbung der Zeilen "übermalt" die blaue Hinterlegung der Zeile, dessen Zelle gerade ausgewählt ist.

Hier der wesentliche Quelltext:

Delphi-Quellcode:

procedure MeinVonTDBGridAbgeleitetesGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
var
  RowNo  : Integer;
begin
  RowNo := DataSource.DataSet.RecNo;
  if not Odd(RowNo) then
    Canvas.Brush.Color := myRowColor;
  else
    Canvas.Brush.Color := Color;
  
  DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

Wie lässt sich das vermeiden?

[borstenei]

Ich hatte das mal so gemacht:

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with TDBGrid(Sender), Canvas do
begin
if ADOTable1.RecNo mod 2 = 0  then
Brush.Color:=clSilver;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

...aber auch hier wird die blaue Markierung übermalt , was mich nicht gestört hat.
und das with nicht beachten , heute bin ich etwas schlauer...

[Uwe Raabe]

Zitat von Rabenrecht:

Wie lässt sich das vermeiden?

Check doch einfach auf gdRowSelected in State und lass in dem Fall die Finger von Canvas.Brush.Color .

[Rabenrecht]

Zitat von Uwe Raabe:

Zitat von Rabenrecht:

Wie lässt sich das vermeiden?

Check doch einfach auf gdRowSelected in State und lass in dem Fall die Finger von Canvas.Brush.Color .

Das hatte leider keinen Effekt. Wie es scheint, wird gdRowSelected überhaupt nicht gesetzt.

[Uwe Raabe]

Zitat von Rabenrecht:

Zitat von Uwe Raabe:

Zitat von Rabenrecht:

Wie lässt sich das vermeiden?

Check doch einfach auf gdRowSelected in State und lass in dem Fall die Finger von Canvas.Brush.Color .

Das hatte leider keinen Effekt. Wie es scheint, wird gdRowSelected überhaupt nicht gesetzt.

Kommt halt auf die Optionen an. Was ist mit gdSelected? Schau doch mal im Debugger, was in dem Fall drin steht.