'===============================================================
' Type Library: WebsterLib, Library Version 1.000
' GUID: {FF0A47B3-5CAC-11CE-ACAF-00AA004CA344}
' LCID: 0X00000000
' Documentation: Webster OLE Custom Control module
' Help: (not available) (Help ID: 0X00000000)
'===============================================================

'===============================================================
' Type Info: _DWebster, TypeInfo Version 0.000
' GUID: {FF0A47B1-5CAC-11CE-ACAF-00AA004CA344}
' LCID: 0X00000409
' TypeKind: Dispinterface
' Documentation: Dispatch interface for Webster Control
'---------------------------------------------------------------

' Function: Refresh
' 
Declare Sub Refresh ()

' Function: SaveToDisk
' 
Declare Function SaveToDisk (ByVal FileName As String) As Integer

' Function: Cancel
' 
Declare Function Cancel () As Integer

' Function: GetContentSize
' 
Declare Function GetContentSize (ByVal URL As String) As Long

' Function: GetContentSizeRead
' 
Declare Function GetContentSizeRead (ByVal URL As String) As Long

' Function: GetContentType
' 
Declare Function GetContentType (ByVal URL As String) As String

' Function: GetRedirectedURL
' 
Declare Function GetRedirectedURL (ByVal URL As String) As String

' Function: GetHiddenFlag
' 
Declare Function GetHiddenFlag (ByVal URL As String) As Integer

' Function: SetHiddenFlag
' 
Declare Function SetHiddenFlag (ByVal URL As String, ByVal Hidden As Boolean) As Integer

' Function: DismissPage
' 
Declare Function DismissPage (ByVal URL As String) As Integer

' Function: GetLinkCount
' 
Declare Function GetLinkCount (ByVal URL As String) As Long

' Function: GetLinkURL
' 
Declare Function GetLinkURL (ByVal URL As String, ByVal Index As Long) As String

' Function: GetContent
' 
Declare Function GetContent (ByVal URL As String, ByVal StartOffset As Long, ByVal Length As Long) As String

' Function: GetStatus
' 
Declare Function GetStatus (ByVal URL As String) As Integer

' Function: GetTitle
' 
Declare Function GetTitle (ByVal URL As String) As String

' Function: GetText
' 
Declare Function GetText (ByVal URL As String, ByVal StartOffset As Long, ByVal Length As Long) As String

' Function: LoadPage
' 
Declare Function LoadPage (ByVal URL As String, ByVal Hidden As Integer) As Integer

' Function: GetTextSize
' 
Declare Function GetTextSize (ByVal URL As String) As Long

' Function: AboutBox
' 
Declare Sub AboutBox ()

' Variable/Constant: BorderStyle
' 
Dim BorderStyle As Integer

' Variable/Constant: Font
' 
Dim Font As PTR to USERDEFINED

' Variable/Constant: hWnd
' 
Dim hWnd As USERDEFINED

' Variable/Constant: Enabled
' 
Dim Enabled As Boolean

' Variable/Constant: BevelStyleInner
' 
Dim BevelStyleInner As Integer

' Variable/Constant: BevelStyleOuter
' 
Dim BevelStyleOuter As Integer

' Variable/Constant: BevelWidth
' 
Dim BevelWidth As Long

' Variable/Constant: FontHeading1
' 
Dim FontHeading1 As PTR to USERDEFINED

' Variable/Constant: FontHeading2
' 
Dim FontHeading2 As PTR to USERDEFINED

' Variable/Constant: FontHeading3
' 
Dim FontHeading3 As PTR to USERDEFINED

' Variable/Constant: FontHeading4
' 
Dim FontHeading4 As PTR to USERDEFINED

' Variable/Constant: FontHeading5
' 
Dim FontHeading5 As PTR to USERDEFINED

' Variable/Constant: FontHeading6
' 
Dim FontHeading6 As PTR to USERDEFINED

' Variable/Constant: FontMenu
' 
Dim FontMenu As PTR to USERDEFINED

' Variable/Constant: FontDir
' 
Dim FontDir As PTR to USERDEFINED

' Variable/Constant: FontBlockQuote
' 
Dim FontBlockQuote As PTR to USERDEFINED

' Variable/Constant: FontExample
' 
Dim FontExample As PTR to USERDEFINED

' Variable/Constant: FontPreformatted
' 
Dim FontPreformatted As PTR to USERDEFINED

' Variable/Constant: FontListing
' 
Dim FontListing As PTR to USERDEFINED

' Variable/Constant: FontNormal
' 
Dim FontNormal As PTR to USERDEFINED

' Variable/Constant: FontAddress
' 
Dim FontAddress As PTR to USERDEFINED

' Variable/Constant: BevelColorTop
' 
Dim BevelColorTop As USERDEFINED

' Variable/Constant: BevelColorDark
' 
Dim BevelColorDark As USERDEFINED

' Variable/Constant: BevelColorLight
' 
Dim BevelColorLight As USERDEFINED

' Variable/Constant: UrlWindowStyle
' 
Dim UrlWindowStyle As Integer

' Variable/Constant: TitleWindowStyle
' 
Dim TitleWindowStyle As Integer

' Variable/Constant: PageURL
' 
Dim PageURL As String

' Variable/Constant: PageTitle
' 
Dim PageTitle As String

' Variable/Constant: AnchorColor
' 
Dim AnchorColor As USERDEFINED

' Variable/Constant: HomePage
' 
Dim HomePage As String

' Variable/Constant: DownloadDir
' 
Dim DownloadDir As String

' Variable/Constant: PagesToCache
' 
Dim PagesToCache As Long

' Variable/Constant: BackColor
' 
Dim BackColor As USERDEFINED

' Variable/Constant: IgnoreBaseInFile
' 
Dim IgnoreBaseInFile As Boolean

' Variable/Constant: LoadStatus
' 
Dim LoadStatus As Integer

' Variable/Constant: ForeColor
' 
Dim ForeColor As USERDEFINED

' Variable/Constant: MaxSockets
' 
Dim MaxSockets As Long

' Variable/Constant: MaxPageLoads
' 
Dim MaxPageLoads As Long

' Variable/Constant: MarginHorizontal
' 
Dim MarginHorizontal As Long

' Variable/Constant: MarginVertical
' 
Dim MarginVertical As Long

' Variable/Constant: LoadImages
' 
Dim LoadImages As Boolean

' Variable/Constant: ShowReferer
' 
Dim ShowReferer As Boolean

' Variable/Constant: AuthenticName
' 
Dim AuthenticName As String

' Variable/Constant: AuthenticPassword
' 
Dim AuthenticPassword As String

' Variable/Constant: FromName
' 
Dim FromName As String

' Variable/Constant: BrowserName
' 
Dim BrowserName As String

' Variable/Constant: ButtonMask
' 
Dim ButtonMask As Long

' Variable/Constant: ProxyServerHTTP
' 
Dim ProxyServerHTTP As String

' Variable/Constant: ProxyPortHTTP
' 
Dim ProxyPortHTTP As Long

'===============================================================
' Type Info: _DWebsterEvents, TypeInfo Version 0.000
' GUID: {FF0A47B2-5CAC-11CE-ACAF-00AA004CA344}
' LCID: 0X00000409
' TypeKind: Dispinterface
' Documentation: Event interface for Webster Control
'---------------------------------------------------------------

' Function: DoClickURL
' 
Declare Sub DoClickURL (ByRef SelectedURL As Variant, ByRef Cancel As Variant)

' Function: KeyDown
' 
Declare Sub KeyDown (ByRef KeyCode As Variant, ByVal Shift As Integer)

' Function: LoadComplete
' 
Declare Sub LoadComplete (ByRef URL As Variant, ByVal Status As Integer)

'===============================================================
' Type Info: Webster, TypeInfo Version 0.000
' GUID: {FF0A47B0-5CAC-11CE-ACAF-00AA004CA344}
' LCID: 0X00000409
' TypeKind: CoClass
' Documentation: Webster Control
'---------------------------------------------------------------

