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