With the component "TMSFNCWXPDFViewer" apparently only one page can be displayed.
In the demo of the component the change to the next pages is done with the command TMSFNCWXPDFViewer1.NextPage.
How can I achieve that I can scroll through the document with the mouse (wheel)? (as if the complete document would be displayed)
For space/operating reasons, I can't use the thumbnails.
I extended the demo with following code to make it scroll through pages with the mousewheel:
procedure TForm1.TMSFNCWXPDFViewer1MouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
if ssCtrl in Shift then
TMSFNCWXPDFViewer1.ZoomOut
else
TMSFNCWXPDFViewer1.NextPage;
end;
procedure TForm1.TMSFNCWXPDFViewer1MouseWheelUp(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
if ssCtrl in Shift then
TMSFNCWXPDFViewer1.ZoomIn
else
TMSFNCWXPDFViewer1.PreviousPage;
end;