HOWTO: Use GENHTML to Create HTML from a Visual FoxPro Screen

MORE INFORMATION

1. Create a program file named "Htmlscx.prg", using the following code:

         * Trap Status of Safety.
         SafetyStatus=SET('SAFETY')
         SET SAFETY OFF
         Example=CREATEOBJECT('FORM')
         Example.TOP=0
         Example.LEFT=0
         Example.NAME='EXAMPLE'
         Example.AUTOCENTER=.T.
         Example.VISIBLE=.T.
         Example.SCALEMODE=3
         Example.HEIGHT=150
         Example.WIDTH=375
         Example.FontName="Courier New"
         Example.FontSize=10
         * Add A label.
         Example.ADDOBJECT('Label1','Label')
         WITH Example.Label1
            .TOP=6
            .LEFT=25
            .CAPTION="TextBox Control"
            .AUTOSIZE=.T.
            .FONTNAME="Courier New"
            .FONTSIZE=10
         ENDWITH
         * Add a text box control.
         Example.ADDOBJECT('Text1','textbox')
         WITH Example.Text1
            .TOP=24
            .LEFT=25
            .WIDTH=100
            .HEIGHT=25
            .VISIBLE=.T.
            .FONTNAME="Courier New"
            .FONTSIZE=10
         ENDWITH
         * Add an option group control.
         Example.ADDOBJECT('Option1','OptionGroup')
         WITH Example.Option1
            .TOP=24
            .LEFT=250
            .WIDTH=100
            .HEIGHT=45
            .VISIBLE=.T.
            .BUTTONCOUNT=2
         ENDWITH
         * Add an edit box control.
         Example.ADDOBJECT('Edit1','Editbox')
         WITH Example.Edit1
            .TOP=74
            .LEFT=25
            .WIDTH=100
            .HEIGHT=50
            .VISIBLE=.T.
            .FONTNAME="Courier New"
            .FONTSIZE=10
         ENDWITH
         * Add a check box control.
         Example.ADDOBJECT('Check1','CheckBox')
         WITH Example.Check1
            .TOP=74
            .LEFT=250
            .WIDTH=100
            .HEIGHT=50
            .VISIBLE=.T.
            .AUTOSIZE=.T.
            .CAPTION="CheckBox Control"
            .FONTNAME="Courier New"
            .FONTSIZE=10
         ENDWITH
         * Add a command group.
         Example.ADDOBJECT('Command1','CommandGroup')
         WITH Example.Command1
            .TOP=148
            .LEFT=25
            .WIDTH=100
            .HEIGHT=45
            .VISIBLE=.T.
            .BUTTONCOUNT=3
            .AUTOSIZE=.T.
         ENDWITH
         * save the form
         Example.SAVEAS(STRTRAN('EXAMPLE','DBF','SCX'))
         RELEASE WINDOW Example
         FLUSH
         MODI FORM (STRTRAN('EXAMPLE','DBF','SCX')) NOWAIT SAVE
         CLOSE ALL
         * Generate the HTML from the form file.
         DO (_GENHTML) WITH "EXAMPLEA","EXAMPLE.SCX"
         CLOSE ALL
         * Instantiate another form
         Example=CREATEOBJECT('MYFORM')
         Example.SHOW
         * Generate HTML from the form
         DO (_GENHTML) WITH "EXAMPLEB",Example
         PUBLIC ohyperlinkobject
         * Create a form with a hyperlink to the sample file
         ohyperlinkobject=NEWOBJECT('hyperform',HOME()+"ffc\_hyperlink.vcx")
         ohyperlinkobject.SHOW
         SET SAFETY &SafetyStatus
   
         DEFINE CLASS MYFORM AS FORM
            TOP        = 0
            LEFT       = 0
            NAME       = 'EXAMPLE'
            AUTOCENTER = .T.
            VISIBLE    = .T.
            SCALEMODE  = 3
            HEIGHT     = 206
            WIDTH      = 405
            FONTNAME   = "Courier New"
            FONTSIZE   = 10
   
            ADD OBJECT 'Label1' AS 'Label' WITH ;
               TOP=6, ;
               LEFT=25, ;
               CAPTION="Label", ;
               AUTOSIZE=.T., ;
               FONTNAME="Courier New", ;
               FONTSIZE=10
   
            ADD OBJECT 'Text1' AS 'textbox' WITH ;
               TOP=24, ;
               LEFT=25, ;
               WIDTH=100, ;
               HEIGHT=25, ;
               VISIBLE=.T., ;
               FONTNAME="Courier New", ;
               FONTSIZE=10
   
            ADD OBJECT 'Option1' AS 'OptionGroup' WITH ;
               TOP=24, ;
               LEFT=250, ;
               WIDTH=100, ;
               HEIGHT=45, ;
               VISIBLE=.T., ;
               BUTTONCOUNT=2
   
            ADD OBJECT 'Edit1' AS 'Editbox' WITH ;
               TOP=74, ;
               LEFT=25, ;
               WIDTH=100, ;
               HEIGHT=50, ;
               VISIBLE=.T., ;
               FONTNAME="Courier New", ;
               FONTSIZE=10
   
            ADD OBJECT 'Check1' AS 'CheckBox' WITH ;
               TOP=74, ;
               LEFT=250, ;
               WIDTH=100, ;
               HEIGHT=50, ;
               VISIBLE=.T., ;
               AUTOSIZE=.T., ;
               CAPTION="CheckBox Control", ;
               FONTNAME="Courier New", ;
               FONTSIZE=10
   
            ADD OBJECT 'Command1' AS 'CommandGroup' WITH ;
               TOP=148, ;
               LEFT=25, ;
               WIDTH=100, ;
               HEIGHT=45, ;
               VISIBLE=.T., ;
               BUTTONCOUNT=3, ;
               AUTOSIZE=.T.
   
         ENDDEFINE
   
   
         DEFINE CLASS hyperform AS FORM
            TOP      = 0
            LEFT     = 0
            HEIGHT   = 100
            WIDTH    = 250
            DOCREATE = .T.
            CAPTION  = "Display Example Screens"
            NAME     = "Form1"
            SHOWTIPS = .T.
   
            ADD OBJECT _hyperlinklabel1 AS _hyperlinklabel WITH ;
               LEFT       = 25, ;
               TOP        = 10, ;
               HEIGHT     = 25, ;
               VISIBLE    = .T., ;
               FONTNAME   = "Times New Roman", ;
               FONTSIZE   = 14, ;
               FONTITALIC = .T., ;
               AUTOSIZE   = .T., ;
               ctarget    = sys(5)+sys(2003)+"\EXAMPLEA.HTM", ;
               CAPTION    = "Example Screen A", ;
               lnewwindow = .T., ;
               NAME       = "_HYPERLINKLABEL1"
   
            ADD OBJECT _hyperlinklabel2 AS _hyperlinklabel WITH ;
               LEFT       = 25, ;
               TOP        = 60, ;
               HEIGHT     = 25, ;
               VISIBLE    = .T., ;
               FONTNAME   = "Times New Roman", ;
               FONTSIZE   = 14, ;
               FONTITALIC = .T., ;
               AUTOSIZE   = .T., ;
               ctarget    = sys(5)+sys(2003)+"\EXAMPLEB.HTM", ;
               CAPTION    = "Example Screen B", ;
               lnewwindow = .T., ;
               NAME       = "_HYPERLINKLABEL2"
   
         ENDDEFINE
   							

2. When the Form captioned "Display Example Screens" appears, click the hyperlink labels to launch the Internet Browser and display the HTML generated by GENHTML.