DBGrids - Alternative zu RecNo?

[Uwe Raabe]

Zitat:

Zitat von himitsu (Beitrag 1355914)

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

Delphi-Quellcode:

TGridDataLink

und der kennt wiederum sein

Delphi-Quellcode:

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...:-D

[Uwe Raabe]

Zitat:

Zitat von Rabenrecht (Beitrag 1356058)

Wie lässt sich das vermeiden?

Check doch einfach auf

Delphi-Quellcode:

gdRowSelected in State

und lass in dem Fall die Finger von

Delphi-Quellcode:

Canvas.Brush.Color

.

[Rabenrecht]

Zitat:

Zitat von Uwe Raabe (Beitrag 1356067)

Zitat:

Zitat von Rabenrecht (Beitrag 1356058)

Wie lässt sich das vermeiden?

Check doch einfach auf

Delphi-Quellcode:

gdRowSelected in State

und lass in dem Fall die Finger von

Delphi-Quellcode:

Canvas.Brush.Color

.

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

[Uwe Raabe]

Zitat:

Zitat von Rabenrecht (Beitrag 1356131)

Zitat:

Zitat von Uwe Raabe (Beitrag 1356067)

Zitat:

Zitat von Rabenrecht (Beitrag 1356058)

Wie lässt sich das vermeiden?

Check doch einfach auf

Delphi-Quellcode:

gdRowSelected in State

und lass in dem Fall die Finger von

Delphi-Quellcode:

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

[Slipstream]

Zitat:

Zitat von Rabenrecht (Beitrag 1355796)

Hallo
Gibt es eine Alternative zu RecNo um die aktuelle Zeile zb. in einem DrawColumnCell-Ereignis zu bestimmen?

Aus diesem und anderen Gründen bevorzuge ich das TjvDBgrid aus den Jedi-Komponenten. Das hat nämlich die Eigenschaft AlternateRowColor, wo ich eine Farbe für den alternativen Hintergrund angeben kann. Zusätzlich gibts dann noch die Eigenschaft AlternateRowFontColor, wo ich die Schriftfarbe festlegen kann. Danach zeigt das Jedi-DBGrid seine Zeilen in zwei sich abwechselnden Farben an.