TCalendarView - Mehrfarbiger Zellenhintergrund

[Tim-94]

Hallo zusammen,

Ich experimentiere gerade mit der Komponente "TCalendarView" und wollte den Hintergrund einer Zelle (eines Tages) jeweils zur Hälfte mit unterschiedlichen Farben füllen, jedoch stehe ich da gerade etwas auf dem Schlauch... Im Ereignis "OnDrawDayItem" ändere ich die Hintergrundfarbe bisher folgendermaßen (bspw. um einen bestimmten Zeitraum anders einzufärben):

Code:

  // Hintergrundfarbe des Zeitraums testweise ändern
  if (CalendarViewViewInfo.Date >= StrToDate('13.06.2019')) and (CalendarViewViewInfo.Date <= StrToDate('17.06.2019')) then
    DrawParams.BkColor := clRed;

Rein vom Verständnis her müsste man doch die Koordinaten des Rects (der Zelle) nehmen und dann mittels Canvas etwas draufzeichnen, oder?
Kann mir da jemand weiterhelfen?

Beste Grüße,
Tim