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