Диалог выбора картинки из библиотеки картинок

&НаСервереБезКонтекста
Функция ПолучитьСписокКартинок()
    СписокКартинок = Новый СписокЗначений;

    ИменаКартинок = Новый Массив;
    #Область ИменаКартинок
    ИменаКартинок.Добавить("АктивироватьЗадачу");
    ИменаКартинок.Добавить("АктивныеПользователи");
    ИменаКартинок.Добавить("БизнесПроцесс");
    ИменаКартинок.Добавить("БизнесПроцессОбъект");
    ИменаКартинок.Добавить("ВводНаОсновании");
    ИменаКартинок.Добавить("ВидРасчета");
    ИменаКартинок.Добавить("ВложеннаяТаблица");
    ИменаКартинок.Добавить("ВнешнийИсточникДанных");
    ИменаКартинок.Добавить("ВнешнийИсточникДанныхКуб");
    ИменаКартинок.Добавить("ВнешнийИсточникДанныхКубТаблицаИзмерения");
    ИменаКартинок.Добавить("ВнешнийИсточникДанныхТаблица");
    ИменаКартинок.Добавить("ВнешнийИсточникДанныхФункция");
    ИменаКартинок.Добавить("ВосстановитьЗначения");
    ИменаКартинок.Добавить("Вперед");
    ИменаКартинок.Добавить("ВыборКомпоновкиДанных");
    ИменаКартинок.Добавить("ВыборКомпоновкиДанныхНедоступный");
    ИменаКартинок.Добавить("Выбрать");
    ИменаКартинок.Добавить("ВыбратьВерхнийУровень");
    ИменаКартинок.Добавить("ВыбратьЗначение");
    ИменаКартинок.Добавить("ВыбратьИзСписка");
    ИменаКартинок.Добавить("ВыбратьТип");
    ИменаКартинок.Добавить("ВывестиСписок");
    ИменаКартинок.Добавить("ВыполнитьЗадачу");
    ИменаКартинок.Добавить("ГеографическаяСхема");
    ИменаКартинок.Добавить("ГрафическаяСхема");
    ИменаКартинок.Добавить("Дебет");
    ИменаКартинок.Добавить("ДебетКредит");
    ИменаКартинок.Добавить("Дендрограмма");
    ИменаКартинок.Добавить("Диаграмма");
    ИменаКартинок.Добавить("ДиаграммаГанта");
    ИменаКартинок.Добавить("ДобавитьВИзбранное");
    ИменаКартинок.Добавить("ДобавитьЭлементСписка");
    ИменаКартинок.Добавить("Документ");
    ИменаКартинок.Добавить("ДокументОбъект");
    ИменаКартинок.Добавить("ЖурналДокументов");
    ИменаКартинок.Добавить("ЖурналРегистрации");
    ИменаКартинок.Добавить("ЖурналРегистрацииПоПользователю");
    ИменаКартинок.Добавить("ЗагрузитьНастройкиОтчета");
    ИменаКартинок.Добавить("Задача");
    ИменаКартинок.Добавить("ЗадачаОбъект");
    ИменаКартинок.Добавить("ЗакончитьРедактирование");
    ИменаКартинок.Добавить("Закрыть");
    ИменаКартинок.Добавить("Заменить");
    ИменаКартинок.Добавить("Записать");
    ИменаКартинок.Добавить("ЗаписатьИЗакрыть");
    ИменаКартинок.Добавить("ЗаписатьИзменения");
    ИменаКартинок.Добавить("ЗатенитьФлажки");
    ИменаКартинок.Добавить("ЗафиксироватьТаблицу");
    ИменаКартинок.Добавить("ИерархическийПросмотр");
    ИменаКартинок.Добавить("Изменить");
    ИменаКартинок.Добавить("ИзменитьФорму");
    ИменаКартинок.Добавить("ИзменитьЭлементСписка");
    ИменаКартинок.Добавить("Измерение");
    ИменаКартинок.Добавить("ИсторияОтборов");
    ИменаКартинок.Добавить("Календарь");
    ИменаКартинок.Добавить("Калькулятор");
    ИменаКартинок.Добавить("Картинка");
    ИменаКартинок.Добавить("Константа");
    ИменаКартинок.Добавить("КонструкторЗапроса");
    ИменаКартинок.Добавить("КонструкторЗапросаВложенныйЗапрос");
    ИменаКартинок.Добавить("КонструкторЗапросаВременнаяТаблица");
    ИменаКартинок.Добавить("КонструкторЗапросаГруппаВременныхТаблиц");
    ИменаКартинок.Добавить("КонструкторЗапросаЗаменитьТаблицу");
    ИменаКартинок.Добавить("КонструкторЗапросаОписаниеВременнойТаблицы");
    ИменаКартинок.Добавить("КонструкторЗапросаОтображатьТаблицыИзменений");
    ИменаКартинок.Добавить("КонструкторЗапросаПараметрыТаблицы");
    ИменаКартинок.Добавить("КонструкторЗапросаСоздатьВложенныйЗапрос");
    ИменаКартинок.Добавить("КонструкторЗапросаСоздатьЗапросУничтоженияВременнойТаблицы");
    ИменаКартинок.Добавить("КонструкторЗапросаСоздатьОписаниеВременнойТаблицы");
    ИменаКартинок.Добавить("КонструкторНастроекКомпоновкиДанных");
    ИменаКартинок.Добавить("Кредит");
    ИменаКартинок.Добавить("КритерийОтбора");
    ИменаКартинок.Добавить("Лупа");
    ИменаКартинок.Добавить("Назад");
    ИменаКартинок.Добавить("Найти");
    ИменаКартинок.Добавить("НайтиВДереве");
    ИменаКартинок.Добавить("НайтиВСодержании");
    ИменаКартинок.Добавить("НайтиВСписке");
    ИменаКартинок.Добавить("НайтиПоНомеру");
    ИменаКартинок.Добавить("НайтиПредыдущий");
    ИменаКартинок.Добавить("НайтиСледующий");
    ИменаКартинок.Добавить("НастроитьСписок");
    ИменаКартинок.Добавить("НастройкаСписка");
    ИменаКартинок.Добавить("НастройкиОтчета");
    ИменаКартинок.Добавить("НоваяВложеннаяСхемаКомпоновкиДанных");
    ИменаКартинок.Добавить("НоваяГруппа");
    ИменаКартинок.Добавить("НоваяГруппировкаКомпоновкиДанных");
    ИменаКартинок.Добавить("НоваяДиаграммаКомпоновкиДанных");
    ИменаКартинок.Добавить("НоваяТаблицаКомпоновкиДанных");
    ИменаКартинок.Добавить("НовоеОкно");
    ИменаКартинок.Добавить("Обновить");
    ИменаКартинок.Добавить("Обработка");
    ИменаКартинок.Добавить("Остановить");
    ИменаКартинок.Добавить("ОтборИСортировка");
    ИменаКартинок.Добавить("ОтборКомпоновкиДанных");
    ИменаКартинок.Добавить("ОтборКомпоновкиДанныхНедоступный");
    ИменаКартинок.Добавить("ОтборПоВиду");
    ИменаКартинок.Добавить("ОтборПоТекущемуЗначению");
    ИменаКартинок.Добавить("ОтключитьОтбор");
    ИменаКартинок.Добавить("ОткрытьФайл");
    ИменаКартинок.Добавить("ОтменаПроведения");
    ИменаКартинок.Добавить("ОтменитьПоиск");
    ИменаКартинок.Добавить("Отчет");
    ИменаКартинок.Добавить("Очистить");
    ИменаКартинок.Добавить("ПараметрыВыводаКомпоновкиДанных");
    ИменаКартинок.Добавить("ПараметрыВыводаКомпоновкиДанныхНедоступные");
    ИменаКартинок.Добавить("ПараметрыДанныхКомпоновкиДанных");
    ИменаКартинок.Добавить("Переименовать");
    ИменаКартинок.Добавить("ПерейтиПоНавигационнойСсылке");
    ИменаКартинок.Добавить("ПереключитьАктивность");
    ИменаКартинок.Добавить("ПереместитьВверх");
    ИменаКартинок.Добавить("ПереместитьВлево");
    ИменаКартинок.Добавить("ПереместитьВниз");
    ИменаКартинок.Добавить("ПереместитьВправо");
    ИменаКартинок.Добавить("ПеренестиЭлемент");
    ИменаКартинок.Добавить("Перечисление");
    ИменаКартинок.Добавить("Перечитать");
    ИменаКартинок.Добавить("Печать");
    ИменаКартинок.Добавить("ПечатьСразу");
    ИменаКартинок.Добавить("ПланВидовРасчета");
    ИменаКартинок.Добавить("ПланВидовРасчетаОбъект");
    ИменаКартинок.Добавить("ПланВидовХарактеристик");
    ИменаКартинок.Добавить("ПланВидовХарактеристикОбъект");
    ИменаКартинок.Добавить("ПланОбмена");
    ИменаКартинок.Добавить("ПланОбменаОбъект");
    ИменаКартинок.Добавить("ПланСчетов");
    ИменаКартинок.Добавить("ПланСчетовОбъект");
    ИменаКартинок.Добавить("ПоказатьДанные");
    ИменаКартинок.Добавить("ПолучитьНавигационнуюСсылку");
    ИменаКартинок.Добавить("Пользователь");
    ИменаКартинок.Добавить("ПользовательБезНеобходимыхСвойств");
    ИменаКартинок.Добавить("ПользовательСАутентификацией");
    ИменаКартинок.Добавить("ПользовательскиеПоляКомпоновкиДанных");
    ИменаКартинок.Добавить("ПоляГруппировкиКомпоновкиДанных");
    ИменаКартинок.Добавить("ПоляГруппировкиКомпоновкиДанныхНедоступные");
    ИменаКартинок.Добавить("ПометитьНаУдаление");
    ИменаКартинок.Добавить("ПорядокКомпоновкиДанных");
    ИменаКартинок.Добавить("ПорядокКомпоновкиДанныхНедоступный");
    ИменаКартинок.Добавить("Предыдущий");
    ИменаКартинок.Добавить("Провести");
    ИменаКартинок.Добавить("ПроизвольноеВыражение");
    ИменаКартинок.Добавить("ПросмотрПоВладельцу");
    ИменаКартинок.Добавить("ПрочитатьИзменения");
    ИменаКартинок.Добавить("РазвернутьВсе");
    ИменаКартинок.Добавить("РегистрБухгалтерии");
    ИменаКартинок.Добавить("РегистрНакопления");
    ИменаКартинок.Добавить("РегистрРасчета");
    ИменаКартинок.Добавить("РегистрСведений");
    ИменаКартинок.Добавить("РегистрСведенийЗапись");
    ИменаКартинок.Добавить("РегламентноеЗадание");
    ИменаКартинок.Добавить("РегламентныеЗадания");
    ИменаКартинок.Добавить("РедактироватьВДиалоге");
    ИменаКартинок.Добавить("РежимПросмотраСписка");
    ИменаКартинок.Добавить("РежимПросмотраСпискаДерево");
    ИменаКартинок.Добавить("РежимПросмотраСпискаИерархическийСписок");
    ИменаКартинок.Добавить("РежимПросмотраСпискаСписок");
    ИменаКартинок.Добавить("Реквизит");
    ИменаКартинок.Добавить("Ресурс");
    ИменаКартинок.Добавить("СвернутьВсе");
    ИменаКартинок.Добавить("СводнаяДиаграмма");
    ИменаКартинок.Добавить("Свойства");
    ИменаКартинок.Добавить("Символ");
    ИменаКартинок.Добавить("СинтаксическийКонтроль");
    ИменаКартинок.Добавить("СкопироватьОбъект");
    ИменаКартинок.Добавить("СкопироватьЭлементСписка");
    ИменаКартинок.Добавить("Следующий");
    ИменаКартинок.Добавить("СнятьФлажки");
    ИменаКартинок.Добавить("СоздатьГруппу");
    ИменаКартинок.Добавить("СоздатьНачальныйОбраз");
    ИменаКартинок.Добавить("СоздатьЭлементСписка");
    ИменаКартинок.Добавить("СортироватьСписок");
    ИменаКартинок.Добавить("СортироватьСписокПоВозрастанию");
    ИменаКартинок.Добавить("СортироватьСписокПоУбыванию");
    ИменаКартинок.Добавить("Сортировка");
    ИменаКартинок.Добавить("СохранитьЗначения");
    ИменаКартинок.Добавить("СохранитьНастройкиОтчета");
    ИменаКартинок.Добавить("СохранитьФайл");
    ИменаКартинок.Добавить("Справка");
    ИменаКартинок.Добавить("Справочник");
    ИменаКартинок.Добавить("СправочникОбъект");
    ИменаКартинок.Добавить("СтандартнаяНастройкаКомпоновкиДанных");
    ИменаКартинок.Добавить("СтартБизнесПроцесса");
    ИменаКартинок.Добавить("СформироватьОтчет");
    ИменаКартинок.Добавить("ТабличныйДокументВставитьПримечание");
    ИменаКартинок.Добавить("ТабличныйДокументВставитьРазрывСтраницы");
    ИменаКартинок.Добавить("ТабличныйДокументОтображатьГруппировки");
    ИменаКартинок.Добавить("ТабличныйДокументОтображатьЗаголовки");
    ИменаКартинок.Добавить("ТабличныйДокументОтображатьПримечания");
    ИменаКартинок.Добавить("ТабличныйДокументОтображатьСетку");
    ИменаКартинок.Добавить("ТабличныйДокументТолькоПросмотр");
    ИменаКартинок.Добавить("ТабличныйДокументУдалитьПримечание");
    ИменаКартинок.Добавить("ТабличныйДокументУдалитьРазрывСтраницы");
    ИменаКартинок.Добавить("Удалить");
    ИменаКартинок.Добавить("УдалитьНепосредственно");
    ИменаКартинок.Добавить("УдалитьЭлементСписка");
    ИменаКартинок.Добавить("УдалитьЭлементСпискаНепосредственно");
    ИменаКартинок.Добавить("УправлениеПоиском");
    ИменаКартинок.Добавить("УровеньВверх");
    ИменаКартинок.Добавить("УровеньВниз");
    ИменаКартинок.Добавить("УсловноеОформлениеКомпоновкиДанных");
    ИменаКартинок.Добавить("УсловноеОформлениеКомпоновкиДанныхНедоступное");
    ИменаКартинок.Добавить("УстановитьВремя");
    ИменаКартинок.Добавить("УстановитьИнтервал");
    ИменаКартинок.Добавить("УстановитьПометкуУдаленияЭлементаСписка");
    ИменаКартинок.Добавить("УстановитьФлажки");
    ИменаКартинок.Добавить("Форма");
    ИменаКартинок.Добавить("ХранилищеНастроек");
    #КонецОбласти

    Для каждого ИмяКартинки Из ИменаКартинок Цикл
        СписокКартинок.Добавить(ИмяКартинки, , , БиблиотекаКартинок[ИмяКартинки]);
    КонецЦикла;

    Для каждого МетаКартинка Из Метаданные.ОбщиеКартинки Цикл
        СписокКартинок.Добавить(МетаКартинка.Имя, , , БиблиотекаКартинок[МетаКартинка.Имя]);
    КонецЦикла;
    Возврат СписокКартинок;
КонецФункции

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