dbgrid aktuelle Zeile im dbGrind färben

[Andreas Nord]

Hallo, würde zu gerne die gesamte ausgewählte Zeile in einen DbGrind einfärben.
Bekomme leider nur die aktuelle Zelle gefärbt:

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin
if (State=[gdSelected,gdFocused])
    then DBGrid1.Canvas.Brush.Color := clred
    else DBGrid1.Canvas.Brush.Color := clWhite;
end;

Hab schon mindestens 3 Stunden gesucht. Wäre sehr dankbar!

[DeddyH]

Und wenn Du unter "Options" RowSelect auf true stellst?

[edit] BDE unter Delphi.NET? Bist Du da sicher? [/edit]

[Andreas Nord]

Klappt leider auch nicht. Möchte auch gerne jede Celle zur laufzeit editieren können. Aber trotzdem Danke.
Ist eine Paradox 7 Tabelle.

[DeddyH]

Dann such doch mal nach DrawColumnCell, da solltest Du einige Beispiele finden.

[shmia]

Das Problem ist, dass du hier zwei Mengen auf Gleichheit überprüfst.
Nur Zellen, die Selected und Fokusiert werden eingefärbt (nur eine Zelle hat den Fokus)

Delphi-Quellcode:

begin 
  if gdSelected in State then   // ***
     DBGrid1.Canvas.Brush.Color := clred 
  else 
     DBGrid1.Canvas.Brush.Color := clWhite; 
end;

[DeddyH]

:wall: das hab ich natürlich geflissentlich übersehen. Vielleicht sollte ich mich mal sinnvollen Dingen wie Fliegenfischen in der Badewanne widmen, so wird das hier eh nichts mehr.

[Andreas Nord]

Sorry, laut Delphi-Hilfe:

gdSelected - Die Zelle ist aktuell ausgewählt

Ich möchte wissen, ob die Zeile und nicht die Zelle ausgewählt ist!

Danke für die Bemühungen.

[DeddyH]

Nochmal: RowSelect auf true stellen und die Abfrage ändern.

Zitat:

Delphi-Quellcode:

if (State=[gdSelected,gdFocused])

Das tritt nämlich nur dann ein, wenn State genau diese beiden Flags enthält. Wenn Dir eins der beiden genügt, müsste das IMHO so lauten:

Delphi-Quellcode:

if (gdSelected in State) or (gdFocused in State)

[Andreas Nord]

Also mit:

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  begin
if gdSelected in State
    then DBGrid1.Canvas.Brush.Color := clred
    else DBGrid1.Canvas.Brush.Color := clWhite;
end;

und der Option "RowSelect" erhalte ich genau mein erwünschtes ergebnis.

Nun kann ich aber nicht mehr die einzelnen Zellen editieren :wall:

[Andreas Nord]

Es muss doch irgendwie möglichsein, innerhalb der Funktion "DBGrid1DrawColumnCell" festzustellen welche Zeile bei einer Tabelle ausgewählt ist!?

Mit RecNo geht das leider nicht, da inerhalb von DBGrid1DrawColumnCell dieser von 0 bis an das Tabellenende Hochgezählt wird.