Чтение и запись.
Тип: Действие (Action).
Возвращает или задает код для события закрытия диалога.
Отправитель (Sender) |
Возвращает источник (объект) последнего события. |
Параметр (Parameter) |
Возвращает объект, заданный при установке обработчика события, для передачи в обработчик события. |
ПутьКаталога (DirectoryPath) |
Возвращает абсолютный путь до каталога. |
ПутьФайла (FilePath) |
Возвращает абсолютный путь до файла. |
РезультатДиалога (DialogResult) |
Возвращает значение перечисления РезультатДиалога (DialogResult), указывающее, какие кнопки были нажаты в диалоговом окне. |
Файлы (FilePaths) |
Возвращает массив путей выбранных файлов. |
Элемент (View) |
Возвращает элемент. |
ДиалогОткрытия1.ДиалогЗакрыт = ТФ.Действие(ЭтотОбъект, "ДиалогЗакрыт");
Перем ТФ, ДиалогОткрытия1; Процедура ПриОткрытии() Экспорт ДиалогОткрытия = ДиалогОткрытия1; ТФ.Верхний.Текст = "ДиалогОткрытия1 = " + ДиалогОткрытия + " |Выберите какой либо файл и нажмите кнопку Открыть"; КонецПроцедуры Процедура ДиалогЗакрыт() Экспорт АргументыСобытия = ТФ.АргументыСобытия; Если АргументыСобытия.РезультатДиалога = ТФ.РезультатДиалога.ОК Тогда Текст = " |Отправитель = " + АргументыСобытия.Отправитель + " |Параметр = " + АргументыСобытия.Параметр + " |ПутьКаталога = " + АргументыСобытия.ПутьКаталога + " |ПутьФайла = " + АргументыСобытия.ПутьФайла + " |РезультатДиалога = " + АргументыСобытия.РезультатДиалога + " |Файлы = " + АргументыСобытия.Файлы + " |Элемент = " + АргументыСобытия.Элемент + " |"; Иначе Текст = " |РезультатДиалога = " + АргументыСобытия.РезультатДиалога; КонецЕсли; ТФ.Верхний.Текст = Текст; ДиалогОткрытия = АргументыСобытия.Элемент; КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); ДиалогОткрытия1 = ТФ.ДиалогОткрытия(, , , 5); ДиалогОткрытия1.Заголовок = "Диалог открытия"; ДиалогОткрытия1.Сообщение = "Сообщение"; ТипыФайлов = Новый Массив(); ТипыФайлов.Добавить(".txt;.bin;.xml;.json"); ТипыФайлов.Добавить(".txt"); ТипыФайлов.Добавить(".bin"); ТипыФайлов.Добавить(".xml"); ТипыФайлов.Добавить(".json"); ДиалогОткрытия1.ДопустимыеФайлы = ТипыФайлов; ТФ.Верхний.Добавить(ДиалогОткрытия1); ДиалогОткрытия1.ДиалогЗакрыт = ТФ.Действие(ЭтотОбъект, "ДиалогЗакрыт"); ДиалогОткрытия1.ПоказатьДиалог(); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск();
Перем ТФ, ДиалогОткрытия1, ДиалогОткрытия; Процедура ПриОткрытии() Экспорт ТФ.Верхний.Текст = "ДиалогОткрытия1 = " + ДиалогОткрытия1 + " |Выберите какой либо файл и нажмите кнопку Открыть"; Если ТФ.ПлатформаWin Тогда ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик"); КонецЕсли; КонецПроцедуры Процедура ДиалогЗакрыт() Экспорт АргументыСобытия = ТФ.АргументыСобытия; Если АргументыСобытия.РезультатДиалога = ТФ.РезультатДиалога.ОК Тогда Текст = " |Отправитель = " + АргументыСобытия.Отправитель + " |Параметр = " + АргументыСобытия.Параметр + " |ПутьКаталога = " + АргументыСобытия.ПутьКаталога + " |ПутьФайла = " + АргументыСобытия.ПутьФайла + " |РезультатДиалога = " + АргументыСобытия.РезультатДиалога + " |Файлы = " + АргументыСобытия.Файлы + " |Элемент = " + АргументыСобытия.Элемент + " |"; Иначе Текст = " |РезультатДиалога = " + АргументыСобытия.РезультатДиалога; КонецЕсли; ТФ.Верхний.Текст = Текст; ДиалогОткрытия = АргументыСобытия.Элемент; ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик1"); КонецПроцедуры Процедура ТаймерТик() Экспорт ТФ.ОтправитьКлавишуКонсоли(ТФ.КлавишиКонсоли.Escape); КонецПроцедуры Процедура ТаймерТик1() Экспорт ТФ.Завершить(); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); ДиалогОткрытия1 = ТФ.ДиалогОткрытия(, , , 5); ДиалогОткрытия1.Заголовок = "Диалог открытия"; ДиалогОткрытия1.Сообщение = "Сообщение"; ТипыФайлов = Новый Массив(); ТипыФайлов.Добавить(".txt;.bin;.xml;.json"); ТипыФайлов.Добавить(".txt"); ТипыФайлов.Добавить(".bin"); ТипыФайлов.Добавить(".xml"); ТипыФайлов.Добавить(".json"); ДиалогОткрытия1.ДопустимыеФайлы = ТипыФайлов; ТФ.Верхний.Добавить(ДиалогОткрытия1); ДиалогОткрытия1.ДиалогЗакрыт = ТФ.Действие(ЭтотОбъект, "ДиалогЗакрыт"); ДиалогОткрытия1.ПоказатьДиалог(); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск(); Сообщить(?( ТипЗнч(ДиалогОткрытия) = Тип("ТфДиалогОткрытия") , "", "!!! ") + "ДиалогОткрытия.ДиалогЗакрыт (OpenDialog.DialogClosed) Событие" + " " + ТекущаяДата() + Символы.ПС);