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