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