ОформительТекста.ШиринаТекста (TextFormatter.GetTextWidth) Метод

Копировать

Перем ТФ, ОформительТекста1, ШиринаТекста;

Процедура ПриОткрытии() Экспорт
	ШиринаТекста = ОформительТекста1.ШиринаТекста(ОформительТекста1.Текст);
	ТФ.Верхний.Текст = "ОформительТекста1.ШиринаТекста = " + ШиринаТекста;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

Окно1 = ТФ.Окно("Окно1");
Окно1.Игрек = ТФ.Позиция.Абсолютно(11);
Окно1.Ширина = ТФ.Величина.Абсолютно(90);
ТФ.Верхний.Добавить(Окно1);

ОформительТекста1 = ТФ.ОформительТекста();
ОформительТекста1.Текст = 
"Давным-давно в городке на берегу Средиземного моря 
|жил старый столяр Джузеппе по прозванию Сизый Нос.
|Однажды ему попалось под руку полено, обыкновенное 
|полено для топки очага в зимнее время.
|– Неплохая вещь, – сказал сам себе Джузеппе, – можно 
|смастерить из него что-нибудь вроде 
|ножки для стола…";
Окно1.ОформительТекста = ОформительТекста1;

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");

ТФ.Запуск();

Копировать

Перем ТФ, ОформительТекста1, ШиринаТекста;

Процедура ПриОткрытии() Экспорт
	ШиринаТекста = ОформительТекста1.ШиринаТекста(ОформительТекста1.Текст);
	ТФ.Верхний.Текст = "ОформительТекста1.ШиринаТекста = " + ШиринаТекста;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

Окно1 = ТФ.Окно("Окно1");
Окно1.Игрек = ТФ.Позиция.Абсолютно(11);
Окно1.Ширина = ТФ.Величина.Абсолютно(90);
ТФ.Верхний.Добавить(Окно1);

ОформительТекста1 = ТФ.ОформительТекста();
ОформительТекста1.Текст = 
"Давным-давно в городке на берегу Средиземного моря 
|жил старый столяр Джузеппе по прозванию Сизый Нос.
|Однажды ему попалось под руку полено, обыкновенное 
|полено для топки очага в зимнее время.
|– Неплохая вещь, – сказал сам себе Джузеппе, – можно 
|смастерить из него что-нибудь вроде 
|ножки для стола…";
Окно1.ОформительТекста = ОформительТекста1;

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");
ТФ.ЗапуститьИЗавершить();

Сообщить(?(
ШиринаТекста = 301
, "", "!!! ") + "ОформительТекста.ШиринаТекста (TextFormatter.GetTextWidth) Метод" + " " + ТекущаяДата() + Символы.ПС);