************************************************** *-- Class: zoomimage *-- ParentClass: image *-- BaseClass: image * DEFINE CLASS zoomimage AS image Stretch = 0 Height = 68 Width = 68 zoomfactor = 1 Name = "zoomimage" PROTECTED picture PROCEDURE loadimage LPARAMETERS ImageFileName IF EMPTY(ImageFileName) return ENDIF IF FILE(ImageFileName) ThisForm.LockScreen=.T. This.Stretch=0 This.Picture=ImageFileName This.Top=This.Top This.ZoomFactor=1 ThisForm.LockScreen=.F. ENDIF ENDPROC PROCEDURE RightClick ***zoom out IF This.ZoomFactor > 0.125 Thisform.LockScreen=.t. This.ZoomFactor=This.ZoomFactor/2 This.Stretch=2 This.Width=This.Width/2 This.Height=This.Height/2 Thisform.LockScreen=.f. endif ENDPROC PROCEDURE Click ****zoom in IF This.ZoomFactor < 16 Thisform.LockScreen=.t. This.ZoomFactor=This.ZoomFactor*2 This.Stretch=2 This.Width=This.Width*2 This.Height=This.Height*2 Thisform.LockScreen=.f. endif ENDPROC ENDDEFINE * *-- EndDefine: zoomimage **************************************************