...make some Days bold in the TMonthCalendar?

Author: Thomas Stutz

Category: VCL

{
  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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base