DBGrid1DrawColumnCell <> Datumabfrage ?

[mkinzler]

Delphi-Quellcode:

if query1.FieldByName('Datum').Value <= Date() then begin
    dbgrid1.Canvas.Font.Color := $000000DF;
else if s = 'P2' then begin 
    dbgrid1.Canvas.Font.Color := clblack;
  end;
  // falls weder P1 noch P2, dann bleibt die Zeile wie Standard
  dbgrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;