Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/webvwr.sct

"�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentLLeft = 251
Top = 242
Width = 520
Height = 200
Name = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution1�Height = 330
Width = 370
DoCreate = .T.
Caption = "Create a Visual FoxPro Web Browser"
MinHeight = 330
MinWidth = 370
Visible = .T.
HelpContextID = 228
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 300
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 300
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 6
Behindscenes1.ZOrderSet = 3
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 48
Shape2.Width = 348
Shape2.ZOrderSet = 4
Shape2.Name = "Shape2"
Label1.Caption = "You can use some of the VFP foundation classes to create you own Web Explorer."
Label1.Height = 28
Label1.Left = 24
Label1.Top = 24
Label1.Width = 322
Label1.TabIndex = 7
Label1.ZOrderSet = 5
Label1.Name = "Label1"
Label4.AutoSize = .T.
Label4.TabIndex = 9
Label4.ZOrderSet = 6
Label4.Name = "Label4"
Cmdclose1.Top = 300
Cmdclose1.Left = 288
Cmdclose1.TabIndex = 8
Cmdclose1.ZOrderSet = 7
Cmdclose1.Name = "Cmdclose1"
PROCEDURE navigate
LPARAMETERS tcURL

THIS._Web.Navigate(tcURL)
ENDPROC
PROCEDURE Resize
THIS._Resize.AdjustControls()
ENDPROC
PROCEDURE Init
DODEFAULT()
THIS.BorderStyle = 3
THIS._web.GoHome()
ENDPROC
PROCEDURE Load
LOCAL lcFFCPath,lcSetPath
IF THIS.lSetFFCPath
	DODEFAULT()
	lcSetPath = SET("PATH")
	lcFFCPath = HOME()+"GALLERY"
	IF ATC(lcFFCPath,lcSetPath)#0
		RETURN
	ENDIF
	IF EMPTY(lcSetPath)
		SET PATH TO (lcFFCPATH)
	ELSE
		SET PATH TO (lcSetPath)+";"+(lcFFCPATH)
	ENDIF
ENDIF
ENDPROC
�� ���p%�@�U�����C������UTCURLTHIS_WEBNAVIGATE��C�����UTHIS_RESIZEADJUSTCONTROLS,	��C��T��������C�����UTHISBORDERSTYLE_WEBGOHOME�����%�������	��C��T��C�PATHv��T��C�Q�GALLERY��%�C������i�B��%�C������G)(�������G)(���;�����U	LCFFCPATH	LCSETPATHTHISLSETFFCPATHnavigate,��Resizek��Init���Load���1qB22�2��1�aAA���aAA1B_|��	
�)�*navigate 
_webbrowser4..\..\..\gallery\_webview.vcx
olecontrol_webFrmsolution1MTop = 84
Left = 12
Height = 204
Width = 348
TabIndex = 5
Name = "_web"

��ࡱ�>��	������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry�����������X'Q�@OleObjectData�����AccessObjSiteData&������������8ChangedProps������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������a�V�
4��k�O��L�#L88���Ws5��i+.bL�F�+OLEObject = C:\WINNT\System32\SHDOCVW.DLL
_urlcombobox..\..\..\ffc\_internet.vcxcomboboxcboURLFrmsolution1{Height = 23
Left = 168
TabIndex = 4
Top = 60
Width = 192
lrequestonenter = .T.
lformnavigate = .T.
Name = "cboURL"

commandbutton
commandbuttoncmdBackFrmsolution1�Top = 60
Left = 12
Height = 23
Width = 48
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Back"
TabIndex = 1
Name = "cmdBack"
5PROCEDURE Click
THIS.Parent._web.GoBack()
ENDPROC
�� ���%bwq�U��C������UTHISPARENT_WEBGOBACKClick,��111*)�
commandbutton
commandbutton
cmdForwardFrmsolution1�Top = 60
Left = 60
Height = 23
Width = 48
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Forward"
TabIndex = 2
Name = "cmdForward"
8PROCEDURE Click
THIS.Parent._web.GoForward()
ENDPROC
�� ��J�%ezt�U��C������UTHISPARENT_WEB	GOFORWARDClick,��111-)�
commandbutton
commandbuttoncmdHomeFrmsolution1�Top = 60
Left = 108
Height = 23
Width = 48
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Home"
TabIndex = 3
Name = "cmdHome"
5PROCEDURE Click
THIS.Parent._web.GoHome()
ENDPROC
�� ���%bwq�U��C������UTHISPARENT_WEBGOHOMEClick,��111*)�
_resizable..\..\..\ffc\_controls.vcxcustom_resizeFrmsolution1(Top = 300
Left = 72
Name = "_resize"
JArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
�Height = 330
Width = 370
DoCreate = .T.
Caption = "Create a Visual FoxPro Web Browser"
MinHeight = 330
MinWidth = 370
Visible = .T.
HelpContextID = 1231614
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 300
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 300
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 6
Behindscenes1.ZOrderSet = 3
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 48
Shape2.Width = 348
Shape2.ZOrderSet = 4
Shape2.Name = "Shape2"
Label1.Caption = "You can use some of the VFP foundation classes to create you own Web Explorer."
Label1.Height = 28
Label1.Left = 24
Label1.Top = 24
Label1.Width = 322
Label1.TabIndex = 7
Label1.ZOrderSet = 5
Label1.Name = "Label1"
Label4.AutoSize = .T.
Label4.TabIndex = 9
Label4.ZOrderSet = 6
Label4.Name = "Label4"
Cmdclose1.Top = 300
Cmdclose1.Left = 288
Cmdclose1.TabIndex = 8
Cmdclose1.ZOrderSet = 7
Cmdclose1.Name = "Cmdclose1"