Mini Kabibi Habibi
g� VERSION = 3.00 !Arial, 4, 9, 5, 15, 12, 32, 3, 0
_hyperlinkcommandbutton Nlvisited_assign
nvisitedforecolor_assign
ohyperlink_access
ctarget_assign
Pixels Class 1 _commandbutton _hyperlinkcommandbutton
commandbutton 1 _hyperlinkbase *clocationurl_access
clocationurl_assign
Pixels uThis class provides the functionality of an OLE Hyperlink and launches a Web Browser by executing the Follow method.. Class 1
_hyperlink _hyperlinkbase �clocationurl URL of the current document location.
oie Object reference to instance of Internet Explorer linked.
lnewwindow Specifies if navigating to a URL will create a new window (.T.) or navigate in the current Internet Explorer link.
ctarget A character string expression representing the document or URL to jump to.
clocation A character string expression specifying the location within the URL specified in cTarget to jump to. If cLocation is not specified, the default document will be jumped to.
cframe A character string expression specifying the frame within the URL specified in cTarget to jump to. If cFrameName is not specified, the default frame will be jumped to.
cieclass Class name used to create link for oIE.
cshellexecuteclass
cshellexecuteclasslibrary
*clocationurl_access
*clocationurl_assign
*follow Executes a hyperlink jump to the specified cTarget URL.
*validurl Returns a valid URL from the specified URL.
*getdefaultbrowser
cThis class provides the functionality of an OLE Hyperlink and launches a Web Browser from a button. Dctarget A character string expression representing the document or URL to jump to.
clocation A character string expression specifying the location within the URL specified in cTarget to jump to. If cLocation is not specified, the default document will be jumped to.
cframe A character string expression specifying the frame within the URL specified in cTarget to jump to. If cFrameName is not specified, the default frame will be jumped to.
lvisited Specifies if the target URL location has been visited.
nvisitedforecolor Specifies visited mode text forecolor.
lnewwindow Specifies if navigating to a URL will create a new window (.T.) or navigate in the current Internet Explorer link.
ohyperlink Object reference to hyperlink class used to navigate.
chyperlinkclass Class name used to create the oHyperlink object reference.
chyperlinkclasslibrary Class library containing the class used to create the oHyperlink object reference.
lformsynch Specifies if hyperlink Internet Explorer link is scoped at the form level so that other hyperlink objects on the form all share the same link to the Internet Explorer link.
lhyperlinkcreated Speicifes that a hyperlink object reference has been created for oHyperlinik.
lautotooltip
*follow Executes a hyperlink jump to the specified cTarget URL.
*goback Executes a hyperlink jump backward within the history list.
*goforward Executes a hyperlink jump forward within the history list.
*lvisited_assign
*nvisitedforecolor_assign
*showvisitedforecolor Changes text forecolor to specified visited color.
*ohyperlink_access
*ctarget_assign
�� � � Cc % N � C @ � U 3 " ��C� � � � � � � � � �� T� � �a�� U THIS
OHYPERLINK
NAVIGATETO CTARGET CLOCATION CFRAME LVISITED B�C� � � �� U THIS
OHYPERLINK GOBACK B�C� � � �� U THIS
OHYPERLINK GOFORWARDZ ��
� � %�� � �
� ��# � B� � T� � ��
� �� %�� � ��S �
�� � � � U VNEWVAL THIS LVISITED SHOWVISITEDFORECOLORZ ��
� � %�� � �
� ��# � B� � T� � ��
� �� %�� � ��S �
�� � � � U VNEWVAL THIS NVISITEDFORECOLOR LVISITED SHOWVISITEDFORECOLOR T� � �� � �� U THIS FORECOLOR NVISITEDFORECOLORh0 %�� � � C� thisformb� O � C� �
��� �= %�C� thisform.oHyperLinkFormSynchb� O�
C� � �
��� � T� � �� � �� �� �& ��C�
oHyperLink� � � � � � ��) ��C� oHyperLinkFormSynch� � � � �� � � �& ��C�
oHyperLink� � � � � � �� � T� � � �� � �� %�� �
��U� T� �
�a�� T� � �� � �� � B�� � �� U THIS
LFORMSYNCH THISFORM OHYPERLINKFORMSYNCH
OHYPERLINK SETOBJECTREF CHYPERLINKCLASS CHYPERLINKCLASSLIBRARY ADDPROPERTY
LNEWWINDOW LHYPERLINKCREATED CTARGET� ��
� � %�� � ��6 � T� � �C �
� � � � �� �R � T� � �C�
� ��� � %�� � ��y � T� � �� � �� � U VNEWVAL THIS LHYPERLINKCREATED CTARGET
OHYPERLINK VALIDURL LAUTOTOOLTIP TOOLTIPTEXT7 �� � � � � %�� �
��0 � ��� � �� � U NBUTTON NSHIFT NXCOORD NYCOORD THIS LHYPERLINKCREATED
OHYPERLINK
�� � � U THIS FOLLOW* %�C�
�� � B�-�� � T� � �� U THIS
OHYPERLINK follow, �� goback� �� goforward� �� lvisited_assign �� nvisitedforecolor_assign� �� showvisitedforecolor9 �� ohyperlink_accessw �� ctarget_assign� �� MouseMovel �� Click� �� Destroy ��1 !� 3 3 3 � bA A !� A 3 � bA A !� A 3 13 �1� a�A � aA a� 1A � 3 � �� AA 1A 2 1� A 3 � 3 � q A � 2 j � � � �
� � y � � & � q * - � g > 7 � � J <
R > 8 x V ) � �PROCEDURE follow
this.oHyperLink.NavigateTo(this.cTarget,this.cLocation,this.cFrame)
this.lVisited=.T.
ENDPROC
PROCEDURE goback
RETURN this.oHyperLink.GoBack()
ENDPROC
PROCEDURE goforward
RETURN this.oHyperLink.GoForward()
ENDPROC
PROCEDURE lvisited_assign
LPARAMETERS m.vNewVal
IF this.lVisited=m.vNewVal
RETURN
ENDIF
this.lVisited=m.vNewVal
IF this.lVisited
this.ShowVisitedForeColor
ENDIF
ENDPROC
PROCEDURE nvisitedforecolor_assign
LPARAMETERS m.vNewVal
IF this.nVisitedForeColor=m.vNewVal
RETURN
ENDIF
this.nVisitedForeColor=m.vNewVal
IF this.lVisited
this.ShowVisitedForeColor
ENDIF
ENDPROC
PROCEDURE showvisitedforecolor
this.ForeColor=this.nVisitedForeColor
ENDPROC
PROCEDURE ohyperlink_access
IF this.lFormSynch AND TYPE("thisform")=="O" AND NOT ISNULL(thisform)
IF TYPE("thisform.oHyperLinkFormSynch")=="O" AND ;
NOT ISNULL(thisform.oHyperLinkFormSynch)
this.oHyperLink=thisform.oHyperLinkFormSynch
ELSE
this.SetObjectRef("oHyperLink",this.cHyperLinkClass,this.cHyperLinkClassLibrary)
thisform.AddProperty("oHyperLinkFormSynch",this.oHyperLink)
ENDIF
ELSE
this.SetObjectRef("oHyperLink",this.cHyperLinkClass,this.cHyperLinkClassLibrary)
ENDIF
this.oHyperLink.lNewWindow=this.lNewWindow
IF NOT this.lHyperLinkCreated
this.lHyperLinkCreated=.T.
this.cTarget=this.cTarget
ENDIF
RETURN this.oHyperLink
ENDPROC
PROCEDURE ctarget_assign
LPARAMETERS m.vNewVal
IF this.lHyperLinkCreated
this.cTarget=this.oHyperLink.ValidURL(m.vNewVal)
ELSE
this.cTarget=ALLTRIM(m.vNewVal)
ENDIF
IF this.lAutoTooltip
this.ToolTipText=this.cTarget
ENDIF
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF NOT this.lHyperLinkCreated
=this.oHyperLink
ENDIF
ENDPROC
PROCEDURE Click
this.Follow
ENDPROC
PROCEDURE Destroy
IF NOT DODEFAULT()
RETURN .F.
ENDIF
this.oHyperLink=.NULL.
ENDPROC
YAutoSize = .T.
FontUnderline = .T.
MousePointer = 99
MouseIcon = graphics\h_point.cur
ForeColor = 0,0,255
ctarget =
clocation =
cframe =
nvisitedforecolor = 8388736
ohyperlink = .NULL.
chyperlinkclass = _HyperLinkBase
chyperlinkclasslibrary = _HyperLink.vcx
lformsynch = .T.
lautotooltip = .T.
Name = "_hyperlinkcommandbutton"
_base.vcx _hyperlinkimage #ohyperlink_access
ctarget_assign
Pixels cThis class provides the functionality of an OLE Hyperlink and launches a Web Browser from an image. Class _image _hyperlinkimage �ctarget A character string expression representing the document or URL to jump to.
clocation A character string expression specifying the location within the URL specified in cTarget to jump to. If cLocation is not specified, the default document will be jumped to.
cframe A character string expression specifying the frame within the URL specified in cTarget to jump to. If cFrameName is not specified, the default frame will be jumped to.
lvisited Specifies if the target URL location has been visited.
lnewwindow Specifies if navigating to a URL will create a new window (.T.) or navigate in the current Internet Explorer link.
ohyperlink Object reference to hyperlink class used to navigate.
chyperlinkclass Class name used to create the oHyperlink object reference.
chyperlinkclasslibrary Class library containing the class used to create the oHyperlink object reference.
lformsynch Specifies if hyperlink Internet Explorer link is scoped at the form level so that other hyperlink objects on the form all share the same link to the Internet Explorer link.
lhyperlinkcreated Speicifes that a hyperlink object reference has been created for oHyperlinik.
lautotooltip
*follow Executes a hyperlink jump to the specified cTarget URL.
*goback Executes a hyperlink jump backward within the history list.
*goforward Executes a hyperlink jump forward within the history list.
*ohyperlink_access
*ctarget_assign
��� � � H % � � / | � U 3 " ��C� � � � � � � � � �� T� � �a�� U THIS
OHYPERLINK
NAVIGATETO CTARGET CLOCATION CFRAME LVISITED B�C� � � �� U THIS
OHYPERLINK GOBACK B�C� � � �� U THIS
OHYPERLINK GOFORWARDh0 %�� � � C� thisformb� O � C� �
��� �= %�C� thisform.oHyperLinkFormSynchb� O�
C� � �
��� � T� � �� � �� �� �& ��C�
oHyperLink� � � � � � ��) ��C� oHyperLinkFormSynch� � � � �� � � �& ��C�
oHyperLink� � � � � � �� � T� � � �� � �� %�� �
��U� T� �
�a�� T� � �� � �� � B�� � �� U THIS
LFORMSYNCH THISFORM OHYPERLINKFORMSYNCH
OHYPERLINK SETOBJECTREF CHYPERLINKCLASS CHYPERLINKCLASSLIBRARY ADDPROPERTY
LNEWWINDOW LHYPERLINKCREATED CTARGET� ��
� � %�� � ��6 � T� � �C �
� � � � �� �R � T� � �C�
� ��� � %�� � ��y � T� � �� � �� � U VNEWVAL THIS LHYPERLINKCREATED CTARGET
OHYPERLINK VALIDURL LAUTOTOOLTIP TOOLTIPTEXT
�� � � U THIS FOLLOW* %�C�
�� � B�-�� � T� � �� U THIS
OHYPERLINK7 �� � � � � %�� �
��0 � ��� � �� � U NBUTTON NSHIFT NXCOORD NYCOORD THIS LHYPERLINKCREATED
OHYPERLINK follow, �� goback� �� goforward� �� ohyperlink_access �� ctarget_assign! �� Click �� Destroy �� MouseMove` ��1 !� 3 3 3 �1� a�A � aA a� 1A � 3 � �� AA 1A 2 � 3 � q A � 3 1� A 2 j � � � �
� � � " # � � . % � 2 * / � 9 ) � �MousePointer = 99
MouseIcon = graphics\h_point.cur
ctarget =
clocation =
cframe =
ohyperlink = .NULL.
chyperlinkclass = _HyperLinkBase
chyperlinkclasslibrary = _HyperLink.vcx
lformsynch = .T.
lautotooltip = .T.
Name = "_hyperlinkimage"
image _base.vcx _hyperlinklabel Nlvisited_assign
nvisitedforecolor_assign
ohyperlink_access
ctarget_assign
Pixels bThis class provides the functionality of an OLE Hyperlink and launches a Web Browser from a label. Class 1 _label _hyperlinklabel /AutoSize = .T.
FontUnderline = .T.
MousePointer = 15
ForeColor = 0,0,255
ctarget =
clocation =
cframe =
nvisitedforecolor = 8388736
lformsynch = .T.
ohyperlink = .NULL.
chyperlinkclass = _HyperLinkBase
chyperlinkclasslibrary = _HyperLink.vcx
lautotooltip = .T.
Name = "_hyperlinklabel"
label _base.vcx hyperlink _base.vcx �Height = 27
Width = 25
clocationurl =
oie = .NULL.
ctarget =
clocation =
cframe =
cieclass = InternetExplorer.Application
cshellexecuteclass = _ShellExecute
cshellexecuteclasslibrary = _Environ.vcx
Name = "_hyperlinkbase"
�PROCEDURE follow
this.oHyperLink.NavigateTo(this.cTarget,this.cLocation,this.cFrame)
this.lVisited=.T.
ENDPROC
PROCEDURE goback
RETURN this.oHyperLink.GoBack()
ENDPROC
PROCEDURE goforward
RETURN this.oHyperLink.GoForward()
ENDPROC
PROCEDURE ohyperlink_access
IF this.lFormSynch AND TYPE("thisform")=="O" AND NOT ISNULL(thisform)
IF TYPE("thisform.oHyperLinkFormSynch")=="O" AND ;
NOT ISNULL(thisform.oHyperLinkFormSynch)
this.oHyperLink=thisform.oHyperLinkFormSynch
ELSE
this.SetObjectRef("oHyperLink",this.cHyperLinkClass,this.cHyperLinkClassLibrary)
thisform.AddProperty("oHyperLinkFormSynch",this.oHyperLink)
ENDIF
ELSE
this.SetObjectRef("oHyperLink",this.cHyperLinkClass,this.cHyperLinkClassLibrary)
ENDIF
this.oHyperLink.lNewWindow=this.lNewWindow
IF NOT this.lHyperLinkCreated
this.lHyperLinkCreated=.T.
this.cTarget=this.cTarget
ENDIF
RETURN this.oHyperLink
ENDPROC
PROCEDURE ctarget_assign
LPARAMETERS m.vNewVal
IF this.lHyperLinkCreated
this.cTarget=this.oHyperLink.ValidURL(m.vNewVal)
ELSE
this.cTarget=ALLTRIM(m.vNewVal)
ENDIF
IF this.lAutoTooltip
this.ToolTipText=this.cTarget
ENDIF
ENDPROC
PROCEDURE Click
this.Follow
ENDPROC
PROCEDURE Destroy
IF NOT DODEFAULT()
RETURN .F.
ENDIF
this.oHyperLink=.NULL.
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF NOT this.lHyperLinkCreated
=this.oHyperLink
ENDIF
ENDPROC
Dctarget A character string expression representing the document or URL to jump to.
clocation A character string expression specifying the location within the URL specified in cTarget to jump to. If cLocation is not specified, the default document will be jumped to.
cframe A character string expression specifying the frame within the URL specified in cTarget to jump to. If cFrameName is not specified, the default frame will be jumped to.
lvisited Specifies if the target URL location has been visited.
nvisitedforecolor Specifies visited mode text forecolor.
lnewwindow Specifies if navigating to a URL will create a new window (.T.) or navigate in the current Internet Explorer link.
lformsynch Specifies if hyperlink Internet Explorer link is scoped at the form level so that other hyperlink objects on the form all share the same link to the Internet Explorer link.
ohyperlink Object reference to hyperlink class used to navigate.
chyperlinkclass Class name used to create the oHyperlink object reference.
chyperlinkclasslibrary Class library containing the class used to create the oHyperlink object reference.
lhyperlinkcreated Speicifes that a hyperlink object reference has been created for oHyperlinik.
lautotooltip
*follow Executes a hyperlink jump to the specified cTarget URL.
*goback Executes a hyperlink jump backward within the history list.
*goforward Executes a hyperlink jump forward within the history list.
*lvisited_assign
*nvisitedforecolor_assign
*showvisitedforecolor Changes text forecolor to specified visited color.
*ohyperlink_access
*ctarget_assign
��� � � �2 % ` �
^
� U J ( %�C� this.oIE.LocationURLb� C��7 � B�� � � �� � B�� � �� U THIS OIE LOCATIONURL CLOCATIONURL( ��
� � T� � ��
� ��
�� � � U VNEWVAL THIS CTARGET
NAVIGATETO
B�C� � �� U THIS
NAVIGATETO� �� � �� � %�C� ���& � B�� �� � T� �C� ���� %�CC� �=@� http:
� CC� �=@� file:
� CC� �=@� ftp.
�b CC� �=@� www.�" CCC� �R@� .com� .gov� .net� �& C� ��\� :
� C� �=� \\
��� T� �� http://� �� � %�CC� ����\� :��J�$ T� �CC� � \� /�� ///� //��� ��� %�CC� �=@� ftp.
����: T� �� file://CCC� � \� /�� ///� //�� //� /��� � � B�� �� U TCURL LCURL� �� � � � � � �� � � � � �% |�
RegOpenKey� Win32API����1 |� RegQueryValueEx� Win32API������� |� RegCloseKey� Win32API�
T� �� ��C T� �C� ��# HTTP\shell\open\ddeexec\Application� �
�� %�� � ��� B�� �� �
T� �� �� T� �C� X�� T� �C� >��$ T� �C � � � � � � � �� %�� � � � � ���� ��C � �
�� B�� �� � ��C � �
�� B�CC� � �=��� U NHKEY CSUBKEY NRESULT
LPSZVALUENAME
DWRESERVED LPDWTYPE LPBDATA LPCBDATA LNERRCODE LNGETKEY
REGOPENKEY WIN32API REGQUERYVALUEEX REGCLOSEKEY NGETKEYX �� � � �) %�� ��� C� @�
navigateto ��< � B� � B�C � � � �� U NERROR CMETHOD NLINE� �� � � � �� � � � �" T� �CCC� �� � � � � 6���" T� �CCC� �� � � � � 6���" T� �CCC� �� � � � � 6��� �� %�C� ���� � B�-�� �L %�� � � C� this.oIE.LocationURLb� C � CC� � @� iexplore ��� T� �
�C� � �N�� �( %�C� this.oIE.LocationURLb� C����) ��C�
oShellExecute� �
� � � � �� %�C� � ��� O���� B�C � � � � �� � B�C � � � �� � %�C� �
� �����
T� �� �� � ��C � � � � �
� �� T� �
� �a�� U CTARGET CLOCATION CFRAME LCTARGET
LCLOCATION LCFRAME
OSHELLEXECUTE THIS
LNEWWINDOW GETDEFAULTBROWSER OIE CIECLASS SETOBJECTREF CSHELLEXECUTECLASS CSHELLEXECUTECLASSLIBRARY SHELLEXECUTE LOCATIONURL NAVIGATE2 VISIBLED ( %�C� this.oIE.LocationURLb� C��= � ��
�� � � � B� � U THIS OIE GOBACKD ( %�C� this.oIE.LocationURLb� C��= � ��
�� � � � B� � U THIS OIE GOFORWARD clocationurl_access, �� clocationurl_assign� �� follow� �� validurl �� getdefaultbrowser� �� ErrorJ ��
NavigateTo� �� GoBack� �� GoForward ��1 �� A � 3 � "� 3 � 3 q q � � A � $ �A �A� ��A A � 3 vqS� 1� A � � A�� � A � A3 � �A A Q3 � 1"!!A � q A �aA ���AA QA Q� A �3 �A � A A 3 �A � A A 2 � � �
' F � � � + 3 � g L 9 � � U R c q X � � y ) � �� � � o % p � D b � U I T� � � �� � ��" ��C� � � � � � � � � �� T� � �a�� U THIS
OHYPERLINK
LNEWWINDOW
NAVIGATETO CTARGET CLOCATION CFRAME LVISITED B�C� � � �� U THIS
OHYPERLINK GOBACK B�C� � � �� U THIS
OHYPERLINK GOFORWARDZ ��
� � %�� � �
� ��# � B� � T� � ��
� �� %�� � ��S �
�� � � � U VNEWVAL THIS LVISITED SHOWVISITEDFORECOLORZ ��
� � %�� � �
� ��# � B� � T� � ��
� �� %�� � ��S �
�� � � � U VNEWVAL THIS NVISITEDFORECOLOR LVISITED SHOWVISITEDFORECOLOR T� � �� � �� U THIS FORECOLOR NVISITEDFORECOLORh0 %�� � � C� thisformb� O � C� �
��� �= %�C� thisform.oHyperLinkFormSynchb� O�
C� � �
��� � T� � �� � �� �� �& ��C�
oHyperLink� � � � � � ��) ��C� oHyperLinkFormSynch� � � � �� � � �& ��C�
oHyperLink� � � � � � �� � T� � � �� � �� %�� �
��U� T� �
�a�� T� � �� � �� � B�� � �� U THIS
LFORMSYNCH THISFORM OHYPERLINKFORMSYNCH
OHYPERLINK SETOBJECTREF CHYPERLINKCLASS CHYPERLINKCLASSLIBRARY ADDPROPERTY
LNEWWINDOW LHYPERLINKCREATED CTARGET� ��
� � %�� � ��6 � T� � �C �
� � � � �� �R � T� � �C�
� ��� � %�� � ��y � T� � �� � �� � U VNEWVAL THIS LHYPERLINKCREATED CTARGET
OHYPERLINK VALIDURL LAUTOTOOLTIP TOOLTIPTEXT* %�C�
�� � B�-�� � T� � �� U THIS
OHYPERLINK
�� � � U THIS FOLLOW7 �� � � � � %�� �
��0 � ��� � �� � U NBUTTON NSHIFT NXCOORD NYCOORD THIS LHYPERLINKCREATED
OHYPERLINK follow, �� goback� �� goforward� �� lvisited_assign. �� nvisitedforecolor_assign� �� showvisitedforecolor[ �� ohyperlink_access� �� ctarget_assign� �� Destroy� �� Click� �� MouseMove� ��1 a!� 3 3 3 � bA A !� A 3 � bA A !� A 3 13 �1� a�A � aA a� 1A � 3 � �� AA 1A 2 � q A � 3 � 3 1� A 2 � � � � > � � � � ' � + . � � ? 8 � � K =
R ? : � V ) � �PROCEDURE clocationurl_access
IF TYPE("this.oIE.LocationURL")=="C"
RETURN this.oIE.LocationURL
ENDIF
RETURN this.cLocationURL
ENDPROC
PROCEDURE clocationurl_assign
LPARAMETERS m.vNewVal
this.cTarget=m.vNewVal
this.NavigateTo
ENDPROC
PROCEDURE follow
RETURN this.NavigateTo()
ENDPROC
PROCEDURE validurl
LPARAMETERS tcURL
LOCAL lcURL
IF EMPTY(tcURL)
RETURN ""
ENDIF
lcURL=ALLTRIM(tcURL)
IF NOT LOWER(LEFT(lcURL,5))=="http:" AND NOT LOWER(LEFT(lcURL,5))=="file:" AND ;
NOT LOWER(LEFT(lcURL,4))=="ftp." AND (LOWER(LEFT(lcURL,4))=="www." OR ;
INLIST(LOWER(RIGHT(lcURL,4)),".com",".gov",".net") OR ;
(NOT SUBSTR(lcURL,2,1)==":" AND NOT LEFT(lcURL,2)=="\\"))
lcURL="http://"+lcURL
ENDIF
IF SUBSTR(PADR(lcURL,5),5,1)==":"
lcURL=STRTRAN(STRTRAN(lcURl,"\","/"),"///","//")
ELSE
IF NOT LOWER(LEFT(lcURL,4))=="ftp."
lcURL="file://"+STRTRAN(STRTRAN(STRTRAN(lcURL,"\","/"),"///","//"),"//","/")
ENDIF
ENDIF
RETURN lcURL
ENDPROC
PROCEDURE getdefaultbrowser
#DEFINE HKEY_CLASSES_ROOT -2147483648
#DEFINE HTTP_PATH "HTTP\shell\open\ddeexec\Application"
#DEFINE ERROR_SUCCESS 0
#DEFINE REG_SZ 1
LOCAL nHKey,cSubKey,nResult,lpszValueName,dwReserved
LOCAL lpdwType,lpbData,lpcbData,lnErrCode,lnGetKey
DECLARE Integer RegOpenKey IN Win32API ;
Integer nHKey, String @cSubKey, Integer @nResult
DECLARE Integer RegQueryValueEx IN Win32API ;
Integer nHKey, String lpszValueName, Integer dwReserved,;
Integer @lpdwType, String @lpbData, Integer @lpcbData
DECLARE Integer RegCloseKey IN Win32API ;
Integer nHKey
lnGetKey=0
lnErrCode=RegOpenKey(HKEY_CLASSES_ROOT,HTTP_PATH,@lnGetKey)
IF lnErrCode#ERROR_SUCCESS
RETURN ""
ENDIF
lpdwType=0
lpbData=SPACE(256)
lpcbData=LEN(lpbData)
lnErrCode=RegQueryValueEx(lnGetKey,"",0,@lpdwType,@lpbData,@lpcbData)
IF lnErrCode#ERROR_SUCCESS OR lpdwType#REG_SZ
RegCloseKey(nGetKey)
RETURN ""
ENDIF
RegCloseKey(lnGetKey)
RETURN ALLTRIM(LEFT(lpbData,lpcbData-1))
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
IF nError=1733 AND LOWER(cMethod)=="navigateto"
RETURN
ENDIF
RETURN DODEFAULT(nError,cMethod,nLine)
ENDPROC
PROCEDURE NavigateTo
LPARAMETERS cTarget, cLocation, cFrame
LOCAL lcTarget,lcLocation,lcFrame,oShellExecute
lcTarget=ALLTRIM(IIF(EMPTY(cTarget),this.cTarget,cTarget))
lcLocation=ALLTRIM(IIF(EMPTY(cLocation),this.cLocation,cLocation))
lcFrame=ALLTRIM(IIF(EMPTY(cFrame),this.cFrame,cFrame))
NODEFAULT
IF EMPTY(lcTarget)
RETURN .F.
ENDIF
IF (this.lNewWindow OR TYPE("this.oIE.LocationURL")#"C") AND LOWER(this.GetDefaultBrowser())=="iexplore"
this.oIE=CREATEOBJECT(this.cIEClass)
ENDIF
IF TYPE("this.oIE.LocationURL")#"C"
this.SetObjectRef("oShellExecute",this.cShellExecuteClass,this.cShellExecuteClassLibrary)
IF VARTYPE(this.oShellExecute)=="O"
RETURN this.oShellExecute.ShellExecute(lcTarget)
ENDIF
RETURN DODEFAULT(lcTarget,lcLocation,lcFrame)
ENDIF
IF EMPTY(this.oIE.LocationURL)
lcFrame=""
ENDIF
this.oIE.Navigate2(lcTarget,0,lcFrame)
this.oIE.Visible=.T.
ENDPROC
PROCEDURE GoBack
IF TYPE("this.oIE.LocationURL")=="C"
NODEFAULT
this.oIE.GoBack
RETURN
ENDIF
ENDPROC
PROCEDURE GoForward
IF TYPE("this.oIE.LocationURL")=="C"
NODEFAULT
this.oIE.GoForward
RETURN
ENDIF
ENDPROC
�PROCEDURE follow
this.oHyperLink.lNewWindow=this.lNewWindow
this.oHyperLink.NavigateTo(this.cTarget,this.cLocation,this.cFrame)
this.lVisited=.T.
ENDPROC
PROCEDURE goback
RETURN this.oHyperLink.GoBack()
ENDPROC
PROCEDURE goforward
RETURN this.oHyperLink.GoForward()
ENDPROC
PROCEDURE lvisited_assign
LPARAMETERS m.vNewVal
IF this.lVisited=m.vNewVal
RETURN
ENDIF
this.lVisited=m.vNewVal
IF this.lVisited
this.ShowVisitedForeColor
ENDIF
ENDPROC
PROCEDURE nvisitedforecolor_assign
LPARAMETERS m.vNewVal
IF this.nVisitedForeColor=m.vNewVal
RETURN
ENDIF
this.nVisitedForeColor=m.vNewVal
IF this.lVisited
this.ShowVisitedForeColor
ENDIF
ENDPROC
PROCEDURE showvisitedforecolor
this.ForeColor=this.nVisitedForeColor
ENDPROC
PROCEDURE ohyperlink_access
IF this.lFormSynch AND TYPE("thisform")=="O" AND NOT ISNULL(thisform)
IF TYPE("thisform.oHyperLinkFormSynch")=="O" AND ;
NOT ISNULL(thisform.oHyperLinkFormSynch)
this.oHyperLink=thisform.oHyperLinkFormSynch
ELSE
this.SetObjectRef("oHyperLink",this.cHyperLinkClass,this.cHyperLinkClassLibrary)
thisform.AddProperty("oHyperLinkFormSynch",this.oHyperLink)
ENDIF
ELSE
this.SetObjectRef("oHyperLink",this.cHyperLinkClass,this.cHyperLinkClassLibrary)
ENDIF
this.oHyperLink.lNewWindow=this.lNewWindow
IF NOT this.lHyperLinkCreated
this.lHyperLinkCreated=.T.
this.cTarget=this.cTarget
ENDIF
RETURN this.oHyperLink
ENDPROC
PROCEDURE ctarget_assign
LPARAMETERS m.vNewVal
IF this.lHyperLinkCreated
this.cTarget=this.oHyperLink.ValidURL(m.vNewVal)
ELSE
this.cTarget=ALLTRIM(m.vNewVal)
ENDIF
IF this.lAutoTooltip
this.ToolTipText=this.cTarget
ENDIF
ENDPROC
PROCEDURE Destroy
IF NOT DODEFAULT()
RETURN .F.
ENDIF
this.oHyperLink=.NULL.
ENDPROC
PROCEDURE Click
this.Follow
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF NOT this.lHyperLinkCreated
=this.oHyperLink
ENDIF
ENDPROC