VPF::Календарь& Delphi - Форум программистов

Auron

Дата 3.10.2011, 15:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 25.3.2011

Репутация: нет
Всего: нет

Доброго времени суток. Вопрос состоит в том, что мне на форме нужно размещать календарь.на нем разместить красные даты календаря, но чтобы они динамически менялись при смене года.Я думал сделать массив с датами и разместить стандартный календарь но вопрос как поместить даты на сам календарь?

niteo

Дата 19.10.2011, 14:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 129
Регистрация: 23.11.2006
Где: Брянск

Репутация: нет
Всего: 1

Нарисуй свой календарь в StringGrid-е или поковыряй исходники календаря из вкладки Samples

--------------------

Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...

Snowy

Дата 19.10.2011, 17:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

TMonthCalendar
Событие OnGetMonthInfo (или OnGetMonthBoldInfo)
Метить дни нужно битовой маской - каждый бит означает число месяца.
Пример обработчика:

Код

procedure TForm1.MonthCalendar1GetMonthBoldInfo(Sender: TObject; Month,
  Year: Cardinal; var MonthBoldInfo: Cardinal);
begin
  case Month of
    1:  MonthCalendar1.BoldDays([1,2,3,4,5,6,7,8,9,10], MonthBoldInfo);
    10: MonthBoldInfo := 1 shl 20 or 1 shl 21 or 1 shl 22;
  end;
end;

Здесь показано два варианта задания дня:
Январь задается функцией, октябрь задается вручную установкой битов.
Если нужен календарь на год - нужно просто растянуть календарик пошире, чтобы поместилось 12 месяцев.
По умолчанию он имеет размер на 1 месяц..

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »