windows-server-2003/admin/pchealth/authtools/prodtools/ui/globals.bas

Attribute VB_Name = "Globals"
Option Explicit

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Public Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
Public Const LB_SELECTSTRING = &H18C

Public g_AuthDatabase As AuthDatabase.Main
Public g_ErrorInfo As CErrorInfo
Public g_Font As StdFont
Public g_intFontColor As Long

Public Const FILE_EXT_HHC_C As String = ".HHC"
Public Const FILE_EXT_HHK_C As String = ".HHK"
Public Const FILE_EXT_XLS_C As String = ".XLS"
Public Const FILE_EXT_CHM_C As String = ".CHM"
Public Const FILE_EXT_HTM_C As String = ".HTM"
Public Const FILE_EXT_HHT_C As String = ".HHT"

Public Enum SEARCH_TARGET_E
    ST_TITLE_E = &H1
    ST_URI_E = &H2
    ST_DESCRIPTION_E = &H4
    ST_COMMENTS_E = &H8
    ST_BASE_FILE_E = &H10
    ST_TOPICS_WITHOUT_KEYWORDS_E = &H20
    ST_NODES_WITHOUT_KEYWORDS_E = &H40
    ST_SELF_AUTHORING_GROUP_E = &H80
    ST_MARK1_E = &H100
    ST_BROKEN_LINK_WINME_E = &H200
    ST_BROKEN_LINK_STD_E = &H400
    ST_BROKEN_LINK_PRO_E = &H800
    ST_BROKEN_LINK_PRO64_E = &H1000
    ST_BROKEN_LINK_SRV_E = &H2000
    ST_BROKEN_LINK_ADV_E = &H4000
    ST_BROKEN_LINK_ADV64_E = &H8000
    ST_BROKEN_LINK_DAT_E = &H10000
    ST_BROKEN_LINK_DAT64_E = &H20000
End Enum

Public LocIncludes() As String

Public Sub InitializeLocIncludes()

    Static blnInitialized As Boolean
    
    If (blnInitialized) Then
        Exit Sub
    End If
    
    blnInitialized = True
    
    ReDim LocIncludes(2)
    
    LocIncludes(0) = LOC_INCLUDE_ALL_C
    LocIncludes(1) = LOC_INCLUDE_ENU_C
    LocIncludes(2) = LOC_INCLUDE_LOC_C

End Sub

Public Sub PopulateCboWithSKUs( _
    ByVal i_cbo As ComboBox, _
    Optional ByVal blnListCollectiveSKUs As Boolean = False _
)

    Dim intIndex As Long
    Dim SKUs() As SKU_E
    
    If (blnListCollectiveSKUs) Then
        ReDim SKUs(11)
    Else
        ReDim SKUs(8)
    End If
    
    SKUs(0) = SKU_STANDARD_E
    SKUs(1) = SKU_PROFESSIONAL_E
    SKUs(2) = SKU_PROFESSIONAL_64_E
    SKUs(3) = SKU_SERVER_E
    SKUs(4) = SKU_ADVANCED_SERVER_E
    SKUs(5) = SKU_DATA_CENTER_SERVER_E
    SKUs(6) = SKU_ADVANCED_SERVER_64_E
    SKUs(7) = SKU_DATA_CENTER_SERVER_64_E
    SKUs(8) = SKU_WINDOWS_MILLENNIUM_E
    
    If (blnListCollectiveSKUs) Then
        SKUs(9) = SKU_DESKTOP_ALL_E
        SKUs(10) = SKU_SERVER_ALL_E
        SKUs(11) = SKU_ALL_E
    End If
    
    For intIndex = LBound(SKUs) To UBound(SKUs)
        i_cbo.AddItem DisplayNameForSKU(SKUs(intIndex)), intIndex
        i_cbo.ItemData(intIndex) = SKUs(intIndex)
    Next
    
    i_cbo.ListIndex = 0

End Sub

Public Sub SetFontInternal(i_frm As Form)
    
    SetFont i_frm, g_Font, g_intFontColor

End Sub