DEFINE CLASS htmls AS form


    Top = 76
    Left = 243
    Height = 456
    Width = 784
    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"


    ADD OBJECT olecontrol1 AS olecontrol WITH ;
        Top = 12, ;
        Left = 12, ;
        Height = 300, ;
        Width = 756, ;
        TabIndex = 8, ;
        Anchor = 15, ;
        Name = "Olecontrol1"


    PROCEDURE doform
        _Screen.AddProperty("s",CreateObject("Form"))
        _Screen.s.Show()
    ENDPROC


    PROCEDURE Init
        TEXT TO lcSQL TEXTMERGE NOSHOW
        <CENTER>
        <TABLE border=0 cellSpacing=10 cellPadding=10>
        <TR height=150>
        <TD width=150 align=center> <a href="vfps://Thisform.DoForm()">    
            <img src="C:\LUZIA\picture/logo/w11.jpg" border=0 height=150 width=150><BR>Школа</a> 
        </TD>
        <TD width=150 align=center> <a href="files://mspaint.exe">         
            <img src="C:\LUZIA\picture/logo/w12.jpg" border=0 height=150 width=150><BR>Дом</a>
        </TD>
        <TD width=150 align=center> <a href="vfps://wait window 1111">     
            <img src="C:\LUZIA\picture/logo/w13.jpg" border=0 height=150 width=150><BR>Квартира</a> 
        </TD>
        </TR>
        </TABLE>
        </CENTER>
        ENDTEXT


        ACTIVATE SCREEN
        DO WHILE NOT VARTYPE(THISFORM.olecontrol1.OBJECT.Document) = "O"
        ENDDO

        WITH THISFORM.olecontrol1.OBJECT.Document
            .Open()
            .Write(lcSQL)
            .Close()
        ENDWITH
    ENDPROC


    PROCEDURE olecontrol1.Refresh
        *** ActiveX Control Method ***
        NODEFAULT
    ENDPROC


    PROCEDURE olecontrol1.BeforeNavigate2
        *** ActiveX Control Event ***
        LPARAMETERS pdisp, url, flags, targetframename, postdata, headers, cancel

        IF url = "vfps://"

            Cancel = .T.
            url = SUBSTR(url,8)
            url = STRTRAN(url,[%20],[ ])
            IF RIGHT(url,1)=[/]
                url=LEFT(url,LEN(url)-1)
            ENDIF 
            &url

        ENDIF

        IF url="files://"

            Cancel = .T.

            url = SUBSTR(url,9)
            url = STRTRAN(url,[%20],[ ])
            IF RIGHT(url,1)=[/]
                url=LEFT(url,LEN(url)-1)
            ENDIF 

            DECLARE INTEGER ShellExecute ;
                IN SHELL32.DLL ;
                INTEGER nWinHandle,;
                STRING cOperation,;   
                STRING cFileName,;
                STRING cParameters,;
                STRING cDirectory,;
                INTEGER nShowWindow
            ShellExecute(0,"Open",URL,"","",1)

        ENDIF
    ENDPROC


    PROCEDURE olecontrol1.Init
        THIS.Navigate("about:blank")
    ENDPROC

ENDDEFINE

DO WHILE NOT VARTYPE(THISFORM.olecontrol1.OBJECT.Document) = "O"  
ENDDO

ACTIVATE SCREEN
DO WHILE NOT VARTYPE(THIS.olecontrol1.OBJECT.Document) = "O"
ENDDO

WITH THIS.olecontrol1.OBJECT.Document
    .Open()
    .Write(ALLTRIM(Desc))
    .Close()
ENDWITH

Public o
o=CreateObject("form1")
o.show()

Define Class Form1 as Form
    Add Object Timer as Timer with Interval=0

    Add Object ie as OleControl with OleClass="Shell.Explorer.2", width=300, height=200
    
    Procedure ie.init
    With this
        .navigate("About:blank")
    EndWith
    
    Procedure ie.beforenavigate2(pdisp, url, flags, targetframename, postdata, headers, cancel)
    With this
        If url="my://form"
            Text to thisform.timer.tag noshow
            Public oForm
            oForm=CreateObject("Form2")
            oForm.Show()
            EndText
            thisform.timer.interval=10
            cancel=.t.
        EndIf
    EndWith
    
    procedure Init
    With this
        .resize
        .ie.document.writeln("<br><a href='my://form'>formn</a>")
    EndWith

    Procedure Resize
    With this
        .ie.Width=.Width
        .ie.height=.Height
    EndWith    

    Procedure Timer.Timer
    With this
        If not Empty(.Tag)
            ExecScript(.Tag)
            .Tag=""
            .Interval=0
        EndIf
    EndWith

EndDefine
  
  
Define Class form2 as Form
    Caption="Form XXX"
EndDefine

Public o
o=CreateObject("form1")
o.show()

Define Class Form1 as Form
    url=""
    
    Add object Script as Script

    Add Object ie as OleControl with OleClass="Shell.Explorer.2", width=300, height=200
    
    Procedure ie.init
    With this
        .navigate("About:blank")
    EndWith
    
    Procedure ie.beforenavigate2(pdisp, url, flags, targetframename, postdata, headers, cancel)
    With thisform
        cancel=.t.
        .url=url
    EndWith
    
    Procedure ie.CommandStateChange(Command, enable)
    With thisform
        If command=-1 
            lcForm=GetWordNum(.url,2,"//")
            .url=""
            If PemStatus(.Script,lcForm,5)
                GetPem(.Script,lcForm)
            EndIf
        EndIf        
    EndWith
    
    procedure Init
    With this
        .resize
        .ie.document.writeln("<br><a href='my://form1'>form 1</a><br>")
        .ie.document.writeln("<br><a href='my://form2'>form 2</a><br>")
        .ie.document.writeln("<br><a href='my://form3'>form 3</a><br>")
    EndWith

    Procedure Resize
    With this
        .ie.Width=.Width
        .ie.height=.Height
    EndWith    

EndDefine
  
Define Class Script as Custom
    form1=.null.    
    form2=.null.
    form3=.null.

    Add object Forms as Collection

    Procedure Form1_Access
    this.Formx("Form1","new form 1")    
    
    Procedure Form2_Access
    this.Formx("Form2","new form 2")    
    
    Procedure Form3_Access
    this.Formx("Form3","new form 3")    
    
    Hidden Procedure Formx(lcKey,lcCaption)
    With this
        loForm=.null.
        If .Forms.getkey(lcKey) > 0 
            loForm=.Forms.Item(lckey)
        EndIf
        If Vartype(loForm)="O"
            loForm.Show()
        Else
            loForm=CreateObject("formx",lcCaption)
            .Forms.Add(loForm,lckey)
        EndIf
    EndWith

EndDefine 

Define Class Formx as Form
    Procedure Init (lcCaption)
    With this
        .Caption=lcCaption
        .Show()
    EndWith
    

EndDefine