DBGrid.Canvas.Brush.Color -> dgrowselect anzeigen

[HolgerCW]

Hallo zusammen,

ich habe in dem Ereignis on DrawColumnCell folgenden Code hinterlegt:

Delphi-Quellcode:

if DataModuleConnectionGeraete.QueryVerlauf['GEBUCHT'] = NULL then
begin
  DBGridVerlauf.Canvas.Brush.Color :=clmaroon;
  DBGridVerlauf.DefaultDrawColumnCell(Rect, DataCol, Column,State);
end;

Wie bekomme ich es hin, das die mit der Farbe clmaroon ausgefüllten Zeilen, auch beim selktieren der Zeile grau angezeigt werden und nicht maroon bleiben ?

Gruss

Holger

[mkinzler]

Das mußt du seber tun.
Der Status steht im Parameter State

[HolgerCW]

Und nach was frage ich den Parameter State ab ?

[mkinzler]

Zitat von HolgerCW:

Und nach was frage ich den Parameter State ab ?

if State = gdSelected ...

[HolgerCW]

Ja so klappt es:

Delphi-Quellcode:

if State <> [gdselected] then
begin
 DBGridVerlauf.Canvas.Brush.Color :=clmaroon;
 DBGridVerlauf.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Nur bleibt die erste Spalte in der ursprünglichen Farbe. Warum und geht das auch zu beheben ?

Gruss

Holger

[mkinzler]

Zitat:

Nur bleibt die erste Spalte in der ursprünglichen Farbe. Warum und geht das auch zu beheben ?

Delphi geht halt davon aus, wenn du selber zeichne willszt, das du das dann miterledigst.

[HolgerCW]

Wie erledige ich das mit ?

Gruss und schonmal danke für die Hilfe ...

Holger

[mkinzler]

Indem du in der State-Abfrage sie jeweilige Farbe die setzt

Delphi-Quellcode:

if State = [gdselected] then
begin
    DBGridVerlauf.Canvas.Brush.Color :=clmaroon
else
  //Sonstige Farbe

DBGridVerlauf.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

[HolgerCW]

Hallo,

so habe ich das auch gemacht. Nur bleibt die erste Spalte trotzdem in der alten Farbe.

Vielleicht ncoh einen Hinweis ?

Gruss

Holger

[mkinzler]

Hast du mal geschaut, ob die Routine überhaupt aufgerufen wird?