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.
PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT list1 AS listbox WITH ;
FontName = "Courier New", ;
ColumnCount = 2, ;
ColumnWidths = "80,20", ;
RowSourceType = 5, ;
RowSource = "myList", ;
Height = 193, ;
ColumnLines = .T., ;
Left = 48, ;
Top = 24, ;
Width = 156, ;
Name = "List1"
PROCEDURE Load
PUBLIC ARRAY myList[2,2]
STORE "English" TO mylist[1,1]
STORE "Japanese" TO mylist[2,1]
STORE "SB" TO mylist[1,2]
STORE "SB" TO mylist[2,2]
ENDPROC
ENDDEFINE