Einzelnen Beitrag anzeigen

Aike

Registriert seit: 2. Okt 2004
319 Beiträge
 
#1

Mehere var. Tage in TMonthCalendar fett

  Alt 12. Jul 2006, 10:08
Hallöchen,

mich plagt da ein Problem mit dem Kalender. Ich möchte, dass einige Tage im Kalender fettgedruckt sind, damit der Anwender sofort sieht, dass an diesem Tag ein Termin sein wird. TMonthCalendar bietet die Funktion BoldDays(), aber er will alle Tage sofort eingetragen haben, denn sonst markiert er nur den letzten fett.

Da die Tage je nach Monat unterschiedlich sind/sein können, muss das aber erst ausgelesen werden. Gibt es eine Mögichkeit, wie ich die Tage in BoldDays() hineinbekomme?

Ich habe es damit probiert, aber wie oben geschrieben, wird dann nur der letzte fett:

Delphi-Quellcode:
var Termine:TStringList;
begin
  for i:=0 to Termine.Count-1 do //in Termine.Strings stehen die Tage
    Kalender.BoldDays([StrToInt(Termine.Strings[i])],MonthBoldInfo);
end;
Ich freue mich wie immer auf eure Vorschläge
Achim
  Mit Zitat antworten Zitat