| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

FreeReport & мышинное колесо [D5, Win95/98]

Andrey V. ©   (2003-01-22 10:30:00) 

Реально ли подружить FreeReport & мышинное колесо прокрутки ?

---

alxx   (2003-01-22 13:55:00) [1]

в файле FR_view (обработчик у компонента ScrollBox1:

//---------------------------------------------
procedure TfrPreviewForm.ScrollBox1MouseWheel(Sender: TObject;
Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
var Handled: Boolean);

begin
VScrollBar.Position:=VScrollBar.Position-WheelDelta div 2;
end;

---

Наверх