Помощь - Поиск - Пользователи - Календарь
Полная версия: Выделение дней в календаре
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Delphi
Oleg77
Хочется сделать программу для расчета рабочих дней людей,работающих
посменно(сутки-трое ,например).Результат-рабочие дни, хочу выделять на календаре.
Как это сделать? Есть метод BoldDays и событие OnGetMonthInfo в TMonthCalendar,
но никак не пойму как это работает и как передаются параметры.Как например выделить
1,4,7,и т.д.сентября 2005 года?Помогите,please.
volvo
Цитата(Oleg77 @ 17.09.2005 19:15)
Как например выделить 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;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.