Mehere var. Tage in TMonthCalendar fett

[Aike]

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

[Hawkeye219]

Hallo,

du könntest die Werte zunächst in einem dynamischen Array sammeln und dieses beim Aufruf der Methode BoldDays übergeben:

Delphi-Quellcode:

var Termine: TStringList;
    Days : array of LongWord;
    i : Integer;
begin
  SetLength (Days, Termine.Count);
  for i := 0 to Termine.Count - 1 do
    Days[i] := StrToInt(Termine.Strings[i]);
  Kalender.BoldDays(Days, MonthBoldInfo);
end;

Gruß Hawkeye