DBGrid: Textfarbe bei selektierten Einträgen ändern?

[Igotcha]

Hallo zusammen,

ich stelle meine Daten im DBGrid mit abwechselnder Hintergrundfarbe dar. Wenn ich jetzt eine Zeile selektiere (RowSelect=true), dann ist die Schriftfarbe weiß, das kann man bei den von mir verwendeten Hintergrundarben sehr schlecht lesen. Wie kann ich die Selektionsfarbe anpassen?

Hintergrund wird wie folgt gefärbt:

Delphi-Quellcode:

procedure TfrmMain.DBGrid3DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if (Sender as TDBGrid).DataSource.DataSet.RecNo mod 2 = 0 then
  DBGrid3.Canvas.Brush.Color:=RGB(212, 226, 237)
  else
  DBGrid3.Canvas.Brush.Color:=RGB(200,200,200);
  DBGrid3.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Gruß Igotcha

[Jelly]

Schon mal

Delphi-Quellcode:

DBGrid3.Canvas.Pen.Color:=RGB(20,20,20);

probiert.

[Igotcha]

Nein, aber das bringt nichts - irgendwie wird das gar nicht berücksichtigt, auch nicht bei der normalen Textanzeige.

Also normalerweise ist ja Standard, dass eine selektierte Zeile blau hinterlegt wird, mit weißer Schrift. Und genau diese Schriftfarbe im selektierten Zustand möchte ich ändern.

[Luciano]

Hi..

Delphi-Quellcode:

DBGrid.Canvas.Font.Color := clWhite;

Das sollte funktionieren.

Greets

[Jelly]

Habs jetzt raus:
DBGrid3.Canvas.Font.Color:=clRed ;

Gruß,
tom

[Igotcha]

Kleines Problem...

Delphi-Quellcode:

 
procedure TfrmMain.DBGrid4DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (Sender as TDBGrid).DataSource.DataSet.RecNo mod 2 = 0 then
  DBGrid4.Canvas.Brush.Color:=RGB(212, 226, 237)
  else
  DBGrid4.Canvas.Brush.Color:=RGB(200,200,200);
  
  if State=[gdSelected] then
  begin
    DBGrid4.Canvas.Font.Color:=clblue;
    DBGrid4.Canvas.Font.Style:=[fsbold];
  end;

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

Es wird die erste Spalte nicht berücksichtigt, also für die Spalten 2+n funktioniert es :gruebel:

[Jelly]

Probiers mal mit

Delphi-Quellcode:

if (gdSelected) in State) then
  begin
    DBGrid4.Canvas.Font.Color:=clblue;
    DBGrid4.Canvas.Font.Style:=[fsbold];
  end;

Deine erste Spalte hat wahrscheinlich noch zusätzlich den Fokus, so daß sich dein State = [gdFocused,gdSelected] zusammensetzt.

[Igotcha]

Jo, das war es, danke!