Mega Code Archive

 

Categories / Delphi / Algorithm Math

 

How to make some Days bold in the TMonthCalendar

Title: How to make some Days bold in the TMonthCalendar 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;