Код

Процедура ПриПрокруткеКолесаМыши(Сост, Лево, Верх, ФСО, Градусы) Экспорт
	Если Сост = 8 Тогда
		Попытка
			Имя = тпОтчета.Шрифт.Имя;
			Если ПустоеЗначение(Имя) = 0 Тогда
				Размер = тпОтчета.Шрифт.Размер;
				Если Градусы < 0 Тогда
					Размер = Макс(Размер - 1, 3);
				Иначе
					Размер = Мин(Размер + 1, 15);
				КонецЕсли;
				Фабрика = СоздатьОбъект("ФабрикаОбъектов");
				тпОтчета.Шрифт = Фабрика.Шрифт(Имя, Размер, 0, 0, 0, 0);
				тпОтчета.ПерерисоватьСтроки();
			КонецЕсли;
		Исключение
		КонецПопытки;
		ФСО = 0;
	КонецЕсли;
КонецПроцедуры 

Код

Процедура ПриПрокруткеКолесаМыши(Сост, Лево, Верх, ФСО, Градусы)
	ОбъектОтчет.ПриПрокруткеКолесаМыши(Сост, Лево, Верх, ФСО, Градусы);
КонецПроцедуры 

Код

Функция ПолучитьЭлементУправленияИмеющийМетод(ИмяАтрибутаФормы, Метод)
  Если ПустоеЗначение(ИмяАтрибутаФормы) = 0 Тогда
    _Форма = СоздатьОбъект("Форма");
    _Форма.УстановитьФорму(Конт.Форма);
    Попытка
	Элемент = _Форма.ПолучитьЭлементУправления(ИмяАтрибутаФормы);
	Если ПустоеЗначение(Элемент) = 0 Тогда
	  Если Информатор.МетодСуществует(Элемент, Метод) = 1 Тогда
	    Возврат Элемент;
	  КонецЕсли;
	КонецЕсли;
    Исключение
	Ошибка = ОписаниеОшибки();
	Если (Ошибка <> "Окно атрибута формы не найдено!") И (Ошибка <> "Атрибут формы не найден!") Тогда
	  Сообщить("Атрибут: " + ИмяАтрибутаФормы + " " + ОписаниеОшибки(), "!");
	КонецЕсли;
    КонецПопытки;
  КонецЕсли;
КонецФункции

Процедура ПриПрокруткеКолесаМыши(Сост, Лево, Верх, ФСО, Градусы) Экспорт
  Перехватчик.ВыполнитьОригинальноеСобытиеГК(Конт, "ПриПрокруткеКолесаМыши", Сост, Лево, Верх, ФСО, Градусы);
  Если РасширениеФормы.ТипОбъекта() = "Журнал" Тогда
    Реквизит = РасширениеФормы.ПолучитьАтрибут("МНОГОСТРОЧНАЯЧАСТЬ");
	Если Реквизит.Фокус = 1 Тогда
	  Если Градусы > 0 Тогда
	    Сервис.ЭмулироватьКлавиатуру("{PGUP}", 0, );
	  ИначеЕсли Градусы < 0 Тогда
	    Сервис.ЭмулироватьКлавиатуру("{PGDN}", 0, );
	  КонецЕсли;
	  ФСО = 0;
	КонецЕсли;
    КонецЕсли;

    Если ФСО <> 0 Тогда
	Элемент = ПолучитьЭлементУправленияИмеющийМетод(Конт.Форма.АктивныйЭлемент(), "ПриПрокруткеКолесаМыши");
	Если ПустоеЗначение(Элемент) = 0 Тогда
	  Элемент.ПриПрокруткеКолесаМыши(Сост, Лево, Верх, ФСО, Градусы);
	КонецЕсли;
    КонецЕсли;
КонецПроцедуры