OpenDialog Constructor

Синтаксис

ДиалогОткрытия(<Заголовок>, <Сообщение>, <Икс>, <Игрек>, <Ширина>, <Высота>, <ЯзыкНадписей>)

Параметры

Заголовок (необязательный): Тип: Строка.; Заголовок для диалога открытия. Значение по умолчанию - "Диалог открытия".
Сообщение (необязательный): Тип: Строка.; Сообщение для диалога открытия. Значение по умолчанию - "Сообщение".
Икс (необязательный): Тип: Число.; Координата по оси икс левого верхнего угла диалога открытия. Значение по умолчанию - 1.
Игрек (необязательный): Тип: Число.; Координата по оси игрек левого верхнего угла диалога открытия. Значение по умолчанию - 1.
Ширина (необязательный): Тип: Число.; Ширина диалога открытия. Значение по умолчанию - 80.
Высота (необязательный): Тип: Число.; Высота диалога открытия. Значение по умолчанию - 20.
ЯзыкНадписей (необязательный): Тип: ЯзыкНадписей (LabelLanguage).; Язык надписей на элементах. Значение по умолчанию - Русский (Russian).

Описание

Создаёт новый экземпляр класса ДиалогОткрытия (OpenDialog).

Примечание

Пример

ДиалогОткрытия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) Конструктор" + " " + ТекущаяДата() + Символы.ПС);

Смотрите также

Библиотека OneScriptTerminalGui