ТерминалФормыДляОдноСкрипта.КонтекстноеМеню (OneScriptTerminalGui.ContextMenu) Метод

Копировать

Перем ТФ, Окно1, КонтекстноеМеню1, Успех;

Процедура ПриОткрытии() Экспорт
	Окно1.Текст = "Вызовите контекстное меню нажав клавишу s (в англ. раскладке). 
	|Нажмите пункт - Да, вижу меню.
	|или w для выхода.";
КонецПроцедуры

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

Процедура Меню_Нажатие() Экспорт
	Окно1.Текст = "Меню_Нажатие()" + "
	|Вызовите контекстное меню нажав клавишу s (в англ. раскладке). 
	|Нажмите пункт - Да, вижу меню.
	|или w для выхода.";
КонецПроцедуры

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

Окно1 = ТФ.Верхний.Добавить(ТФ.Окно("Окно1", 2, 6));
Окно1.Заполнить(ТФ.Ширина / 2, ТФ.Высота / 2);
Окно1.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Окно1.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.ЯркоГолубой, ТФ.Цвет.Синий);
Окно1.ЦветоваяСхема.Фокус = ТФ.Атрибут(ТФ.Цвет.ЯркоГолубой, ТФ.Цвет.Синий);

КонтекстноеМеню1 = ТФ.КонтекстноеМеню();
ПунктМеню1 = ТФ.ПунктМеню();
ЭлементМеню1 = ПунктМеню1.Элементы.Добавить(ТФ.ЭлементМеню("Меню не вижу"));
ЭлементМеню2 = ПунктМеню1.Элементы.Добавить(ТФ.ЭлементМеню("Да, вижу меню."));
ЭлементМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "Меню_Нажатие");
КонтекстноеМеню1.ПодМеню = ПунктМеню1;

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

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

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

Копировать

Перем ТФ, Окно1, КонтекстноеМеню1, Успех;

Процедура ПриОткрытии() Экспорт
	Окно1.Текст = "Вызовите контекстное меню нажав клавишу s (в англ. раскладке). 
	|Нажмите пункт - Да, вижу меню.
	|или w для выхода.";
КонецПроцедуры

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

Процедура Меню_Нажатие() Экспорт
	Окно1.Текст = "Меню_Нажатие()" + "
	|Вызовите контекстное меню нажав клавишу s (в англ. раскладке). 
	|Нажмите пункт - Да, вижу меню.
	|или w для выхода.";
	Успех = Истина;
	ТФ.Завершить();
КонецПроцедуры

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

Окно1 = ТФ.Верхний.Добавить(ТФ.Окно("Окно1", 2, 6));
Окно1.Заполнить(ТФ.Ширина / 2, ТФ.Высота / 2);
Окно1.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Окно1.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.ЯркоГолубой, ТФ.Цвет.Синий);
Окно1.ЦветоваяСхема.Фокус = ТФ.Атрибут(ТФ.Цвет.ЯркоГолубой, ТФ.Цвет.Синий);

КонтекстноеМеню1 = ТФ.КонтекстноеМеню();
ПунктМеню1 = ТФ.ПунктМеню();
ЭлементМеню1 = ПунктМеню1.Элементы.Добавить(ТФ.ЭлементМеню("Меню не вижу"));
ЭлементМеню2 = ПунктМеню1.Элементы.Добавить(ТФ.ЭлементМеню("Да, вижу меню."));
ЭлементМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "Меню_Нажатие");
КонтекстноеМеню1.ПодМеню = ПунктМеню1;

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

Успех = Ложь;

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

Сообщить(?(
Успех
, "", "!!! ") + "ТерминалФормыДляОдноСкрипта.КонтекстноеМеню (OneScriptTerminalGui.ContextMenu) Метод" + " " + ТекущаяДата() + Символы.ПС);