Mega Code Archive

 

Categories / Delphi / VCL

 

Make some days bold in the tmonthcalendar

{ Use BoldDays to encode the days of the current month that should appear in bold. } { Mit BoldDays werden die Tage im aktuellen Monat codiert, die fett angezeigt werden sollen. } procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject; Month: Cardinal; var MonthBoldInfo: Cardinal); begin if Month = 4 then { April} MonthCalendar1.BoldDays([3,21,28],MonthBoldInfo); { Day 3, 21, 28 } end;