Daten bei TMonthCalendar markieren

[blackdrake]

Hallo.

Ich möchte bei einem TMonthCalendar bestimmte Daten markieren. Ich habe folgenden Codeteil gefunden:

Delphi-Quellcode:

procedure TMainForm.mntCalendarGetMonthInfo(Sender: TObject; Month: Cardinal;
  var MonthBoldInfo: Cardinal);
begin
  if Month = 10 then
    mntCalendar.BoldDays([1,2,5],MonthBoldInfo);
  if Month = 11 then
    mntCalendar.BoldDays([3,21,28],MonthBoldInfo);
end;

Die Probleme sind jetzt:

1. Ich möchte auch das Jahr überprüfen. Der 11.10.2007 soll also anders markiert werden als der 11.10.2006. YearOf(mntCalendar.Date) ist keine gute Lösung, da 3 Monate zugleich angezeigt werden und so würde bei der Anzeige des Januar 2007 der Dezember 2006 als Dezember 2007 gesehen werden, oder?

2. Ich möchte die Datumsangaben möglichst mit 2 verschiedenen Merkmalen versehen. Wie kann ich eine Zahl rot schreiben lassen oder unterlegen?

3. Wie kann ich ein dynamisches Array [1, 5, 12] während der Laufzeit erstellen? Ich möchte Daten auslesen und dementsprechend eine unbekannte Anzahl von Tagen markieren.

Hat jemand Ratschläge für mich?

Gruß
blackdrake