Kalender: Tag nur in einem Jahr hervorheben

[Aike]

Hallöchen!

Ich hab mich hier und bei den Schweizern informiert, aber leider nur sehr wenig über Kalender gefunden :oops:

Mein Problem sieht folgendermaßen aus:
Ich möchte z.B. nur den 10.09.2014 markiert haben (Da werde ich 30 #grusel#), aber in allen anderen Jahren soll keine Markierung stattfinden (Man will ja nicht jedes Jahr daran erinnert werden ;)). Leider muss ich zum Markieren die proc "GetMonthInfo(Sender:TObject; Month:Cardinal;
var MonthBoldInfo:Cardinal)" nutzen, die mir keinen Zugriff auf das aktuelle Jahr gewährt. Also hab ich hin und her probiert, bin aber nicht drauf gekommen (bin aber auch kein Kniffel-Fan :angel: ).

Habt ihr da 'ne Idee, wie ich das lösen könnte? :spin:

Ich danke euch schonmal für eure Hilfe!

Aike

[shmia]

Zitat:

Zitat von Aike

Mein Problem sieht folgendermaßen aus:
Ich möchte z.B. nur den 10.09.2014 markiert haben (Da werde ich 30 #grusel#), aber in allen anderen Jahren soll keine Markierung stattfinden (Man will ja nicht jedes Jahr daran erinnert werden ;)). Leider muss ich zum Markieren die proc "GetMonthInfo(Sender:TObject; Month:Cardinal;
var MonthBoldInfo:Cardinal)" nutzen, die mir keinen Zugriff auf das aktuelle Jahr gewährt.

Delphi-Quellcode:

procedure TForm1.GetMonthInfo(Sender:TObject; Month:Cardinal;var MonthBoldInfo:Cardinal);
var
   datum : TDateTime;
   Year, Month2, Day: Word
begin
   datum := (sender as TMonthCalendar).Date;
   DecodeDate(datum, Year, Month2, Day);
   if Year = 2014 then
   begin
      // Und jetzt wirds gruselig; ich bin/werde 30 !!