ДиалогСохранения.ИмяФайла (SaveDialog.FileName) Свойство

Копировать

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

Процедура ПриОткрытии() Экспорт
	ТФ.Верхний.Текст = "ДиалогСохранения1 = " + ДиалогСохранения1 + "
	|Задайте имя файла и нажмите кнопку Сохранить";
	ДиалогСохранения1.ИмяФайла = "файл_1.txt";
КонецПроцедуры

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

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

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

ДиалогСохранения1.ДиалогЗакрыт = ТФ.Действие(ЭтотОбъект, "ДиалогЗакрыт");

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

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

Копировать

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

Процедура ПриОткрытии() Экспорт
	ТФ.Верхний.Текст = "ДиалогСохранения1 = " + ДиалогСохранения1 + "
	|Задайте имя файла и нажмите кнопку Сохранить";
	ДиалогСохранения1.ИмяФайла = "файл_1.txt";
	ДиалогСохранения1.КнопкаСохранить().УстановитьФокус();
	ТФ.ОтправитьКлавишуКонсоли(ТФ.КлавишиКонсоли.Enter);
КонецПроцедуры

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

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

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

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

ДиалогСохранения1.ДиалогЗакрыт = ТФ.Действие(ЭтотОбъект, "ДиалогЗакрыт");

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

Сообщить(?(
ТипЗнч(ДиалогСохранения) = Тип("ТфДиалогСохранения")
, "", "!!! ") + "ДиалогСохранения.ИмяФайла (SaveDialog.FileName) Свойство" + " " + ТекущаяДата() + Символы.ПС);