Danke erstmal für die schnelle Antwort. Doch leider ist es nicht das, was ich gesucht habe.
In meinem Videoprogramm trage ich den Namen ein, an den ich das Video ausgeliehen habe. Wenn ich das Video zurück bekomme möchte ich diesen Namen durchstreichen und nicht löschen.
Angezeigt werden alle Videos in einem DBGrid als Übersicht.
Wenn ich das Video zurück bekomme speichere ich das Datum mit ab. Vielleicht kann man das mit nutzen.
So in der Art:
Delphi-Quellcode:
if (DataSource.DataSet.FieldByName('am').AsDateTime <= date) then
begin
Canvas.Brush.Color := clWhite;
end
else
begin
Canvas.Brush.Color := clTeal;
Canvas.Font.Color := clwindow;
Canvas.Font.Style := [fsStrikeOut];
end;
Mfg Norbert