Чтение и запись.
Тип: ВертикальноеВыравниваниеТекста (VerticalTextAlignment).
Возвращает или задает, как текст элемента выровнен вертикально. Изменение этого свойства повторно отобразит элемент.
Верхний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.ВертикальноеВыравниваниеТекста = ТФ.ВертикальноеВыравниваниеТекста.Середина; ТФ.Запуск();
Перем ТФ, ВертикальноеВыравниваниеТекста; Процедура ПриОткрытии() Экспорт ВертикальноеВыравниваниеТекста = ТФ.ВертикальноеВыравниваниеТекста.Середина; КонецПроцедуры ПодключитьВнешнююКомпоненту("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.ВертикальноеВыравниваниеТекста , "", "!!! ") + "Верхний.ВертикальноеВыравниваниеТекста (Toplevel.VerticalTextAlignment) Свойство" + " " + ТекущаяДата() + Символы.ПС);