gifts2017

Как увеличить размер шрифта в 1с 8.2

Опубликовал Алексей Гришков (asg1975) в раздел Программирование - Практика программирования

Казалось бы тривиальная задача - увеличить шрифт в 1С 8.2. Можно уменьшить разрешение рабочего стола, что не всегда есть гуд. Можно увеличить шрифт в Windows. Тоже свои минусы, отразится везде. Да и в терминальном режиме с этим туго, особенно в Windows Server 2008 R2.

Начинаем выкручиваться:

========================================================================================================
На примере БП 2.0 и УТ 10.3
========================================================================================================
В КОНФИГУРАТОРЕ:

1) Добавить регистр сведений "СтилиПользователей"
   Непериодический, независимый
   Измерения:
     - Пользователь ,тип СправочникСсылка.Пользователи
   Ресурсы:
     - НомерСтиля   ,тип Число 1.0

2) В ветке "Общие - Стили" скопировать стиль "Основной" в "Основной1".
   В стиле "Основной1" изменить Шрифт текста на Verdana,8
   (путем проб можно другой подобрать, я остановился на этом)

3) В модуле обычного приложения добавить функцию ПолучитьНомерСтиляПользователя()
   и вызов ее в процедуре ПередНачаломРаботыСистемы()

//+ASG
Функция ПолучитьНомерСтиляПользователя()
    
   

Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    СтилиПользователей.НомерСтиля
    |ИЗ
    |    РегистрСведений.СтилиПользователей КАК СтилиПользователей
    |ГДЕ
    |    СтилиПользователей.Пользователь = &Пользователь";
    
    Запрос.УстановитьПараметр("Пользователь", ПараметрыСеанса.ТекущийПользователь);
    Результат = Запрос.Выполнить().Выбрать();
    Если Результат.Следующий() Тогда
        Возврат Результат.НомерСтиля;    
    Иначе
        Возврат 0;
    КонецЕсли;

КонецФункции // ПолучитьНомерСтиляПользователя

// Процедура - обработчик события "Перед началом работы системы".
//
Процедура ПередНачаломРаботыСистемы(Отказ)
    
    УправлениеПользователями.ПроверитьВозможностьРаботыПользователя(Отказ);    
    
    ГлавныйСтиль = БиблиотекаСтилей.Получить(ПолучитьНомерСтиляПользователя()); //+ASG
    
КонецПроцедуры



========================================================================================================
В РЕЖИМЕ 1С Предприятие:
1) В регистр "СтилиПользователей" ("Операции - Регистры сведений - Стили пользователей)
прописать тех пользователей кому нужно покрупнее установив номер стиля = 1

На все уходит минут 15, правда придется "Включить возможность изменения"
в "Конфигурация - Поддержка - Настройка поддержки"

========================================================================================================
Вот такая она 1С 8.2. Альтернативного ничего не нашел... На сверхновизну не претендую. Думаю кому-нибудь
сгодится! Плюсики не помешают :)

См. также

Подписаться Добавить вознаграждение

Комментарии

1. Владимир Клименко (KliMich) 23.09.12 01:06
Вроде мелочь, но полезная. Особенно актуально для людей (пожилых) с плохим зрением!
Однозначно плюс!
Tapok1102; +1 Ответить
2. Никита Коротаев (bforce) 23.09.12 03:08
Можете выложить сравнительный скриншот: было - стало? Почему-то я не вижу существенного увеличения шрифта. Может не туда смотрю?
sergiobargio1; +1 Ответить
3. Игорь Воронкин (Воронкин) 23.09.12 08:13
Кто будет использовать - необходимо обратить внимание, что надписей, в которых необходимо изменить шрифт несколько. А то для пользователей с плохим зрением (а это планируется для них) шрифт надписи увеличили, а шрифт кнопки нет и будут изменены размеры самой формы и элементов в ней.
4. Nadin Bocharova (bnw) 23.09.12 09:16
А просто редактирую Основной стиль и исправляю шрифт. После обновления все исправления, которые предлагает автор придется вносить снова руками...
5. Алексей Гришков (asg1975) 23.09.12 09:54
(4) bnw, предложенный вариант настраивается под пользователей. Кто-то зрячий, кто-то не очень :) Да и моники могут быть разные...
6. Макас (makas) 23.09.12 19:33
7. Геннадий Пиганов (Totoro) 24.09.12 01:23
В типовых можно и не добавлять регистр - для этого подходит типовой регистр "НастройкиПользователей".
Где можно добавлять свои настройки в режиме предприятия (или программно). В качестве значения - "булево" (крупный/не крупный) или "строка" (имя стиля, если не только шрифт меняем).
И пользователю редактировать удобно и изменений мало. А в коде по имени настройки получать её значение.
xoxmaister; trumanl; RadoLex; bonk; the1; SamNeSvoy; valexev; 1CBars; srv7; +9 Ответить 2
8. Павел Никифоров (Lyns_owner) 24.09.12 01:40
Мне понравилась идея, реализация лучше, чем в комментариях. Есть недочеты)

Необходимо программно получать количество стилей, и, если для стиля установлен номер стиля больший, чем их существует - 1, то возвращать 0.
9. Сергей Рудаков (fishca) 24.09.12 08:50
Жаль только это не применимо к тонкому клиенту
10. KV1s (KroVladS) 24.09.12 09:10
После всех моих попыток изменить шрифт, плыли формы, не влезали надписи и пр. неприятности.
Особенно неприятно было когда сползла кнопка "выгрузить пачку", а узнали об этом в последний день сдачи отчётности :(
11. Алексей Гришков (asg1975) 24.09.12 09:43
(8) Lyns_owner, Согласен, но считаю уже придирками...
12. Алексей Гришков (asg1975) 24.09.12 09:45
(7) Totoro, Тоже вариант. Но изменения хоть и в одну строчку, но нужны
13. Геннадий Пиганов (Totoro) 24.09.12 10:16
(12) К сожалению, да.
ИМХО Твой вариант более удобен, если права на это изменение нужно ограничить или как универсальный.
14. Сергей Радченко (Rad90210) 24.09.12 11:03
(10) KV1s, По любому. 7.7 - 8.2 - одно лечим, другое калечим. Либо использовать ВСЕ КАК ЕСТЬ, либо писать самому... В свете стоимостей на моники и стоиость часа работы программиста (а типовые бухии обновляются частенько) -!!! ЛИЧНО Я БЫ КУПИЛ МОНИТОР !!! А с поддержки не спрыгивал. И вообще - у каждого должно быть свое рабочее место - так что персонализировать нужно не только монитор - а и сразу всю станцию.
15. Алексей Гришков (asg1975) 24.09.12 13:04
(14) Rad90210, можно и комп вносить в регистр. Тут уж как говорится "кому что".
16. Владимир ЗАЙЦЕВ (Владимир Зайцев) 24.09.12 15:12
Самое-то,отчаялся уже найти это для своих расчетчиц.Спасибо.
17. Май МММ (may1c) 24.09.12 23:57
Многие просили, наверно следует попробовать...может кому и понравиться
18. Тимофей Синичкин (TimofeySin) 25.09.12 10:16
А реально ли изменить стиль пользователя на "лету"? ну то есть он жмахает на кнопку и все меняется?
19. Марина Чирина (chmv) 25.09.12 16:47
я думаю на ходу можно, для отдельных форм.
А так в цедом нет.
20. Сергей (Serjeo) 26.09.12 09:09
При изменении стиля есть одно "НО..." от 1С. Например, установить шрифт размером 13-14 и выше уже будет проблематично. Вернее установить его в стиле конечно можно без проблем, а вот отображение в формах этого шрифта будет уже не корректно, т.к. все формы 1С заточены под определенный стиль и масштаб. Можете поставить размер шрифта 14 и посмотреть, что у вас произойдет с полями ввода, с таблицами и т.п. в формах. Так что тут нужно оговориться, что со стилями в 1с особо не поиграешься, иначе нужно будет переписать все формы под новый стиль. На платформе 7.7 с этим конечно проблем не было.
21. Алексей Гришков (asg1975) 26.09.12 09:27
(20) Serjeo, согласен. Увеличивать до бесконечности не получится. Тот шрифт, который я указал, уже работает "на пределе". Но дело свое делает.У других сразу начинаются проблемы с проглатыванием буквы "р" и т.п.
22. C. Sergio (sbr) 26.09.12 09:57
Реально нужная вещь.
Спасибо автору и описание сделано хорошо.
И обсуждение на форуме тоже дало пищу для дальнейших действий.
Для себя, я конечно исправляю стиль, но это в конфигураторе, т.е. там где сам пишу.
А вот теперь есть механизм настроить это пользователям...
23. Татьяна Шешикова (shekl) 26.09.12 23:33
спасибо автору.
мелочь но весьма полезна .
бухгалтера будут рады))
24. Shade (Shade) 27.09.12 14:48
Спасибо, а то в терминалке ничего не помогает :))))))))))
25. Shade (Shade) 27.09.12 14:49
Отдельный плюс за подробнейщее описание и скриншоты :)
26. Алексей Гришков (asg1975) 28.09.12 00:20
(24) Shade, В терминалке Windows Server 2008 у меня не получилось изменить разрешение или шрифт. Админы сказали "никак". Может админы такие, может я что не допонял. Поэтому и пошел другим путем :)
27. Shade (Shade) 28.09.12 06:15
(26) asg1975, Вот вот :) Я тоже долго бился, но все тщетно для 1С :)))
28. mistermp3 mistermp3 (mistermp3) 28.09.12 08:24
Если немного пофилософствовать на эту тему, то становится просто смешно. Неужели корректное масштабирование это такая сверхзадача, что её нельзя реализовать нормально? Это же не только в 1с так! Вот я пользуюсь программой (1с или не 1с не важно). Хочу сделать крупнее - почему я не могу сделать это каким-то простым способом (контрлплюс например)?
Технологически оно все понятно, макеты, сетки, растискивание... Но блин, 21 век.
Какое нафиг user friendly если программы и ОСи не умеют самого простого?!
В бинокле блин и то крутилка есть, но тут как же - компутер ведь!!! Сложная штуковина!
Это же капец - лезть в конфигуратор что бы изменить размер! Самое смешное, что все к такому положению дел привыкли (и в других программах).
us; PokerFace; Smouk2002; the1; +4 Ответить 1
29. Алексей Гришков (asg1975) 28.09.12 09:49
(28) mistermp3, в 21 веке все меганакручено, IT-специалисты без работы не останутся.
30. Gazulo Будивский (Gazulo) 28.09.12 15:27
Клиент попросил изменить шриф, все сделал как в статье....Все получилось, класно. Спасибо.
31. Алексей Верещагин (alexware) 01.10.12 05:41
Тема актуальная. Пользователи со стажем до сих пор вспоминают в этом плане 1С 7.7. И задают вопросы, почему же здесь нет.
32. Ольга (_n26__) 29.10.12 07:33
Все получилось, спасибо большое
33. Артем Трущ (papami) 12.11.12 18:15
Чтобы не ломать конфигурацию писал на базе ActiveX RDP простого клиента для подключения к терминалу. При запуске программно понижал до необходимого разрешение монитора. При свертке или закрытии окна - возвращал исходное... Ну и все в таком духе. Работает народ - устраивает.
34. Алексей Гришков (asg1975) 12.11.12 20:33
(33) papami, Ну нет слов, одни почести. Варианты всегда есть, другое дело, что они не очевидны бывают. Вот я бы до такого не заморочился, мне проще в 1С поковыряться :)
35. Артем Трущ (papami) 13.11.12 16:18
Вопрос не в том что проще, а в СМЫСЛЕ ломать конфигурацию из-за одного человека с плохим зрением. Если уже были изменения - согласен, то что Вы предлагаете, будет хорошим решением.
И не надо так ерепениться))) Я про это
Ну нет слов, одни почести
36. Алексей Гришков (asg1975) 13.11.12 19:56
(35) papami, Вы слишком болезненно воспринимаете окружающий мир. Если вы заметили, никаких кавычек на указанной вами фразе я не ставил. А это как раз и значит, что я действительно уважаю ваше решение...
38. Игорь Фрунзэ (gorodok11) 26.11.12 11:17
Хорошее решение. Жаль что приходится изменить конфигурацию что добавляет некоторые неудобства при обновлении. Во всяком случае, для специалиста не проблема.
39. Сергей (Urv) 21.12.12 05:30
Как поменять стиль для отчетов?
Картинка в приложенном файле
40. Сергей (Urv) 21.12.12 05:33
вроде файл прикреплял попробую еще раз.
Прикрепленные файлы:
41. ффф ыыы (zqzq) 20.02.13 14:54
Можно ещё вызвать экранную лупу Виндовз ))) Даже сочетание клавиш есть.

Вообще 1С к пользователям одним местом повёрнута, я представляю что будет при UltraHD мониторе от эппл, с микроскопом разглядывать.
Но перемены грядут в 8.3 http://v8.1c.ru/o7/201212ui/
42. deadman66 (deadman66) 06.07.13 12:13
(40) Urv, шрифт в отчетах меняется в самих отчетах в настройках в оформлении в режиме предприятия
43. Денис Аграновский (de0nis) 10.09.13 13:53
А шрифт который в параметрах системы (Сервис - Параметры - Текст) он вообще что меняет? по-моему как-то вообще ничего не меняется если его изменять.
Спасибо, хорошее решение.

У себя только сделал стиль не числом, а строкой и выбор по наименованию стиля из списка выбора:
Для каждого ТекСтиль из Метаданные.Стили Цикл
    СписокСтилей.Добавить(ТекСтиль.Имя, ТкСтиль.Синоним);
КонецЦикла


И потом выбор избиблиотеки по имени

БибилиотекаСтилей[ПолучитьНомерСтиляПользователя()] 
44. Виктор Желтко (ViksVik) 25.11.13 11:54
Грамотное решение. И описано наглядно. А монополисту 1С должно быть, как минимум, стыдно за свои элементарные недоработки. Даже в 1С77 эта функция прекрасно работала. «Шаг вперёд, два шага назад» – и так во многом у них.
us; Bruwer; +2 Ответить
45. Alex Azarnin (1985Alex1985) 22.01.14 16:09
Спасибо :) Как раз искал как сделать
46. Фантаев Сегрей (serg1983) 05.03.14 16:14
да облом в том что В "модуле обычного приложения" надо лезть, а клиент у другого франчайзи и при обновлении надо отслеживать им
47. Фантаев Сегрей (serg1983) 05.03.14 16:25
народ а в БП 3.0 это пойдет
48. Vlad (KillHunter) 05.03.14 16:33
Ну тут два варианта либо на самом деле купить монитор, как советует один товарищь, либо изменить в программном коде, хотя это тоже не вариант, может это все реализовано под платформой 8.3 ?
49. Фантаев Сегрей (serg1983) 05.03.14 17:21
клиентам обновили платформу,конфигурацию. БП 3.0 и вот результат(в файле). Как щас исправить. Помогите людям
Прикрепленные файлы:
50. Алексей (kanalya) 02.12.14 11:05
А знает кто почему теперь шрифт заголовков окон стал курсивным? Я поменял только "Шрифт текста".
51. Алексей Потехин (trumanl) 25.03.15 11:31
(7) Totoro, спасибо за идею. Добавил в настройки пользователя новую характеристику "Стиль пользователя", выбираю из списка метаданных.
52. Алексей Потехин (trumanl) 25.03.15 13:11
Функция ПолучитьСтильПользователя()
	
	Значение = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "СтильПользователя");
	
	Если Не ПустаяСтрока(Значение) Тогда
		Возврат БиблиотекаСтилей[Значение];
	Иначе
		Возврат БиблиотекаСтилей.Основной;
	КонецЕсли;
	
КонецФункции
...Показать Скрыть
53. anton448 garcov (anton448) 19.06.15 10:17
Автору спасибо за идею, реально помогло ваше решение! :)
54. Алексей Литвин (alitvin) 31.07.15 14:21
Увеличить системный шрифт и не трогать 1С нафиг
55. Надежда (user_2010) 19.10.15 16:18
а как увеличить шрифт в 8.3?
56. xoxmaister xoxmaister (xoxmaister) 27.11.15 14:52
круто получилось! спасибо!
57. sin chro (sinchro) 15.04.16 16:45
А что делать если в Операциях нету Регистра сведений (Операции - Регистры сведений)
58. Ярослав Володимирович (myr4ik07) 11.10.16 09:46
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа