Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
19 мар 2024, 10:01

Пытаюсь увеличить шрифт программно. Выдает ошибка

Автор 50schaps, 22 июл 2015, 16:24

0 Пользователей и 1 гость просматривают эту тему.

50schaps

Я не программист , но очень уэ хочется изменить шрифт в сторону увеличения, и не только текста, но и меню
Нашел в Интернете и начал с этого
В КОНФИГУРАТОРЕ:Бузгалтерия 2.0.64.30

1) Добавить регистр сведений "СтилиПользователей"
   Непериодический, независимый
   Измерения:
     - Пользователь ,тип СправочникСсылка.Пользователи
   Ресурсы:
     - НомерСтиля   ,тип Число 1.0 –ЗДЕСЬ НЕПОНЯЛ ГДЕ !.0 ПОСТАВИТЬ ?

2) В ветке "Общие - Стили" скопировать стиль "Основной" в "Основной1".
   В стиле "Основной1" изменить Шрифт текста на Verdana,8
   (путем проб можно другой подобрать, я остановился на этом)
----------------------------------------------------------------------
// ПРОЦЕДУРЫ ГЛОБАЛЬНОГО КОНТЕКСТА
// Процедура - обработчик события "При завершением работы системы".
процедура ПриЗавершенииРаботыСистемы()
3) В модуле обычного приложения добавить функцию ПолучитьНомерСтиляПользователя()
   и вызов ее в процедуре ПередНачаломРаботыСистемы()
ВСТАВЛЯЮ ЭТО

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

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

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

ПРИ ЗАГРУЗКИ КОНФИГУРАЦИИ ВЫДАЕТ ТАКУЮ ОШИБКУ
{МодульОбычногоПриложения(115,11)}: Процедура или функция с указанным именем уже определена (ПередНачаломРаботыСистемы)
Процедура <<?>>ПередНачаломРаботыСистемы(Отказ)
ГДЕ ТО Я НАКУРАЛЕСИЛ. ПОДСКАЖИТЕ !
=========================================================

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск