Календарь.ДатаИзменена (MonthCalendar.DateChanged) Свойство

Копировать     Выделить всё

Перем Ф, Календарь1;

Процедура Календарь1_ДатаИзменена() Экспорт
    Сообщить("Новая дата = " + Календарь1.НачальнаяДата);
    Сообщить("Диапазон = " + Календарь1.НачальнаяДата + " - " + Календарь1.КонечнаяДата);
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Календарь1 = Ф.Календарь();
Календарь1.Родитель = Форма1;
Календарь1.ДатаИзменена = Ф.Действие(ЭтотОбъект, "Календарь1_ДатаИзменена");

Ф.ЗапуститьОбработкуСобытий();

Копировать     Выделить всё

Перем Ф, Календарь1, Форма1;

Процедура Календарь1_ДатаИзменена() Экспорт
    // Сообщить("Новая дата = " + Календарь1.НачальнаяДата);
    // Сообщить("Диапазон = " + Календарь1.НачальнаяДата + " - " + Календарь1.КонечнаяДата);
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();
Ф.РазрешитьСобытия = Истина;

Календарь1 = Ф.Календарь();
Календарь1.Родитель = Форма1;
Календарь1.ДатаИзменена = Ф.Действие(ЭтотОбъект, "Календарь1_ДатаИзменена");

Ф.ВызватьСобытие(Календарь1, "ДатаИзменена");

Сообщить(?(Год(Календарь1.НачальнаяДата) = Год(ТекущаяДата()), "", "!!! ") + "Календарь.ДатаИзменена (MonthCalendar.DateChanged) Свойство" + " " + ТекущаяДата());