TMS TPlannerMonthView - Termine eines Tages ausgeben

[NicoleWagner]

Danke für die Mühe, die Du Dir gemacht hast!
Daraus konnte ich diese Lösung ableiten und der Gemeinschaft zur Verfügung stellen:

Hinweis für alle, die hier eines Tages suchen sollten:
Termine in TPlannerItem werden immer mit Datum UND Zeit gespeichert. Wird nur das Datum übergeben, so wird die Zeit auf Null = Mitternacht gesetzt. Da ich die Komponente Monatsansicht (TMonthView) gewählt habe, vernachlässige ich die Tagesstunde.

Die Lösung unten iteriert über alle Einträge, ob sie innerhalb des angeklickten Datums lägen.
Wenn ja, werden sie in einem TRichtEdit ausgegeben:


procedure TMain.MonatsansichtDaySelect(Sender: TObject; SelDate: TDateTime);

Var i: integer;
dat_geklickt, dat_vorhanden: TDate;

begin
RichEdit_Tagesausgabe.Lines.Clear; // sonst werden das immer mehr Zeilen
dat_geklickt:=trunc(selDate); // Datumsfeld, in das der user klickte
RichEdit_Tagesausgabe.Lines.Add('zuletzt gewähltes Datum: ' + DateToStr(dat_geklickt));

for i := 0 to Monatsansicht.Items.Count-1 do begin
dat_vorhanden:=trunc(Monatsansicht.Items[i].ItemStartTime);
if dat_vorhanden = dat_geklickt then
RichEdit_Tagesausgabe.Lines.Add(Monatsansicht.Item s[i].Text.Text);
end;
end;