dbGrid Farbe der ausgewählten Zeile ändern

[Panschi]

Hallo,
Ich habe schon wieder ein Problem mit einem dbGrid. Mit der Prozedur OnDrawColumnCell werden bestimmte Zeilen des dbGrids in unterschiedlichen Farben angezeigt: hier der Code soweit:

Delphi-Quellcode:

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

var Farbe: TColor;

begin
  case ArrayVeraendert[QrySlave.RecNo].Farbe of
    1: Farbe := TColor($00B0FFFF);
    2: Farbe := TColor($00A69EFF);
    else Farbe := clWhite;
  end;
  //Hintergrundfarbe
  TDBGrid(Sender).Canvas.Brush.Color := Farbe;
  TDBGrid(Sender).Canvas.Brush.Style := bsSolid;
  TDBGrid(Sender).Canvas.Pen.Style := psclear;
  TDBGrid(Sender).Canvas.FillRect(Rect);
  //Text
  TDBGrid(Sender).Canvas.Pen.Style := psSolid;
  TDBGrid(Sender).Canvas.Pen.Color := clBlack;
  TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Das klappt soweit super, nur wird das Element, welches ich mit der Maus auswähle in weißer schrift geschrieben, was besonders bei weißem Hintergrund nervig ist. Was muss ich ändern, um die Schrift einfach immer Schwarz zu lassen?

[Alex.G]

Closed

[Panschi]

Delphi-Quellcode:

TDBGrid(Sender).Canvas.Font.Color := clBlack;

das fehlte! Wie Alex schon schrieb: Closed