Код

Перем СервисРасшФормы;

Перем стр_ПострочныйСкроллингВверх;
Перем стр_ПострочныйСкроллингВниз;
Перем стр_ПостраничныйСкроллингВверх;
Перем стр_ПостраничныйСкроллингВниз;

Перем СтрокНаЩелчокКолеса Экспорт;
Перем СтраницНаЩелчокКолеса Экспорт;


Функция Сам(Конт) Возврат Конт; КонецФункции


Процедура СформироватьСтрСкроллингаСтрок()

	Перем н_стр;

	стр_ПострочныйСкроллингВверх = "";
	стр_ПострочныйСкроллингВниз = "";

	Для н_стр=1 По СтрокНаЩелчокКолеса Цикл
		стр_ПострочныйСкроллингВверх = стр_ПострочныйСкроллингВверх + "{UP}";
		стр_ПострочныйСкроллингВниз = стр_ПострочныйСкроллингВниз + "{DOWN}";
	КонецЦикла;

КонецПроцедуры


Процедура СформироватьСтрСкроллингаСтраниц()

	Перем н_стр;

	стр_ПостраничныйСкроллингВверх = "";
	стр_ПостраничныйСкроллингВниз = "";

	Для н_стр=1 По СтраницНаЩелчокКолеса Цикл
		стр_ПостраничныйСкроллингВверх = стр_ПостраничныйСкроллингВверх + "{PGUP}";
		стр_ПостраничныйСкроллингВниз = стр_ПостраничныйСкроллингВниз + "{PGDN}";
	КонецЦикла;

КонецПроцедуры


Процедура Конструктор()

    СервисРасшФормы = СоздатьОбъект("Сервис");

	СтрокНаЩелчокКолеса = 3;
	СтраницНаЩелчокКолеса = 1;

	СформироватьСтрСкроллингаСтрок();
	СформироватьСтрСкроллингаСтраниц();

	//----Далее включаем перехват мыши, если отключен----

КонецПроцедуры


Процедура ПриЗаписи_СтрокНаЩелчокКолеса(Значение)

	Перем ВремЗнач;

	ВремЗнач = Цел(Число(Значение));
	ВремЗнач = ?(ВремЗнач<0,-ВремЗнач,ВремЗнач);

	Если (СтрокНаЩелчокКолеса <> ВремЗнач) Тогда
		СтрокНаЩелчокКолеса = ВремЗнач;
		СформироватьСтрСкроллингаСтрок();
	КонецЕсли;

КонецПроцедуры //ПриЗаписи_СтрокНаЩелчокКолеса


Процедура ПриЗаписи_СтраницНаЩелчокКолеса(Значение)

	Перем ВремЗнач;

	ВремЗнач = Цел(Число(Значение));
	ВремЗнач = ?(ВремЗнач<0,-ВремЗнач,ВремЗнач);

	Если (СтраницНаЩелчокКолеса <> ВремЗнач) Тогда
		СтраницНаЩелчокКолеса = ВремЗнач;
		СформироватьСтрСкроллингаСтраниц();
	КонецЕсли;

КонецПроцедуры //ПриЗаписи_СтраницНаЩелчокКолеса


Процедура Деструктор()

	//----Далее отключаем перехват мыши, если больше не нужен----

КонецПроцедуры


Процедура ПриПрокруткеКолесаМыши(Флаг,X,Y,ФСО,Направление) Экспорт

	ФСО=0;

	Если (Флаг = 0) Тогда
		Если (Направление > 0) Тогда
			СервисРасшФормы.ЭмулироватьКлавиатуру(стр_ПострочныйСкроллингВверх);
		ИначеЕсли (Направление < 0) Тогда
			СервисРасшФормы.ЭмулироватьКлавиатуру(стр_ПострочныйСкроллингВниз);
		КонецЕсли;
	Иначе
		Если (Направление > 0) Тогда
			СервисРасшФормы.ЭмулироватьКлавиатуру(стр_ПостраничныйСкроллингВверх);
		ИначеЕсли (Направление < 0) Тогда
			СервисРасшФормы.ЭмулироватьКлавиатуру(стр_ПостраничныйСкроллингВниз);
		КонецЕсли;
	КонецЕсли;

КонецПроцедуры