Description

Zoom current image.

Syntax

Remarks

Returns error code.

Example

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

    Dim delta As Double = App.GetWheelDelta()

    If AddInUtils.IsControlKeyPressed Then

      Page.ViewZoomWheel(delta)

    ElseIf AddInUtils.IsShiftKeyPressed Then

      Page.ViewZoomImage(delta)

    Else

      Fred.ScrollWnd()

    End If

  End Sub

Context

Page designer

All image related commands

AddImageEx, ArticleNewPicture, ImgInsert, ImgInsertId, ImgInsertType, ImgNewDummyEx

ImgCrop, ImgSetCrop, GetImgCropHeight, GetImgCropLeft, GetImgCropTop, GetImgCropWidth, GetImgHeight, GetImgWidth

ImgZoom, ImgZoomPct, ViewZoomImage, GetImgZoomPctX, GetImgZoomPctY

GetSelectedImgId, GetSelectedImgDummy,

ImgGetColor, ImgSetColor, ImgGetFlag, ImgSetFlag, ImgImportPath Method

ImgTrace, ImgTraceDlg, ImgTraceEx

ImgUpdate, TxtSelectReference, ViewShowImg, ViewShowImgHigh