ТочкаНаЭлементе(<Икс>, <Игрек>)
Тип: Точка (Point).
Вычисляет местоположение указанной точки на терминале в координаты на элементе.
Игрек = СтрокаСостояния1.Кадр.Игрек; Точка = СтрокаСостояния1.ТочкаНаЭлементе(5, Игрек);
Перем ТФ, СтрокаСостояния1; Процедура ПриОткрытии() Экспорт Игрек = СтрокаСостояния1.Кадр.Игрек; Точка = СтрокаСостояния1.ТочкаНаЭлементе(5, Игрек); Стр = "Левый верхний угол СтрокаСостояния1 имеет X = 0 и Y = " + Игрек + " |Для точки на терминале X = 5 и Y = " + Игрек + " |СтрокаСостояния1.ТочкаНаЭлементе(5, " + Игрек + ").Икс = " + Точка.Икс + " |ПанельМеню1.ТочкаНаЭлементе(5, " + Игрек + ").Игрек = " + Точка.Игрек; Икс = Точка.Икс; Игрек = Точка.Игрек; ТФ.Верхний.Текст = ТФ.Верхний.Текст + Стр; КонецПроцедуры Процедура ЭлементСтрокиСостояния1_Нажатие() Экспорт ТФ.Верхний.Текст = " |Элемент1 Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |"; КонецПроцедуры Процедура ЭлементСтрокиСостояния2_Нажатие() Экспорт ТФ.Верхний.Текст = ТФ.Верхний.Текст + " |Элемент2 Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |"; КонецПроцедуры Процедура ЭлементСтрокиСостояния3_Нажатие() Экспорт ТФ.Верхний.Текст = ТФ.Верхний.Текст + " |Элемент3 Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |"; КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); СтрокаСостояния1 = ТФ.СтрокаСостояния(); ТФ.Верхний.Текст = "Кликните по элементам в строке состояния"; ТФ.Верхний.Добавить(СтрокаСостояния1); ЭлементСтрокиСостояния1 = ТФ.ЭлементСтрокиСостояния(ТФ.Клавиши.s_low, "Элемент1"); ЭлементСтрокиСостояния1.Нажатие = ТФ.Действие(ЭтотОбъект, "ЭлементСтрокиСостояния1_Нажатие"); СтрокаСостояния1.Элементы.Добавить(ЭлементСтрокиСостояния1); ЭлементСтрокиСостояния2 = ТФ.ЭлементСтрокиСостояния(ТФ.Клавиши.d_low, "Элемент2"); ЭлементСтрокиСостояния2.Нажатие = ТФ.Действие(ЭтотОбъект, "ЭлементСтрокиСостояния2_Нажатие"); СтрокаСостояния1.Элементы.Добавить(ЭлементСтрокиСостояния2); ЭлементСтрокиСостояния3 = ТФ.ЭлементСтрокиСостояния(ТФ.Клавиши.f_low, "Элемент3"); ЭлементСтрокиСостояния3.Нажатие = ТФ.Действие(ЭтотОбъект, "ЭлементСтрокиСостояния3_Нажатие"); СтрокаСостояния1.Элементы.Добавить(ЭлементСтрокиСостояния3); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск();
Перем ТФ, СтрокаСостояния1, Икс; Процедура ПриОткрытии() Экспорт Игрек = СтрокаСостояния1.Кадр.Игрек; Точка = СтрокаСостояния1.ТочкаНаЭлементе(5, Игрек); Стр = "Левый верхний угол СтрокаСостояния1 имеет X = 0 и Y = " + Игрек + " |Для точки на терминале X = 5 и Y = " + Игрек + " |СтрокаСостояния1.ТочкаНаЭлементе(5, " + Игрек + ").Икс = " + Точка.Икс + " |ПанельМеню1.ТочкаНаЭлементе(5, " + Игрек + ").Игрек = " + Точка.Игрек; Икс = Точка.Икс; Игрек = Точка.Игрек; ТФ.Верхний.Текст = ТФ.Верхний.Текст + Стр; КонецПроцедуры Процедура ЭлементСтрокиСостояния1_Нажатие() Экспорт ТФ.Верхний.Текст = " |Элемент1 Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |"; КонецПроцедуры Процедура ЭлементСтрокиСостояния2_Нажатие() Экспорт ТФ.Верхний.Текст = ТФ.Верхний.Текст + " |Элемент2 Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |"; КонецПроцедуры Процедура ЭлементСтрокиСостояния3_Нажатие() Экспорт ТФ.Верхний.Текст = ТФ.Верхний.Текст + " |Элемент3 Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |"; КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); СтрокаСостояния1 = ТФ.СтрокаСостояния(); ТФ.Верхний.Текст = "Кликните по элементам в строке состояния"; ТФ.Верхний.Добавить(СтрокаСостояния1); ЭлементСтрокиСостояния1 = ТФ.ЭлементСтрокиСостояния(ТФ.Клавиши.s_low, "Элемент1"); ЭлементСтрокиСостояния1.Нажатие = ТФ.Действие(ЭтотОбъект, "ЭлементСтрокиСостояния1_Нажатие"); СтрокаСостояния1.Элементы.Добавить(ЭлементСтрокиСостояния1); ЭлементСтрокиСостояния2 = ТФ.ЭлементСтрокиСостояния(ТФ.Клавиши.d_low, "Элемент2"); ЭлементСтрокиСостояния2.Нажатие = ТФ.Действие(ЭтотОбъект, "ЭлементСтрокиСостояния2_Нажатие"); СтрокаСостояния1.Элементы.Добавить(ЭлементСтрокиСостояния2); ЭлементСтрокиСостояния3 = ТФ.ЭлементСтрокиСостояния(ТФ.Клавиши.f_low, "Элемент3"); ЭлементСтрокиСостояния3.Нажатие = ТФ.Действие(ЭтотОбъект, "ЭлементСтрокиСостояния3_Нажатие"); СтрокаСостояния1.Элементы.Добавить(ЭлементСтрокиСостояния3); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.ЗапуститьИЗавершить(); Сообщить(?( Икс = 5 , "", "!!! ") + "СтрокаСостояния.ТочкаНаЭлементе (StatusBar.ScreenToView) Метод" + " " + ТекущаяДата() + Символы.ПС);