*!* zoom to X% using MouseWheel
*!*thisform.imgPicture.MouseWheel
LPARAMETERS nDirection, nShift, nXCoord, nYCoord
LOCAL lnDeltaX, lnDeltaY
m.lnDeltaX = this.nWidthOrigin * 10 / 100
m.lnDeltaY = this.nHeightOrigin * 10 / 100
IF m.nDirection < 0
  this.Width = this.Width + m.lnDeltaX
  this.Height = this.Height + m.lnDeltaY
ELSE
  this.Width = MAX(this.Width - m.lnDeltaX, m.lnDeltaX)
  this.Height = MAX(this.Height - m.lnDeltaY, m.lnDeltaY)
ENDIF


*!* zoom to 100%
*!*thisform.imgPicture.DblClick
this.Width = this.nWidthOrigin
this.Height = this.nHeightOrigin


*!* use this for assign PictureVal to imgPicture object
*!* LoadMyPicture Method
LPARAMETERS tcPictureContent
LOCAL lcFile, loImage
m.lcFile = ADDBS(SYS(2023)) + SYS(2015)

*!* create image object for retrieve actual picture size
m.loImage = CREATEOBJECT("Image")
m.loImage.Picture = m.lcFile

*!* 100% picture size
WITH thisform.imgPicture
  .PictureVal = m.tcPictureContent
  .Width = m.loImage.Width
  .Height = m.loImage.Height
  .Stretch = 1
  .AddProperty("nWidthOrigin", .Width)
  .AddProperty("nHeightOrigin", .Height)
ENDWITH

m.loImage = NULL
RELEASE m.loImage
ERASE (m.lcFile)