ДиалогОткрытия.ЦветФокуса (OpenDialog.GetFocusColor) Метод

Копировать

Перем ТФ, ДиалогОткрытия1;

Процедура ПриОткрытии() Экспорт
	ЦветФокуса = ДиалогОткрытия1.ЦветФокуса();
	Стр = "ЦветФокуса() = " + ЦветФокуса + "
	|ОсновнойЦвет = " + ТФ.Цвет.Имя(ЦветФокуса.ОсновнойЦвет) + "
	|ЦветФона = " + ТФ.Цвет.Имя(ЦветФокуса.ЦветФона) + "
	|";
	ТФ.Уведомление().Показать(Стр, -1);
КонецПроцедуры

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

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

ДиалогОткрытия1.ЦветоваяСхема = ТФ.Цвета.Ошибка;

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

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

Копировать

Перем ТФ, ДиалогОткрытия1, ЦветФокуса;

Процедура ПриОткрытии() Экспорт
	ЦветФокуса = ДиалогОткрытия1.ЦветФокуса();
	Стр = "ЦветФокуса() = " + ЦветФокуса + "
	|ОсновнойЦвет = " + ТФ.Цвет.Имя(ЦветФокуса.ОсновнойЦвет) + "
	|ЦветФона = " + ТФ.Цвет.Имя(ЦветФокуса.ЦветФона) + "
	|";
	ТФ.Уведомление().Показать(Стр, -1);
КонецПроцедуры

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

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

ДиалогОткрытия1.ЦветоваяСхема = ТФ.Цвета.Ошибка;

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

Сообщить(?(
ТипЗнч(ЦветФокуса) = Тип("ТФАтрибут")
, "", "!!! ") + "ДиалогОткрытия.ЦветФокуса (OpenDialog.GetFocusColor) Метод" + " " + ТекущаяДата() + Символы.ПС);