ДиалогСохранения.ДобавитьСочетаниеКлавиш (SaveDialog.AddShortcut) Метод

Копировать

Перем ТФ, Таймер1, ДиалогСохранения1;

Процедура ПриОткрытии() Экспорт
	ТФ.Верхний.Текст = "Сочетание клавиш для ДиалогСохранения1 - s. Нажмите.";
	Таймер1.Начать();
	ДиалогСохранения1.КнопкаОтмена().УстановитьФокус();
КонецПроцедуры

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

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

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

ДиалогСохранения1 = ТФ.Верхний.Добавить(ТФ.ДиалогСохранения("Диалог сохранения", "Сообщение", 3, 5));
ТипыФайлов = Новый Массив();
ТипыФайлов.Добавить(".txt");
ТипыФайлов.Добавить(".bin");
ТипыФайлов.Добавить(".xml");
ТипыФайлов.Добавить(".json");
ДиалогСохранения1.ДопустимыеФайлы = ТипыФайлов;
ДиалогСохранения1.ДобавитьСочетаниеКлавиш(ТФ.Клавиши.s_low);
ДиалогСохранения1.ДобавитьСочетаниеКлавиш(ТФ.Клавиши.d_low);
ДиалогСохранения1.СочетаниеКлавишДействие = ТФ.Действие(ЭтотОбъект, "СочетаниеКлавишДействие", ДиалогСохранения1);
ДиалогСохранения1.ПоказатьДиалог();

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

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

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

Копировать

Перем ТФ, Таймер1, ДиалогСохранения1, СочетаниеКлавишДействие;

Процедура ПриОткрытии() Экспорт
	ТФ.Верхний.Текст = "Сочетание клавиш для ДиалогСохранения1 - s. Нажмите.";
	ДиалогСохранения1.КнопкаОтмена().УстановитьФокус();
КонецПроцедуры

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

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

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

ДиалогСохранения1 = ТФ.Верхний.Добавить(ТФ.ДиалогСохранения("Диалог сохранения", "Сообщение", 3, 5));
ТипыФайлов = Новый Массив();
ТипыФайлов.Добавить(".txt");
ТипыФайлов.Добавить(".bin");
ТипыФайлов.Добавить(".xml");
ТипыФайлов.Добавить(".json");
ДиалогСохранения1.ДопустимыеФайлы = ТипыФайлов;
ДиалогСохранения1.ДобавитьСочетаниеКлавиш(ТФ.Клавиши.s_low);
ДиалогСохранения1.ДобавитьСочетаниеКлавиш(ТФ.Клавиши.d_low);
ДиалогСохранения1.СочетаниеКлавишДействие = ТФ.Действие(ЭтотОбъект, "СочетаниеКлавишДействие", ДиалогСохранения1);
ДиалогСохранения1.ПоказатьДиалог();

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

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

Сообщить(?(
СочетаниеКлавишДействие
, "", "!!! ") + "ДиалогСохранения.ДобавитьСочетаниеКлавиш (SaveDialog.AddShortcut) Метод" + " " + ТекущаяДата() + Символы.ПС);