Выделение дней в календаре Опции

[Oleg77]

Хочется сделать программу для расчета рабочих дней людей,работающих
посменно(сутки-трое ,например).Результат-рабочие дни, хочу выделять на календаре.
Как это сделать? Есть метод BoldDays и событие OnGetMonthInfo в TMonthCalendar,
но никак не пойму как это работает и как передаются параметры.Как например выделить
1,4,7,и т.д.сентября 2005 года?Помогите,please.

Сообщение отредактировано: Oleg77 - 17.09.2005 19:17

[volvo]

Как например выделить 1,4,7, и т.д. сентября 2005 года?

Ну, наверное, вот так:

procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;
  Month: Cardinal; var MonthBoldInfo: Cardinal);
Var mYear, mMonth, mDay: Word;
Begin
  DecodeDate(monthcalendar1.date, mYear, mMonth, mDay);
  if mYear = 2005 then { Проверяешь, что выбран именно 2005 год }
    case month of
      ...
      9 : monthcalendar1.BoldDays([1, 4, 7], MonthBoldInfo); { Сентябрь }
      ...
    end;
end;