Кнопка.УдалитьСочетаниеКлавиш (Button.RemoveShortcut) Метод

Копировать

Перем ТФ;

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

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

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

Кнопка1 = ТФ.Кнопка();
Кнопка1.Текст = "Кнопка1";
Кнопка1.Икс = ТФ.Позиция.Абсолютно(1);
Кнопка1.Игрек = ТФ.Позиция.Абсолютно(1);
Кнопка1.Ширина = ТФ.Величина.Абсолютно(25);
Кнопка1.Высота = ТФ.Величина.Абсолютно(3);
Граница1 = ТФ.Граница();
Граница1.СтильГраницы = ТФ.СтильГраницы.Закругленная;
Кнопка1.Граница = Граница1;
ТФ.Верхний.Добавить(Кнопка1);

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

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

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

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

Копировать

Перем ТФ, Стр;

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

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

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

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

Кнопка1 = ТФ.Кнопка();
Кнопка1.Текст = "Кнопка1";
Кнопка1.Икс = ТФ.Позиция.Абсолютно(1);
Кнопка1.Игрек = ТФ.Позиция.Абсолютно(1);
Кнопка1.Ширина = ТФ.Величина.Абсолютно(25);
Кнопка1.Высота = ТФ.Величина.Абсолютно(3);
Граница1 = ТФ.Граница();
Граница1.СтильГраницы = ТФ.СтильГраницы.Закругленная;
Кнопка1.Граница = Граница1;
ТФ.Верхний.Добавить(Кнопка1);

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

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

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

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