Nach markieren im DBGrid keine Schrift sichtbar ?

[Vader]

hallo,


habe den code stehen im ereigniss BGrid1DrawColumnCell

Delphi-Quellcode:

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

  if query1.FieldByName('Gültig bis Datum').Value <= Date() then
    dbgrid1.Canvas.Font.Color := $000000DF
else
    dbgrid1.Canvas.Font.Color := clblack;

  // falls weder P1 noch P2, dann bleibt die Zeile wie Standard
  dbgrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

jetzt habe ich ein problem wenn ich in der laufzeit eine zeile im DBGrid mit der Maus markiere sehe ich die
schrift nicht mehr, es ist alles blau ???
was ist da schuld ?

mfg vader