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:

Zitat von HolgerCW

Und nach was frage ich den Parameter State ab ?

Delphi-Quellcode:

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?

[HolgerCW]

Klar, sonst würden ja nicht die anderen Spalten farblich geändert.

Ist irgendwie komisch.

Nur die erste Spalte ? Alle andern werden farblcih richtig dargestellt

Gruss

Holger

[mkinzler]

Dir Routine wird ja für jede Spalte einzeln aufgerufen (pro Zelle einmal).
Setzt mal einen Breakpoint und schau, ob das für die erste Spalte auch der Fall ist und mit welchen Werten sie aufgerufen wird.

[HolgerCW]

Hallo,

bei mir heisst die erste Spalte 'ID'

wenn ich mit

Delphi-Quellcode:

if Column.Title.Caption = 'ID' then
begin
 showmessage('ID');
end;

abfrage, führt er showmessage aus.

Wenn ich aber:

Delphi-Quellcode:

if State = [gdselected] then
begin
 if Column.Title.Caption = 'ID' then
 begin
  showmessage('ID');
 end;
end;

dann führt er showmessage nicht aus.

Wenn ich dann die zweite Spalte abfrage, welche 'Anlass' heisst, führt er showmessage aus. Das sieht so aus:

Delphi-Quellcode:

if State = [gdselected] then
begin
 if Column.Title.Caption = 'Anlass' then
 begin
  showmessage('ID');
 end;
end;

Warum umgeht er bei gdselected die erste Spalte ???

Gruss

Holger

[mkinzler]

Es scheint, als ob die 1. Spalte nicht selektierbar ist.

[HolgerCW]

Dann muss man das wohl so hin nehmen ...

Trotzdem danke

Gruss

Holger

[mkinzler]

Hast du diese fixiert?

[HolgerCW]

Wo schaue ich das nach ob die fixiert ist ?

Gruss

Holger

[mkinzler]

.FixedCols > 0

[HolgerCW]

Das DBGrid hat keine Eigenschaft fixedCols

So klappt es nicht:

Delphi-Quellcode:

if DBGrid.fixedCols > 0 then ...

Gruss

Holger