АргументыСобытия.ЭлементМеню (EventArgs.MenuItem) Свойство

Копировать

Перем ТФ, ПанельМеню1, ВсеЗакрыты, Таймер1, Таймер2;

Процедура ПриОткрытии() Экспорт
КонецПроцедуры

Процедура ПанельМеню1_ВсеЗакрыты() Экспорт
	ВсеЗакрыты = Истина;
	ТФ.Верхний.Текст = "
	|
	|
	|ПанельМеню1_ВсеЗакрыты " + ТекущаяУниверсальнаяДатаВМиллисекундах() + "
	|";
КонецПроцедуры

Процедура ПанельМеню1_Открыто() Экспорт
	АргументыСобытия = ТФ.АргументыСобытия;
	ТФ.Верхний.Текст = "
	|
	|
	|
	|
	|ПанельМеню1_Открыто " + ТекущаяУниверсальнаяДатаВМиллисекундах() + "
	|ЭлементМеню.Заголовок = " + АргументыСобытия.ЭлементМеню.Заголовок + "
	|";
КонецПроцедуры

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

ТФ.Верхний.Текст = "
|
|Откройте и затем закройте меню (F9)";

ПанельМеню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_ВсеЗакрыты");
ПанельМеню1.МенюОткрыто = ТФ.Действие(ЭтотОбъект, "ПанельМеню1_Открыто");

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

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

Копировать

Перем ТФ, ПанельМеню1, Таймер1, Открыто;

Процедура ПриОткрытии() Экспорт
КонецПроцедуры

Процедура ПанельМеню1_Открыто() Экспорт
	АргументыСобытия = ТФ.АргументыСобытия;
	Открыто = Истина;
	ТФ.Верхний.Текст = "
	|
	|
	|
	|
	|ПанельМеню1_Открыто " + ТекущаяУниверсальнаяДатаВМиллисекундах() + "
	|ЭлементМеню.Заголовок = " + АргументыСобытия.ЭлементМеню.Заголовок + "
	|";

	ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик1");
КонецПроцедуры

Процедура ТаймерТик1() Экспорт
	ТФ.Завершить();
КонецПроцедуры

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

ТФ.Верхний.Текст = "
|
|Откройте и затем закройте меню (F9)";

Таймер1 = ТФ.Таймер();
Таймер1.Интервал = 2000;
Таймер1.ПриСрабатыванииТаймера = ТФ.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера");

ПанельМеню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_Открыто");

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

Сообщить(?(
Открыто
, "", "!!! ") + "АргументыСобытия.ЭлементМеню (EventArgs.MenuItem) Свойство" + " " + ТекущаяДата() + Символы.ПС);