Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
sys(1500,"_MED_INSOB","_medit")
PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
**************************************************
*-- Form: form1 (c:\word letter\form1.scx)
*-- ParentClass: form
*-- BaseClass: form
*-- Time Stamp: 08/30/02 07:36:06 AM
*
DEFINE CLASS form1 AS form
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 192, ;
Left = 96, ;
Height = 27, ;
Width = 84, ;
Caption = "Command1", ;
Name = "Command1"
ADD OBJECT ole1 AS olecontrol WITH ;
Top = 12, ;
Left = 36, ;
Height = 145, ;
Width = 265, ;
Stretch = 1, ;
Name = "Ole1"
PROCEDURE command1.Click
thisform.RemoveObject("ole1")
thisform.AddObject("ole1","olecontrol")
thisform.ole1.visible = .t.
ENDPROC
ENDDEFINE
*
*-- EndDefine: form1
**************************************************
PUBLIC frmImage
frmMyForm = CREATEOBJECT('images_demo') && Create a Form
frmMyForm.SHOW() && Display the form
READ EVENTS
DEFINE CLASS images_demo AS FORM
AUTOCENTER = .T.
TOP = 0
LEFT = 19
HEIGHT =450
WIDTH = 485
DOCREATE = .T.
CAPTION = "Show picture demo"
NAME = "Form1"
ADD OBJECT command2 AS COMMANDBUTTON WITH ;
TOP = 372, ;
LEFT = 26, ;
HEIGHT = 34, ;
WIDTH = 431, ;
CAPTION = "Select Image file to show", ;
NAME = "Command2"
ADD OBJECT optiongroup1 AS OPTIONGROUP WITH ;
AUTOSIZE = .F., ;
BUTTONCOUNT = 4, ;
VALUE = 1, ;
HEIGHT = 27, ;
LEFT = 26, ;
TOP = 339, ;
WIDTH = 431, ;
NAME = "Optiongroup1", ;
Option1.CAPTION = "Best fit", ;
Option1.VALUE = 1, ;
Option1.HEIGHT = 17, ;
Option1.LEFT = 5, ;
Option1.TOP = 5, ;
Option1.WIDTH = 55, ;
Option1.AUTOSIZE = .T., ;
Option1.NAME = "Option1", ;
Option2.CAPTION = "Fit to width", ;
Option2.HEIGHT = 17, ;
Option2.LEFT = 98, ;
Option2.TOP = 5, ;
Option2.WIDTH = 76, ;
Option2.AUTOSIZE = .T., ;
Option2.NAME = "Option2", ;
Option3.CAPTION = "Fit to height", ;
Option3.HEIGHT = 17, ;
Option3.LEFT = 215, ;
Option3.TOP = 5, ;
Option3.WIDTH = 81, ;
Option3.AUTOSIZE = .T., ;
Option3.NAME = "Option3", ;
Option4.CAPTION = "Actual size", ;
Option4.HEIGHT = 17, ;
Option4.LEFT = 330, ;
Option4.TOP = 5, ;
Option4.WIDTH = 76, ;
Option4.AUTOSIZE = .T., ;
Option4.NAME = "Option4"
ADD OBJECT label1 AS LABEL WITH ;
AUTOSIZE = .T., ;
CAPTION = "Height", ;
HEIGHT = 17, ;
LEFT = 254, ;
TOP = 412, ;
VISIBLE = .F., ;
WIDTH = 38, ;
NAME = "Label1"
ADD OBJECT label2 AS LABEL WITH ;
AUTOSIZE = .T., ;
CAPTION = "Width", ;
HEIGHT = 17, ;
LEFT = 381, ;
TOP = 410, ;
VISIBLE = .F., ;
WIDTH = 33, ;
NAME = "Label2"
PROCEDURE INIT
THISFORM.ADDOBJECT('olecontrol1','OleControl','Imaging.EditCtrl.1')
THISFORM.olecontrol1.TOP = 2
THISFORM.olecontrol1.LEFT = 26
THISFORM.olecontrol1.HEIGHT = 333
THISFORM.olecontrol1.WIDTH = 431
THISFORM.olecontrol1.NAME = "Olecontrol1"
THISFORM.olecontrol1.VISIBLE = .T.
IF !EMPTY(THISFORM.olecontrol1.IMAGE) AND FILE(THISFORM.olecontrol1.IMAGE)
THISFORM.olecontrol1.DISPLAY
ENDIF
ENDPROC
PROCEDURE DESTROY
THISFORM.REMOVEOBJECT("olecontrol1")
DODEFAULT()
RELEASE ALL
CANC
ENDPROC
PROCEDURE command2.CLICK
LOCAL lcFile
m.lcFile = GETPICT()
IF FILE(m.lcFile)
THISFORM.olecontrol1.IMAGE = m.lcFile
THISFORM.olecontrol1.DISPLAY
ENDIF
ENDPROC
PROCEDURE optiongroup1.CLICK
THISFORM.olecontrol1.FitTo(THIS.VALUE-1)
ENDPROC
ENDDEFINE
ADD OBJECT command1 AS commandbutton WITH ;
Top = 466, ;
Left = 26, ;
Height = 60, ;
Width = 431, ;
Caption = "Open a separate window ", ;
Visible = .F., ;
Name = "Command1"
PROCEDURE command1.Click
frmImage = CREATEOBJECT("frmimages")
frmImage.Caption = "Image "+Thisform.olecontrol1.Image
frmImage.AlwaysOnTop = .T.
frmImage.BorderStyle = 3
frmImage.Top = 10
frmImage.Left = 10
frmImage.Height = ThisForm.Spinner1.Value
frmImage.Width = ThisForm.Spinner2.Value
frmImage.Addobject('oImgView1','OleControl','Imaging.EditCtrl.1')
frmImage.oImgView1.Top = 5
frmImage.oImgView1.Left = 5
frmImage.oImgView1.Width = frmImage.Width - 5
frmImage.oImgView1.Height = frmImage.Height - 5
frmImage.oImgView1.Image = Thisform.olecontrol1.Image
frmImage.oImgView1.FitTo(ThisForm.Optiongroup1.Value - 1)
frmImage.oImgView1.Display
frmImage.oImgView1.Visible = .T.
frmImage.Show() && Display the form
ENDPROC