Hi Chi,

Thanks a lot for the idea.


>Hi Naomi, Would you try this?
>( untested !!! )
>
>
>

>*!* 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)
>

>
>
>Regards,
>Ony