ПунктМеню.УдалитьСочетаниеКлавиш (MenuBarItem.RemoveShortcut) Метод

Копировать

Перем ТФ, ПунктМеню1;

Процедура ПриОткрытии() Экспорт
	ПунктМеню1.УдалитьСочетаниеКлавиш(ТФ.Клавиши.d_low);

	ТФ.Верхний.Текст = "Нажмите s в английской раскладке";
	Если ТФ.ПлатформаWin Тогда
		ТФ.ОтправитьКлавиши("s", Ложь, Ложь, Ложь);
	КонецЕсли;
КонецПроцедуры

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

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

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

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

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

ПунктМеню1.ДобавитьСочетаниеКлавиш(ТФ.Клавиши.s_low);
ПунктМеню1.ДобавитьСочетаниеКлавиш(ТФ.Клавиши.x_low);
ПунктМеню1.ДобавитьСочетаниеКлавиш(ТФ.Клавиши.d_low);
ПунктМеню1.УдалитьСочетаниеКлавиш(ТФ.Клавиши.d_low);

ПунктМеню1.СочетаниеКлавишДействие = ТФ.Действие(ЭтотОбъект, "СочетаниеКлавишДействие", ПунктМеню1);

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

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

Копировать

Перем ТФ, Стр, ПунктМеню1;

Процедура ПриОткрытии() Экспорт
	ПунктМеню1.УдалитьСочетаниеКлавиш(ТФ.Клавиши.d_low);

	ТФ.Верхний.Текст = "Нажмите s в английской раскладке";
	Если ТФ.ПлатформаWin Тогда
		ТФ.ОтправитьКлавиши("s", Ложь, Ложь, Ложь);
	КонецЕсли;
КонецПроцедуры

Процедура СочетаниеКлавишДействие() Экспорт
	Объект1 = ТФ.АргументыСобытия.Параметр;
	Список = Объект1.ПолучитьСочетаниеКлавиш();
	Стр = "";
	Для Каждого Эл Из Список Цикл
		Стр = Стр + "
		| " + Эл.Значение + " (" + Эл.Представление + ")";
	КонецЦикла;
	
	ТФ.Верхний.Текст = "
	|
	|
	|
	|
	|
	|
	|Нажмите s в английской раскладке
	|СочетаниеКлавиш для " + Объект1.Заголовок + " = " + Стр;
	ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик");
КонецПроцедуры

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

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

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

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

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

ПунктМеню1.ДобавитьСочетаниеКлавиш(ТФ.Клавиши.s_low);
ПунктМеню1.ДобавитьСочетаниеКлавиш(ТФ.Клавиши.x_low);
ПунктМеню1.ДобавитьСочетаниеКлавиш(ТФ.Клавиши.d_low);

ПунктМеню1.СочетаниеКлавишДействие = ТФ.Действие(ЭтотОбъект, "СочетаниеКлавишДействие", ПунктМеню1);

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

Сообщить(?(
Стр = "
| 115 (s_low)
| 120 (x_low)"
, "", "!!! ") + "ПунктМеню.УдалитьСочетаниеКлавиш (MenuBarItem.RemoveShortcut) Метод" + " " + ТекущаяДата() + Символы.ПС);