ПолеДаты(<Дата>, <Икс>, <Игрек>)
Тип: ПолеДаты (DateField).
Создаёт новый экземпляр класса ПолеДаты (DateField).
ПолеДаты1 = Окно1.Добавить(ТФ.ПолеДаты(ТекущаяДата()));
Перем ТФ, Окно1, ПолеДаты1, ПолеДаты; Процедура ПриОткрытии() Экспорт ПолеДаты = ПолеДаты1; Окно1.Текст = "Измените значение лет, месяцев, дней"; КонецПроцедуры Процедура ПолеДаты1_ДатаИзменена() Экспорт АргументыСобытия = ТФ.АргументыСобытия; Окно1.Текст = "Формат даты = " + АргументыСобытия.ФорматДаты + " |Было лет = " + АргументыСобытия.БылоГод + " |Стало лет = " + АргументыСобытия.СталоГод + " |Было месяцев = " + АргументыСобытия.БылоМесяц + " |Стало месяцев = " + АргументыСобытия.СталоМесяц + " |Было дней = " + АргументыСобытия.БылоДень + " |Стало дней = " + АргументыСобытия.СталоДень + " |Было тактов = " + АргументыСобытия.БылоТактов + " |Стало тактов = " + АргументыСобытия.СталоТактов; КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); Окно1 = ТФ.Верхний.Добавить(ТФ.Окно("Окно1", 0, 0)); Окно1.Заполнить(); Окно1.ЦветоваяСхема = ТФ.ЦветоваяСхема(); Окно1.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.Синий, ТФ.Цвет.Серый); Окно1.ЦветоваяСхема.Фокус = ТФ.Атрибут(ТФ.Цвет.ЯркоГолубой, ТФ.Цвет.ТемноСерый); ПолеДаты1 = Окно1.Добавить(ТФ.ПолеДаты(ТекущаяДата())); ПолеДаты1.Центр(); ПолеДаты1.ЦветоваяСхема = ТФ.Цвета.Основа; ПолеДаты1.ДатаИзменена = ТФ.Действие(ЭтотОбъект, "ПолеДаты1_ДатаИзменена"); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск();
Перем ТФ, Окно1, ПолеДаты1, ПолеДаты; Процедура ПриОткрытии() Экспорт ПолеДаты = ПолеДаты1; Окно1.Текст = "Измените значение лет, месяцев, дней"; КонецПроцедуры Процедура ПолеДаты1_ДатаИзменена() Экспорт АргументыСобытия = ТФ.АргументыСобытия; Окно1.Текст = "Формат даты = " + АргументыСобытия.ФорматДаты + " |Было лет = " + АргументыСобытия.БылоГод + " |Стало лет = " + АргументыСобытия.СталоГод + " |Было месяцев = " + АргументыСобытия.БылоМесяц + " |Стало месяцев = " + АргументыСобытия.СталоМесяц + " |Было дней = " + АргументыСобытия.БылоДень + " |Стало дней = " + АргументыСобытия.СталоДень + " |Было тактов = " + АргументыСобытия.БылоТактов + " |Стало тактов = " + АргументыСобытия.СталоТактов; КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); Окно1 = ТФ.Верхний.Добавить(ТФ.Окно("Окно1", 0, 0)); Окно1.Заполнить(); Окно1.ЦветоваяСхема = ТФ.ЦветоваяСхема(); Окно1.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.Синий, ТФ.Цвет.Серый); Окно1.ЦветоваяСхема.Фокус = ТФ.Атрибут(ТФ.Цвет.ЯркоГолубой, ТФ.Цвет.ТемноСерый); ПолеДаты1 = Окно1.Добавить(ТФ.ПолеДаты(ТекущаяДата())); ПолеДаты1.Центр(); ПолеДаты1.ЦветоваяСхема = ТФ.Цвета.Основа; ПолеДаты1.ДатаИзменена = ТФ.Действие(ЭтотОбъект, "ПолеДаты1_ДатаИзменена"); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.ЗапуститьИЗавершить(); Сообщить(?( ТипЗнч(ПолеДаты) = Тип("ТфПолеДаты") , "", "!!! ") + "ТерминалФормыДляОдноСкрипта.ПолеДаты (OneScriptTerminalGui.DateField) Метод" + " " + ТекущаяДата() + Символы.ПС);