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/hyperlnk.sct

VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution1�Height = 261
Width = 346
DoCreate = .T.
Caption = "Add Web Hyperlinks to a Form"
HelpContextID = 222
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 228
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 228
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 6
Behindscenes1.ZOrderSet = 3
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 324
Shape2.ZOrderSet = 4
Shape2.Name = "Shape2"
Label1.Caption = "Click on a hyperlink below to navigate to the VFP web site in your web browser. You can also add more sophisticated URL navigation to your applications."
Label1.Height = 42
Label1.Left = 24
Label1.Top = 24
Label1.Width = 300
Label1.TabIndex = 8
Label1.ZOrderSet = 5
Label1.Name = "Label1"
Label4.TabIndex = 9
Label4.ZOrderSet = 6
Label4.Name = "Label4"
Cmdclose1.Top = 228
Cmdclose1.Left = 264
Cmdclose1.TabIndex = 7
Cmdclose1.ZOrderSet = 7
Cmdclose1.Name = "Cmdclose1"
RPROCEDURE navigate
LPARAMETER cURL
THIS.HyperLink1.NavigateTo(cUrl)

ENDPROC
�� ��i�%r���U�����C������UCURLTHIS
HYPERLINK1
NAVIGATETOnavigate,��1qA2G)�*navigate 
shapeshapeShape3Frmsolution1cTop = 168
Left = 12
Height = 48
Width = 324
SpecialEffect = 0
ZOrderSet = 0
Name = "Shape3"
shapeshapeShape1Frmsolution1bTop = 96
Left = 12
Height = 48
Width = 324
SpecialEffect = 0
ZOrderSet = 1
Name = "Shape1"
_hyperlinklabel..\..\..\ffc\_hyperlink.vcxlabel_HYPERLINKLABEL1Frmsolution1�Caption = "VFP Web Site"
Left = 24
Top = 108
Visible = .T.
TabIndex = 1
ZOrderSet = 8
ctarget = http://msdn.microsoft.com/vfoxpro
Name = "_HYPERLINKLABEL1"
_hyperlinkimage..\..\..\ffc\_hyperlink.vcximage_HYPERLINKIMAGE1Frmsolution1�Picture = ..\menus\blue.bmp
Height = 32
Left = 144
Top = 104
Visible = .T.
Width = 32
ZOrderSet = 9
ctarget = http://msdn.microsoft.com/vfoxpro
lnewwindow = .T.
Name = "_HYPERLINKIMAGE1"
_hyperlinkcommandbutton..\..\..\ffc\_hyperlink.vcx
commandbutton_HYPERLINKCOMMANDBUTTON1Frmsolution1�Top = 108
Left = 228
Height = 27
Width = 92
Caption = "VFP Web Site"
Default = .F.
TabIndex = 2
Visible = .T.
ZOrderSet = 10
ctarget = http://msdn.microsoft.com/vfoxpro
lnewwindow = .T.
Name = "_HYPERLINKCOMMANDBUTTON1"
_urlcombobox..\..\..\ffc\_internet.vcxcombobox
_URLCOMBOBOX1Frmsolution1uHeight = 23
Left = 24
TabIndex = 3
Top = 180
Visible = .T.
Width = 156
ZOrderSet = 11
Name = "_URLCOMBOBOX1"

commandbutton
commandbuttonCommand1Frmsolution1�Top = 180
Left = 183
Height = 23
Width = 35
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Go!"
TabIndex = 4
ZOrderSet = 12
Name = "Command1"
@PROCEDURE Click
THIS.Parent._URLCOMBOBOX1.Navigate()
ENDPROC
�� ���i%m�|�U��C������UTHISPARENT
_URLCOMBOBOX1NAVIGATEClick,��1115)�
commandbutton
commandbuttonCommand2Frmsolution1�Top = 180
Left = 252
Height = 23
Width = 70
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Navigate..."
TabIndex = 5
ZOrderSet = 13
Name = "Command2"
0PROCEDURE Click
DO FORM OPENADLG.SCX
ENDPROC
�� ��Q%Vke�U�OPENADLG.SCX�UOPENADLGSCXClick,��1A1%)�	hyperlink	hyperlink
Hyperlink1Frmsolution1DTop = 228
Left = 84
Height = 23
Width = 23
Name = "Hyperlink1"
labellabelLabel2Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Hyperlinks"
Height = 15
Left = 16
Top = 89
Width = 51
TabIndex = 10
Name = "Label2"
labellabelLabel3Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "URL Navigation"
Height = 15
Left = 16
Top = 161
Width = 78
TabIndex = 11
Name = "Label3"
kArial, 0, 9, 5, 15, 12, 16, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Arial, 4, 9, 5, 15, 12, 16, 3, 0
�Height = 261
Width = 346
DoCreate = .T.
Caption = "Add Web Hyperlinks to a Form"
HelpContextID = 1231608
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 228
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 228
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 6
Behindscenes1.ZOrderSet = 3
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 324
Shape2.ZOrderSet = 4
Shape2.Name = "Shape2"
Label1.Caption = "Click on a hyperlink below to navigate to the VFP web site in your web browser. You can also add more sophisticated URL navigation to your applications."
Label1.Height = 42
Label1.Left = 24
Label1.Top = 24
Label1.Width = 300
Label1.TabIndex = 8
Label1.ZOrderSet = 5
Label1.Name = "Label1"
Label4.TabIndex = 9
Label4.ZOrderSet = 6
Label4.Name = "Label4"
Cmdclose1.Top = 228
Cmdclose1.Left = 264
Cmdclose1.TabIndex = 7
Cmdclose1.ZOrderSet = 7
Cmdclose1.Name = "Cmdclose1"