Надпись.УстановитьАвтоРазмер (Label.SetAutoSize) Метод

Копировать

Перем ТФ, Надпись1;

Процедура ПриОткрытии() Экспорт
	Надпись1.УстановитьАвтоРазмер();
КонецПроцедуры

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

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

Граница1 = ТФ.Граница();
Граница1.СтильГраницы = ТФ.СтильГраницы.Закругленная;
Надпись1.Граница = Граница1;
ТФ.Верхний.Добавить(Надпись1);

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

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

Копировать

Перем ТФ, Надпись1, Размер;

Процедура ПриОткрытии() Экспорт
	Надпись1.УстановитьАвтоРазмер();
	Размер = Надпись1.ПолучитьАвтоРазмер();
КонецПроцедуры

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

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

Граница1 = ТФ.Граница();
Граница1.СтильГраницы = ТФ.СтильГраницы.Закругленная;
Надпись1.Граница = Граница1;
ТФ.Верхний.Добавить(Надпись1);

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

Сообщить(?(
Размер.Ширина < 80
, "", "!!! ") + "Надпись.УстановитьАвтоРазмер (Label.SetAutoSize) Метод" + " " + ТекущаяДата() + Символы.ПС);