АргументыСобытия.НовыйПунктМеню (EventArgs.NewMenuBarItem) Свойство

Копировать

Перем ТФ, _Файл, _Справка, Окно1, _Поиск, Выбранный;

Процедура ПриОткрытии() Экспорт
	Окно1.Текст = "
	|Открывайте попеременно меню Файл и меню Справка
	|";
КонецПроцедуры

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

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

Окно1 = ТФ.Окно("Результат действий");
Окно1.Игрек = ТФ.Позиция.Абсолютно(10);
Окно1.Заполнить();
ТФ.Верхний.Добавить(Окно1);

ТФ.Верхний.Текст = "
|
|
|
|
|
|
|
|Открывайте попеременно меню Файл и меню Справка";

_Меню = ТФ.ПанельМеню();
ТФ.Верхний.Добавить(_Меню);

_Файл = ТФ.ПунктМеню();
_Файл.Заголовок = "Файл";
_Меню.ПодМеню.Добавить(_Файл);

_Открыть = ТФ.ЭлементМеню();
_Открыть.Заголовок = "Открыть";
_Файл.Элементы.Добавить(_Открыть);

_Выход = ТФ.ЭлементМеню();
_Выход.Заголовок = "Выход";
_Файл.Элементы.Добавить(_Выход);

_Поиск = ТФ.ПунктМеню();
_Поиск.Заголовок = "Поиск";
_Меню.ПодМеню.Добавить(_Поиск);

_Найти = ТФ.ЭлементМеню();
_Найти.Заголовок = "Найти";
_Поиск.Элементы.Добавить(_Найти);

_Справка = ТФ.ПунктМеню();
_Справка.Заголовок = "Справка";
_Меню.ПодМеню.Добавить(_Справка);

_ОПрограмме = ТФ.ЭлементМеню();
_ОПрограмме.Заголовок = "ОПрограмме";
_Справка.Элементы.Добавить(_ОПрограмме);

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

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

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

Копировать

Перем ТФ, _Файл, _Справка, Окно1, _Поиск, Выбранный, _Меню, ПриОткрытии;

Процедура ПриОткрытии() Экспорт
	Окно1.Текст = "
	|Открывайте попеременно меню Файл и меню Справка
	|";
	_Меню.Открыть();
КонецПроцедуры

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

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

Окно1 = ТФ.Окно("Результат действий");
Окно1.Игрек = ТФ.Позиция.Абсолютно(10);
Окно1.Заполнить();
ТФ.Верхний.Добавить(Окно1);

ТФ.Верхний.Текст = "
|
|
|
|
|
|
|
|Открывайте попеременно меню Файл и меню Справка";

_Меню = ТФ.ПанельМеню();
ТФ.Верхний.Добавить(_Меню);

_Файл = ТФ.ПунктМеню();
_Файл.Заголовок = "Файл";
_Меню.ПодМеню.Добавить(_Файл);

_Открыть = ТФ.ЭлементМеню();
_Открыть.Заголовок = "Открыть";
_Файл.Элементы.Добавить(_Открыть);

_Выход = ТФ.ЭлементМеню();
_Выход.Заголовок = "Выход";
_Файл.Элементы.Добавить(_Выход);

_Поиск = ТФ.ПунктМеню();
_Поиск.Заголовок = "Поиск";
_Меню.ПодМеню.Добавить(_Поиск);

_Найти = ТФ.ЭлементМеню();
_Найти.Заголовок = "Найти";
_Поиск.Элементы.Добавить(_Найти);

_Справка = ТФ.ПунктМеню();
_Справка.Заголовок = "Справка";
_Меню.ПодМеню.Добавить(_Справка);

_ОПрограмме = ТФ.ЭлементМеню();
_ОПрограмме.Заголовок = "ОПрограмме";
_Справка.Элементы.Добавить(_ОПрограмме);

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

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

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