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