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