Фильтр в диалоге выбора файла. Интерфейс "Такси"

08.12.14

✎

00:31

Здравствуйте. В связи с отказом от модальных окон так и не могу разобраться каким образом накладывать фильтр на диалог выбора файла при выборе по варианту, который описывает Павел Чистов здесь: http://1c.chistov.pro/2013/07/blog-post.html

Подскажите, пожалуйста, каким образом его установить. Заранее благодарю.

1 Wobland

08.12.14

✎

03:14

хорошо-то как. вижу подробные объяснения, подробных объяснений не понимаю

2 acanta

08.12.14

✎

03:16

коротко и ясно больше не объясняют.. только подробно и туманно.

3 termos

08.12.14

✎

13:46

(1) Хорошо, покажи, пожалуйста, где в статье указано каким образом наложить фильтр на расширение файла? Допустим, как это делается с ДиалогВыбораФайла.Фильтр.

4 ДенисЧ

08.12.14

✎

13:48

фд.Фильтр = "xls|*.xls|Все файлы|*.*"
Не работает?

5 termos

08.12.14

✎

13:53

(4) Там следующая реализация.

&НаКлиенте
Процедура ВыбратьИзображение(Команда)
    Оповещение = Новый ОписаниеОповещения("ОбработатьВыборФайла", ЭтотОбъект);
    НачатьПомещениеФайла(Оповещение,,,Истина,УникальныйИдентификатор);
КонецПроцедуры

&НаКлиенте
Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт
    Если Не Результат Тогда
        Возврат;
    КонецЕсли;
    Лого = Адрес;
КонецПроцедуры

6 termos

08.12.14

✎

13:54

(4) А в какой момент накладывать фильтр - разобраться не могу.

7 fly7

08.12.14

✎

13:58

(6) в момент
>>НачатьПомещениеФайла(Оповещение,,,Истина,УникальныйИдентификатор);
но там нет фильтров ((

8 Любопытная

08.12.14

✎

13:59

(6) ДиалогВыбораФайла не модальное окно, так что используйте его сначала, а потом уже можно НачатьПомещениеФайла, в которую передать адрес файла и в параметр Интерактивно установить Ложь

9 termos

08.12.14

✎

14:14

(8) Благодарю Вас! Сделал вот так.

&НаКлиенте
Процедура ВыбратьИзображение(Команда)
    Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    Диалог.Фильтр = "Изображение (*.jpg)|*.jpg";
    Если Диалог.Выбрать() Тогда
        Оповещение = Новый ОписаниеОповещения("ОбработатьВыборФайла", ЭтотОбъект);
        НачатьПомещениеФайла(Оповещение,,Диалог.ПолноеИмяФайла,Ложь,УникальныйИдентификатор);
    КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт
    Если Не Результат Тогда
        Возврат;
    КонецЕсли;
    Лого = Адрес;
КонецПроцедуры