日立控件的标记特殊日期

看下面的日历控件，其中的3、21、28这几天，是粗体显示的，那么如何做到呢？

{

 Use BoldDays to encode the days of the current month

 that should appear in bold.

}

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;