|
...make some Days bold in the TMonthCalendar?
|
| Autor:
Thomas Stutz |
| [ Print tip
] | | |
{
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;
|
