Hallo zusammen,
ich experimentiere gerade mit der TCalendarPicker Komponente und versuche einen Datumsbereich in der Anzeige hervorzuheben. Dazu verwende ich das Ereignis "OnCalenderDrawItem". Das sieht dann in etwa so aus:
Delphi-Quellcode:
procedure TfrmGetDate.cpCalendarDrawDayItem(Sender: TObject; DrawParams: TDrawViewInfoParams; CalendarViewViewInfo: TCellItemViewInfo);
begin
if (??? >= MinDateTime) or (??? <= MaxDateTime) then
DrawParams.Font.Style := DrawParams.Font.Style + [fsBold]
else
DrawParams.Font.Style := DrawParams.Font.Style - [];
end;
Für die Fragezeichen würde ich gerne das Datum des aktuell auszugebenden Tags abfragen. Nur finde ich das nirgends. Oder habe ich Tomaten auf den Augen? CalendarViewViewInfo.Date liefert ja nur das aktuell selektierte Datum zurück...
Man sollte nie so viel zu tun haben, dass man zum Nachdenken keine Zeit mehr hat. (G.C. Lichtenberg)