Private Sub ZoomChanged (x As Int, y As Int, ZoomDelta As Float)
Dim ivx As Float = x - pnlBackground.Left
Dim ivy As Float = y - pnlBackground.Top
ZoomDelta = Max(ZoomDelta, mBase.Width / pnlBackground.Width)
pnlBackground.SetLayoutAnimated(0, x - ivx * ZoomDelta, y - ivy * ZoomDelta, pnlBackground.Width * ZoomDelta, pnlBackground.Height * ZoomDelta)
SetImageViewLayout
UpdateScaleAndCenter
If xui.SubExists(mCallBack, mEventName & "_ZoomEvent", 3) Then
CallSub3(mCallBack, mEventName & "_ZoomEvent", CurrentScale, CenterX, CenterY)
End If
End Sub