DBGrids - Alternative zu RecNo?

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

[ConnorMcLeod]

Delphi-Quellcode:

  if ([] = (State * [gdFocused, gdSelected])) then
  begin
    // clever settings go here
  end;  // if