TMS TPlannerMonthView - Termine eines Tages ausgeben

[NicoleWagner]

AUSGANG:
Ich habe einen TPlannerMonthView und möchte ALLE Termine eines Tages ausgeben.
Dieser Kalender hat Felder mit dem Datum und in diese Felder werden die Tagestermine geklebt.

Ich wählte (was falsch sein könnte?) "OnDaySelect" der Komponente: Dieser Methode wird das Datum
selDate
übergeben, das jenen Tag enthält, den der Nutzer angeklickt hat.
Also sagen wir einmal den 14.12.2020 als Beispiel. Das stünde dann in selDate als TDate.

Mein Problem. Dieses Datum bleibt ident, auch wenn der Nutzer einen EINTRAG eines anderen Tages anklickt.
Sagen wir einmal er klickt auf einen Eintrag am 12.12.2020. Dann BLEIBT selDate auf dem 14.12.2020, doch ausgegeben wird der Text des angeklickten / gewählten Ereignisses.

Welchen Eintrag der User angeklickt hat und was dort steht, kann ich so ausgeben:
if assigned(Monatsansicht.Items.Selected)
then RichEdit_Tagesausgabe.Lines.Add(Monatsansicht.item s.selected.text.Text);

gibt mir z.B.: "Oma besuchen" vom 12.12.2020.

WUNSCH:
Was ich möchte. Sobald der Nutzer ein Datum anklickt, sollen ALLE Einträge dieses Tages ausgegeben werden.
Also es sollte stehen:
'12.12.2020: Oma besuchen, Franz besuchen, Fenster streichen."

FRAGE:
Gibt es ein Ereignis, das besser geeignet ist als OnDaySelect um das umzusetzen? Welches, bzw. wie sieht der Code aus?

Vermutlich ist er recht einfach, wenn man weiß, wie.

Danke!

[TiGü]

Es gibt noch TItemEvent, welches als Eventsignatur zum Beispiel am OnItemSelect hängt.
Dabei wird eine TPlannerItem-Instanz übergeben. Ich nehme an, dass dies der eigentliche Termin ist?!
Hier würdest du das klicken auf einen Termin eines anderen Tages mitbekommen.

Des Weiteren hat der TPlanerMonthView auch TPlannerMonthViewItems, über die du bestimmt iterieren und auswerten kannst.

Außerdem hat TMS auch ein Forum, wo du spezielle Fragen zu den Komponenten stellen kannst:
https://support.tmssoftware.com/c/vc...vcl-ui-pack/26

Es hat auch nicht jeder TMS-Komponenten im Einsatz.
Ich musste mir die oben skizzierten Ideen aus diesen mehr oder weniger legalen und veralteten Quelltextstand ermitteln:
http://www.bvbcode.com/code/dsepigku-1663448

[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;