I am a Standard (7.x) customer and just downloaded the 9.02 Enterprise trial in hopes of getting the mouse wheel to work in the ppViewer. I tried the example plugin posted in other threads to no avail.
The Designer and the built-in preview dialog include support for the mouse wheel. They both use the TppPreview class (see ppPreview.pas) which manages the Viewer, Toolbar, Outline, and TextSearch controls that comprise the ReportBuilder preview controls.
One solution is to descend from the TppPreview class.
The other solution is to implement the FormMouseWheel event-handler as show here...
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin ppViewer1.ScrollBox.VertScrollBar.Position := ppViewer1.ScrollBox.VertScrollBar.Position - (WheelDelta div 5);
Comments
The Designer and the built-in preview dialog include support for the mouse
wheel. They both use the TppPreview class (see ppPreview.pas) which manages
the Viewer, Toolbar, Outline, and TextSearch controls that comprise the
ReportBuilder preview controls.
One solution is to descend from the TppPreview class.
The other solution is to implement the FormMouseWheel event-handler as show
here...
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
ppViewer1.ScrollBox.VertScrollBar.Position :=
ppViewer1.ScrollBox.VertScrollBar.Position - (WheelDelta div 5);
end;
--
Nard Moseley
Digital Metaphors Corporation
http://www.digital-metaphors.com
Best regards,
Nard Moseley
Digital Metaphors
www.digital-metaphors.com