Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TMonthCalendar, BoldDays 
:(
    Опции темы
Dr Smth
Дата 22.11.2005, 17:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Люди, помогите, кто знает, please.
Как работать с этой проклятой процедурой (имеется в виду MonthCalendar.BoldDays()).
PM MAIL WWW   Вверх
Snowy
Дата 22.11.2005, 18:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 192
Всего: 484
В справке пример есть.
Создаешь событие OnGetMonthInfo.
Пишешь обработчик:
Код

procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;
  Month: Cardinal; var MonthBoldInfo: Cardinal);
begin
  MonthCalendar1.BoldDays([1,8, 15, 22, 29, Month], MonthBoldInfo);
end;

Дни [1,8, 15, 22, 29, Month] будут толстыми.
PM MAIL   Вверх
Dr Smth
Дата 22.11.2005, 18:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Спасибо, но так эти дни получаются толстыми в любом месяце, а мне нужно в разных месяцах разные числа выделять. Как этого добиться?
PM MAIL WWW   Вверх
_hunter
Дата 22.11.2005, 19:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
Month менять smile


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Dr Smth
Дата 22.11.2005, 19:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Как его менять-то?
PM MAIL WWW   Вверх
_hunter
Дата 22.11.2005, 19:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
да как угодно...
Цитата
а мне нужно в разных месяцах разные числа выделять

из этого я делаю вывод что они ( месяцы ) у тебя по какому-то алгоритму получаются


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Dr Smth
Дата 22.11.2005, 19:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Собственно говоря, вот что нужно: просто выделить определённые даты. Пользователь щёлкает стрелки на компоненте, изменяя месяц, в соотвествии с этим подсвечиваются нужные даты для данного месяца. Этот Month имеет тип Cardinal, а что дальше - понять не могу. Как для разных месяцев подсвечивать разные даты? Пока не выходит. Пробовал далать проверку на месяц, и в соответствии с ней подсвечивать то, что нужно - не выходит: всё подряд становится жирным, проверка не действует.
PM MAIL WWW   Вверх
Snowy
Дата 22.11.2005, 22:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 192
Всего: 484
Цитата(Dr @ 22.11.2005, 18:52)
Спасибо, но так эти дни получаются толстыми в любом месяце, а мне нужно в разных месяцах разные числа выделять. Как этого добиться?

Цитата(_hunter @ 22.11.2005, 19:01)
Month менять

Нет, Month менять нельзя.
Month нам передается в событие OnGetMonthInfo.
То есть при листании календаря, вызывается это событие.
Ты смотришь, какой нынче месяц тебе передали и раскрашиваешь как тебе нужно.
Если ты заметил, то, в приведенном мной примере, не все месяцы раскрашиваются одинаково.
Вегда еще и красится число, совпадающее с номером месяца:
11 ноября, 12 декабля и т.п.
Месяц тебе уже дан свыше. Тебе нужно в обработчике только красить в соответствии со значением Month.
PM MAIL   Вверх
~FoX~
Дата 23.11.2005, 10:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


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

Репутация: 13
Всего: 68
Я бы сделал как нибудь так:

Код

type TMBoldDay = array[1..12, 1..3] of Cardinal;

const
  D: TMBoldDay =
                   ((1, 8, 15),
                    (2, 12, 18),
                    (3, 7, 6),
                    (4, 5, 9),
                    (1, 8, 15),
                    (2, 12, 18),
                    (3, 7, 6),
                    (4, 5, 9),
                    (1, 8, 15),
                    (2, 12, 18),
                    (3, 7, 6),
                    (4, 5, 9)); 
//.....................
procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;
  Month: Cardinal; var MonthBoldInfo: Cardinal);
begin
  MonthCalendar1.BoldDays(D[Month+1], MonthBoldInfo);
end;



--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Dr Smth
Дата 25.11.2005, 17:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Спасибо, ребята, это уже кое-что. В последнем коде только +1 не надо.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0907 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.