среда, 9 декабря 2015 г.

1с СКД свой шрифт в заголовке

На форме заменяем кнопку "Сформировать" своей: Сформировать_
В модуле формы для нажатия этой кнопки указываем:

Процедура ДействияФормыСформировать_(Кнопка)
   
    ВремЗаголовок = "ВременныйЗаголовок";
   
    ЭлементыФормы.Результат.Очистить();
   

    СкомпоноватьРезультат(ЭлементыФормы.Результат);
   
    ...
   
       
    ПостоянныйЗаголовок = "Наш заголовок";//Если он не "замороченный", то может совпадать с ВремЗаголовок.
   
    НайденнаяОбласть = ЭлементыФормы.Результат.НайтиТекст(ВремЗаголовок);
   
    НашаОбласть = ЭлементыФормы.Результат.Область(НайденнаяОбласть.Верх,НайденнаяОбласть.Лево,НайденнаяОбласть.Верх,8);   
    НашаОбласть.Объединить();
    НашаОбласть.РазмещениеТекста = ТипРазмещенияТекстаТабличногоДокумента.Переносить;
   
    НашаОбласть.Шрифт =Новый Шрифт(НайденнаяОбласть.Шрифт,,10);
    НашаОбласть.Текст = ПостоянныйЗаголовок;
КонецПроцедуры 
 
В модуле объекта в процедуре:



Перем ВремЗаголовок Экспорт;

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