Установка шрифтов из 1С, управляемые формы

04.02.19

Разработка - Универсальные функции

При разворачивании своей конфигурации (специализированной) потребовалось автоматически установить необходимые шрифты. Быстрый поиск привел на статью https://infostart.ru/public/355315/ но у меня шрифты устанавливались неправильно - в реестре информация не обновлялась, да и в списке шрифтов данные так же не обновились (Проверял на Windows 10). Пришлось писать свой код.

Здесь я не буду расписывать весь функционал своей обработки, а только опишу сам процесс установки.

В обработке имеется макет "Шрифты", в котором в двоичных данных лежит массив необходимых шрифтов.

На форме обработки информационная строка о текущем состоянии, прогресс и список установленных/неустановленных шрифтов. При щелчке мышкой по ссылке "Установить" запускается стандартный диалог Windows с предварительным просмотром шрифта и кнопкой "Установить". По кнопке "Установить все шрифты вручную" - такой диалог запускается для всех неустановленных шрифтов.

Проверка, установлен шрифт или нет, у меня производится через реестр Windows - так как простая проверка наличия файла в каталоге Fonts не гарантирует, что шрифт действительно установлен и может быть использован. В этом есть небольшая загвоздка - надо либо знать название шрифта, либо искать в реестре по имени файла что более муторно. Я пошел по первому пути.

Отличается от варианта в статье infostart.ru/public/355315/ :

1. Шрифт устанавливается штатными средствами Windows с выводом диалога "Установка шрифта"

2. Если 1С запущена без прав администратора Windows запросит разрешение на внесение изменений для 1С автоматически

3. Проверяется установлен шрифт уже или нет

4. Шрифты устанавливаются из архива по списку

Итак код:
 

&НаСервере
Функция ПоместитьШрифтыВоВременноеХранилище()
    // Помещаем архив со шрифтами во временной хранилище, для извлечения из архива на клиенте
    ОбъектФормы = РеквизитФормыВЗначение("Объект");
    Возврат ПоместитьВоВременноеХранилище(ОбъектФормы.ПолучитьМакет("Шрифты"), УникальныйИдентификатор);
КонецФункции

&НаКлиенте
Процедура УстановитьШрифты(Команда)
      // Создадим временный каталог для шрифтов, он будет удален автоматически по завершению работы 1С
      НачатьСозданиеКаталога(Новый ОписаниеОповещения("УстановкаШрифтовНачалоИзвлеченияИзАрхива", ЭтотОбъект), ПолучитьИмяВременногоФайла());
КонецПроцедуры

&НаКлиенте
Функция ПолучитьИмяШрифтаИзИмениФайла(ИмяФайла)
    // У меня имя шрифта формируется из имени файла
    // Код не указываю, так как все зависит от конкретного случая, так как файл может называться как угодно
    // Здесь вы можете просто сделать проверку вроде:
    // Если ИмяФала="имя.ttf" Тогда
    //    Возврат "Имя шрифта";
    // ИначеЕсли ...
    //    ...
    // КонецЕсли;
КонецФункции

&НаКлиенте
Функция ШрифтУстановлен(ИмяШрифта, Shell)
    // Пытаемся прочитать параметр с именем шрифта, если не удалось - значит шрифт не установлен
    Попытка
        Результат = Shell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\"+ИмяШрифта);
        Возврат Истина;
    Исключение
        Возврат Ложь;
    КонецПопытки;
КонецФункции

&НаКлиенте
Процедура УстановкаШрифтовНачалоИзвлеченияИзАрхива(Каталог, ДопПараметры) Экспорт
    Shell         = Новый COMОбъект("WScript.Shell");
    appShell    = Новый COMОбъект("Shell.Application");
    ВремКаталог    = appShell.Namespace(Каталог);
    // Поместим архив во временное хранилище и получим ссылку на него
    СсылкаНаАрхив = ПоместитьШрифтыВоВременноеХранилище();
    // Поместим данные в буфер двоичных данных
    БуферДанных = ПолучитьБуферДвоичныхДанныхИзДвоичныхДанных(ПолучитьИзВременногоХранилища(СсылкаНаАрхив));
    // Удалим архив из временного хранилища
    УдалитьИзВременногоХранилища(СсылкаНаАрхив);
    // Создадим поток в памяти со ссылкой на буфер двоичных данных
    Поток = Новый ПотокВПамяти(БуферДанных);
    // Начнем чтение архива в памятим
    Архив = Новый ЧтениеZipФайла(Поток);
    // Пробежим по всем файлам в архиве
    Для Каждого Эл Из Архив.Элементы Цикл
        // Имя шрифта как он будет записан в реестре Windows. У меня формируется из имени файла
        ИмяШрифта = ПолучитьИмяШрифтаИзИмениФайла(Эл.Имя);
        // Проверяем установлен шрифт или еще нет
        Если НЕ ШрифтУстановлен(ИмяШрифта, Shell) Тогда
            // Извлекаем архив во временный каталог
            Архив.Извлечь(Эл, Каталог, РежимВосстановленияПутейФайловZIP.НеВосстанавливать);
            Попытка
                   // Устанавливаем шрифт
                   ФайлШрифта = ВремКаталог.ParseName(Эл.Имя);
                   ФайлШрифта.InvokeVerb("Install");
                   ФайлШрифта = Неопределено;
                   Сообщить("Шрифт """+ИмяШрифта+""" успешно установлен!");
            Исключение
                   Сообщить(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
            КонецПопытки;
        КонецЕсли;
    КонецЦикла;
    Архив.Закрыть();
    Архив = Неопределено;
    // Закрываем поток. Может делать это и не обязательно, если 1С корректно чистить память. Но делаю на всякий случай
    Поток.НачатьЗакрытие(Новый ОписаниеОповещения("ЗакрытиеПотока", ЭтотОбъект));
    БуферДанных = Неопределено;
КонецПроцедуры

&НаКлиенте
Процедура ЗакрытиеПотока(ДопПараметр) Экспорт
    // Обработка закрытия потока, если необходимо
КонецПроцедуры

Надеюсь, кому-нибудь пригодится.

Обработка установка шрифтов управляемые формы

См. также

Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024    2677    0    John_d    8    

55

GUID в 1С 8.3 - как с ними быть

Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    4613    atdonya    22    

45

Переоткрытие внешних обработок

Универсальные функции Платформа 1С v8.3 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    3963    ke.92@mail.ru    16    

61

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    8841    YA_418728146    6    

141

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023    2077    21    progmaster    7    

3

Расширение: Быстрые отборы через буфер [Alt+C] Копировать список, [Alt+V] Вставить список, [Ctrl+C] Копировать из файлов

Инструментарий разработчика Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022    16150    133    sapervodichka    112    

129

Система контроля ведения учета [БСП]

Универсальные функции Механизмы типовых конфигураций БСП (Библиотека стандартных подсистем) Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

В данном материале рассмотрим типовой алгоритм подсистемы контроля учета БСП в конфигурациях на примерах.

18.07.2022    7243    quazare    8    

109
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. 7OH 69 21.04.20 13:04 Сейчас в теме
А в браузере на телефон такой финт сработает ?
Ищу решение проблемы - в браузере на компе один в один как в 1С, а вот с мобилы вообще шрифтов такое впечатление, что нет никаких.
Оставьте свое сообщение