Support for Mouse Scroll Wheel in version 6.03

rbuser

While I am purchasing XE7 tomorrow, I still am going to be a ways from
upgrading ReportBuilder and or my app that I just completed using
ReportBuider. In the meantime, is there a way to scroll the ppView when a
user uses their mouse wheel? Thanks.

nardmoseley

Please configure your newsreader client to post using your real name.

-
Nard Moseley
Digital Metaphors
www.digital-metaphors.com
uses their mouse wheel? Thanks.

rbuser

Is it now configured correctly. If not, I am
Robert Griffin
President, Real Solutions, Inc.
griffin@realsol.com.

nicocizik

Hi Robert,

Thank you for altering your news reader settings.

Mouse wheel support for the viewer is done manually using the
OnMouseWheel event of the form. Something like the following...

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin

//Pre RB 14
Viewer.ScrollBox.VertScrollBar.Position :=
Viewer.ScrollBox.VertScrollBar.Position - (WheelDelta div 5);

//RB 14 +
//Viewer.VerticalScroll(WheelDelta div 5);

end;