Description

Zoom in/out based on mouse wheel delta.

Syntax

Remarks

Returns error code.

Code

  Public Shared Sub MouseWheel(ByVal App As IShellApp, ByVal Page As IPageDisp, ByVal Main As IApp)

    Dim delta As Double = App.GetWheelDelta()

    If AddInUtils.IsControlKeyPressed Then

      Page.ViewZoomWheel(delta)

    ElseIf AddInUtils.IsShiftKeyPressed Then

      Page.ViewZoomImage(delta)

    Else

      Main.ScrollWnd()

    End If

  End Sub

Context

Page designer

See also

ViewZoomFit, ViewZoomSel

ViewZoomIn, ViewZoomOut

ViewZoomLazo, ViewZoomPct