Надпись.ТочкаНаЭлементе (Label.ScreenToView) Метод

Копировать

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

Процедура ПриОткрытии() Экспорт
	Точка = Надпись1.ТочкаНаЭлементе(45, 10);
	Стр = "Левый верхний угол Надпись1 имеет X = 40 и Y = 5 
	|Для точки на терминале X = 45 и Y = 10 
	|Надпись1.ТочкаНаЭлементе(45, 10).Икс = " + Точка.Икс + "
	|Надпись1.ТочкаНаЭлементе(45, 10).Игрек = " + Точка.Игрек;
	ТФ.Уведомление().Показать(Стр, -1);
КонецПроцедуры

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

Надпись1 = ТФ.Верхний.Добавить(ТФ.Надпись("Текст для Надпись1", 2, 2));
Надпись1.ЦветоваяСхема = ТФ.Цвета.Ошибка;

Надпись1.Икс = ТФ.Позиция.Абсолютно(40);
Надпись1.Игрек = ТФ.Позиция.Абсолютно(5);
Надпись1.Ширина = ТФ.Величина.Абсолютно(70);
Надпись1.Высота = ТФ.Величина.Абсолютно(20);

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

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

Копировать

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

Процедура ПриОткрытии() Экспорт
	Точка = Надпись1.ТочкаНаЭлементе(45, 10);
	Стр = "Левый верхний угол Надпись1 имеет X = 40 и Y = 5 
	|Для точки на терминале X = 45 и Y = 10 
	|Надпись1.ТочкаНаЭлементе(45, 10).Икс = " + Точка.Икс + "
	|Надпись1.ТочкаНаЭлементе(45, 10).Игрек = " + Точка.Игрек;
	ТФ.Уведомление().Показать(Стр, -1);
КонецПроцедуры

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

Надпись1 = ТФ.Верхний.Добавить(ТФ.Надпись("Текст для Надпись1", 2, 2));
Надпись1.ЦветоваяСхема = ТФ.Цвета.Ошибка;

Надпись1.Икс = ТФ.Позиция.Абсолютно(40);
Надпись1.Игрек = ТФ.Позиция.Абсолютно(5);
Надпись1.Ширина = ТФ.Величина.Абсолютно(70);
Надпись1.Высота = ТФ.Величина.Абсолютно(20);

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

Сообщить(?(
Точка.Икс = 5 и 
Точка.Игрек = 5
, "", "!!! ") + "Надпись.ТочкаНаЭлементе (Label.ScreenToView) Метод" + " " + ТекущаяДата() + Символы.ПС);