TMSFNCWXPDFViewer: Zoom-In and Zoom-Out via ctrl + Mouse wheel

In TMSFNCWXPDFViewer, when a PDF document is zoomed in with the mouse (ctrl + mouse wheel), the document becomes pixelated because the drawing area is zoomed, but not the document.

What is the easiest way to catch this and assign "TMSFNCWXPDFViewer1.ZoomIn" or "TMSFNCWXPDFViewer1.ZoomOut" instead?

I didn't make it with the MouseWheelDown/up event.
Could it be that this event is not yet evaluated?

procedure TForm1.TMSFNCWXPDFViewer1MouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
if ssCtrl in Shift then TMSFNCWXPDFViewer1.ZoomIn;


We applied an improvement for this. The next update will contain the changes,

This sounds good :slight_smile:
Thank you very much

Now it works as expected.
Thanks a lot :slight_smile:

This topic was automatically closed 60 minutes after the last reply. New replies are no longer allowed.