Имя: Пароль:
1C
1С v8
Настроить шрифт программно созданной команды
0 trialex3
 
11.11.23
10:49
Ребят я может чего не понимаю но почему программно созданная кнопка никак не хочет делаться жирной?

НовыйЭлемент=Элементы.Добавить("АР_ПодобратьАналогиПоПриводам",Тип("КнопкаФормы"),ГруппаФормы);  
НовыйЭлемент.ИмяКоманды = "АР_ПодобратьАналогиПоПриводам";
НовыйЭлемент.Шрифт = Новый Шрифт( , , Истина);  НовыйЭлемент.Картинка=БиблиотекаКартинок.ЗаполнитьПоШаблону;
А текст команды все-равно не жирный(
1 Donkey_hot
 
11.11.23
11:26
(0) ТекущийШрифт = НовыйЭлемент.Шрифт;
    НовыйШрифт = Новый Шрифт(ТекущийШрифт,,,Истина);
    НовыйЭлемент.Шрифт = НовыйШрифт;
2 trialex3
 
11.11.23
11:44
(1) На всякий случай приложу весь код по созданию кнопки, так как не помогло ваше решение.

// Команда_АР_ПодобратьАналогиПоПриводам
    НоваяКоманда = Команды.Добавить("АР_ПодобратьАналогиПоПриводам");
    НоваяКоманда.Действие = "АР_ПодобратьАналогиПоПриводам";//Имя процедуры
    НоваяКоманда.Заголовок = "Подобрать аналоги по приводам";
    
    ГруппаФормы = ЭтаФорма.Элементы.Найти("ПодменюЗаполнить");
    Если ГруппаФормы <> Неопределено Тогда
        НовыйЭлемент = Элементы.Добавить("АР_ПодобратьАналогиПоПривода",Тип("КнопкаФормы"),ГруппаФормы);
        НовыйЭлемент.ИмяКоманды = "АР_ПодобратьАналогиПоПриводам";
        ТекущийШрифт = НовыйЭлемент.Шрифт;
           НовыйШрифт = Новый Шрифт(ТекущийШрифт,,,Истина);
        НовыйЭлемент.Шрифт = НовыйШрифт;
        НовыйЭлемент.Картинка = БиблиотекаКартинок.ЗаполнитьПоШаблону;
    Иначе
        ОбщегоНазначения.СообщитьПользователю("Не удалось вывести булево ""Сворачивать тч"". Пожалуйста, обратитесь к администратору");
    КонецЕсли;
3 Donkey_hot
 
11.11.23
11:53
(2) Не могу сказать, у меня отрабатывает великолепно, сейчас проверил.
4 trialex3
 
11.11.23
16:20
(3) Наверное просто нельзя выделять команду жирным если это раскрывающийся список команд...
Спасибо за помощь.