home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l408 / 2.img / EXAMPLES.EXE / EXAMPLES / GLOBAL.BAS < prev   
Encoding:
BASIC Source File  |  1992-12-07  |  21.1 KB  |  466 lines
  1. DefInt A-Z
  2. Global JustStarting As Integer ' Flag for alarm on icon
  3. Global TimerActive As Integer
  4. Global StartTime As Single
  5. '$include: 'vbtools.bi'
  6.     '$BOF
  7. Global Const MhTrue = -1, MhFalse = 0
  8.  
  9. '--------------------------------------------------------------------------
  10. ' These are the user-defined TYPE declarations for VBTOOLS  .VBX files
  11.  
  12.     Type WinFlags
  13.  
  14.       WF_80x87 As Integer ' MhTrue or MhFalse
  15.       WF_CPU   As Integer ' 86,186,286,386,486
  16.       WF_MODE  As Integer ' 1=Standard,2=386 enhanced
  17.       WF_FRAME As Integer ' 1=EMS large-frame, 2=EMS small-frame
  18.  
  19.     End Type
  20. '--------------------------------------------------------------------------
  21. ' The following routines are present in both VBTOOLS   .VBX files and
  22. ' VBMUSCLE.VBX. If you wish to use both products in the same application,
  23. ' be sure to delete these lines from the copy of this file that you place
  24. ' into your application. Do **NOT** remove these lines from the master
  25. ' copy of VBTOOLS.BI!!!
  26.  
  27. '---------------------------------------------------------------------------
  28.     Type MhChooseFontType
  29.  
  30. ' Special TYPEs used by MhChooseFont
  31.      HWnd   As Integer      ' Form's hwnd
  32.      Hdc    As Integer      ' Identifies device or information
  33.                 ' context of the printer listed
  34.             ' in the dialog box. Use MhPrintDlg
  35.             ' to select printer and set the
  36.             ' PD_RETURNDC or PD_RETURNIC flags.
  37.             ' Use Form.HDC to get screen fonts.
  38.             ' In either case, you must also
  39.             ' specify CF_PRINTERFONTS flag,otherwise
  40.             ' this is ignored.
  41.      LogFont    As Long         ' Used internally
  42.      PointSize  As Integer      ' In units of 1/10th of a point
  43.      Flags  As Long         ' See below
  44.      RgbColor   As Long         ' If the CF_EFFECTS flag is set, this field contains an RGB value which the
  45.             ' ChooseFont function should use to set the text color. After the user
  46.             ' dismisses the dialog, this field contains the RGB value of the color which the
  47.             ' user selected.
  48.      Reserved2  As Long         ' Used internally
  49.      Reserved3  As Long         ' Ditto
  50.      Reserved4  As Long         ' Ditto
  51.      Reserved5  As Integer      ' Ditto
  52.      Reserved6  As Long         ' Ditto
  53.      FontType   As Integer      ' Specifies the type of the selected font:
  54.             '  SIMULATED_FONTTYPE   Specifies that the font is simulated by GDI.
  55.             '  PRINTER_FONTTYPE Specifies that the font is a printer font.
  56.             '  SCREEN_FONTTYPE  Specifies that the font is a screen font.
  57.      MinSize    As Integer      ' If the CF_LIMITSIZE flag is set, this specifies
  58.                 ' the minimum allowable point size.
  59.      MaxSize    As Integer      ' Same as MinSize but for maximum
  60.     End Type
  61.     Type MhLogFontType
  62.         FontHeight As Integer
  63.         FontWidth As Integer
  64.         FontEscapement As Integer
  65.         FontOrientation As Integer
  66.         FontWeight As Integer
  67.         FontItalic As String * 1
  68.         FontUnderline As String * 1
  69.         FontStrikeout As String * 1
  70.         FontCharSet As String * 1
  71.         FontOutPrecision As String * 1
  72.         FontClipPrecision As String * 1
  73.         FontQuality As String * 1
  74.         FontPitchAndFamily As String * 1
  75.         FontFaceName As String * 32
  76.     End Type
  77.  
  78. '---------------------------------------------------------------------------
  79.     Type MhPrintDlgType
  80. ' Special TYPE used by MhPrintDlg
  81.  
  82.          HWnd As Integer            ' hWnd of your form
  83.          DevMode As Integer         ' Used by other routines
  84.                     ' If non-zero on entry, used as default
  85.                     ' (should be zero first time you call
  86.                     '  to get default printer values loaded)
  87.          DevNames As Integer        ' Used by other routines
  88.                     ' If non-zero on entry, used as default
  89.                     ' (should be zero first time you call
  90.                     '  to get default printer values loaded)
  91.          Hdc As Integer             ' Used by other routines
  92.                     ' If non-zero on entry, used as default
  93.                     ' (should be zero first time you call
  94.                     '  to get default printer values loaded)
  95.          Flags As Long              ' See below
  96.          FromPage As Integer        ' First page to print
  97.          ToPage As Integer          ' Last page to print
  98.          MinPage As Integer         ' Minimum allowed value in From/To controls
  99.          MaxPage As Integer         ' Maximum ""
  100.          Copies As Integer          ' How many copies?
  101.     End Type
  102.  
  103. Type MhGetFileType
  104. ' Special TYPEs used by File Dialog routines
  105.  
  106.      HWnd As Integer            ' Form's hWnd
  107.      FilterIndex As Long        ' Which Filter to use as default
  108.      InitFileName As String     ' Used to initialize File Name edit control
  109.      FormCaption As String      ' Caption for File Form
  110.      InitDir As String          ' Initial directory. Null for CurDir$
  111.      DefaultExtension As String     ' Default extension to use (no period)
  112.      HowManyFilters As Integer      ' In the other array
  113.      Flags As Long          ' See manual
  114.      RawNamePos As Integer      ' Returned as Instr in Result$ where raw file name begins
  115.      ExtensionPos As Integer        ' Returned as Instr in Result$ where extension begins
  116. End Type
  117.  
  118. Type MhFileFilterType
  119.      Description As String      ' i.e., "Text Files"
  120.      Mask As String         '       "*.txt;*.doc;*.bas
  121. End Type
  122.  
  123. ' MhChooseColor values
  124. Global Const CC_CANCELLED = -100
  125. Global Const CC_RGBINIT = 1
  126. Global Const CC_FULLOPEN = 2
  127. Global Const CC_PREVENTFULLOPEN = 4
  128. Global Const CC_SHOWHELP = 8
  129.  
  130. ' MhGetOpenFileName and MhGetSaveFileName Values
  131. Global Const OFN_READONLY = &H1
  132. Global Const OFN_OVERWRITEPROMPT = &H2
  133. Global Const OFN_HIDEREADONLY = &H4
  134. Global Const OFN_NOCHANGEDIR = &H8
  135. Global Const OFN_SHOWHELP = &H10
  136. Global Const OFN_EXTENTIONDIFFERENT = &H400
  137. Global Const OFN_PATHMUSTEXIST = &H800
  138. Global Const OFN_FILEMUSTEXIST = &H1000
  139. Global Const OFN_CREATEPROMPT = &H2000
  140. Global Const OF_SHARE_EXCLUSIVE = &H10
  141. Global Const OF_SHARE_DENY_WRITE = &H20
  142. Global Const OF_SHARE_DENY_READ = &H30
  143. Global Const OF_SHARE_DENY_NONE = &H40
  144. Global Const OF_CANCEL = &H800
  145. Global Const OF_PROMPT = &H2000
  146.  
  147. ' MhFindText and MhReplaceText Values
  148. Global Const FR_DOWN = &H1
  149. Global Const FR_WHOLEWORD = &H2
  150. Global Const FR_MATCHCASE = &H4
  151. Global Const FR_FINDNEXT = &H8
  152. Global Const FR_REPLACE = &H10
  153. Global Const FR_REPLACEALL = &H20
  154. Global Const FR_SHOWHELP = &H80
  155. Global Const FR_NOUPDOWN = &H400
  156. Global Const FR_NOMATCHCASE = &H800
  157. Global Const FR_NOWHOLEWORD = &H1000
  158.  
  159. ' MhPrintDlg Values
  160. Global Const PD_ALLPAGES = &H0
  161. Global Const PD_SELECTION = &H1
  162. Global Const PD_PAGENUMS = &H2
  163. Global Const PD_NOSELECTION = &H4
  164. Global Const PD_NOPAGENUMS = &H8
  165. Global Const PD_COLLATE = &H10
  166. Global Const PD_PRINTTOFILE = &H20
  167. Global Const PD_PRINTSETUP = &H40
  168. Global Const PD_NOWARNING = &H80
  169. Global Const PD_RETURNDC = &H100
  170. Global Const PD_RETURNIC = &H200
  171. Global Const PD_RETURNDEFAULT = &H400
  172. Global Const PD_SHOWHELP = &H800
  173. Global Const PD_ENABLEPRINTHOOK = &H1000
  174. Global Const PD_ENABLESETUPHOOK = &H2000
  175. Global Const PD_ENABLEPRINTTEMPLATE = &H4000
  176. Global Const PD_ENABLESETUPTEMPLATE = &H8000
  177. Global Const PD_ENABLEPRINTTEMPLATEHANDLE = &H10000
  178. Global Const PD_ENABLESETUPTEMPLATEHANDLE = &H20000
  179. Global Const PD_USEDEVMODECOPIES = &H40000
  180. Global Const ANSI_CHARSET = 0
  181. Global Const SYMBOL_CHARSET = 2
  182. Global Const SHIFTJIS_CHARSET = 128
  183. Global Const OEM_CHARSET = 255
  184. Global Const DEFAULT_QUALITY = 0
  185. Global Const DRAFT_QUALITY = 1
  186. Global Const PROOF_QUALITY = 2
  187. Global Const DEFAULT_PITCH = 0
  188. Global Const FIXED_PITCH = 1
  189. Global Const VARIABLE_PITCH = 2
  190.     
  191. ' Font Families
  192. Global Const FF_DONTCARE = 0  ' Don't care or don't know.
  193. Global Const FF_ROMAN = 16    ' Variable stroke width, serifed. Times Roman, Century Schoolbook, etc.
  194. Global Const FF_SWISS = 32    ' Variable stroke width, sans-serifed. Helvetica, Swiss, etc.
  195. Global Const FF_MODERN = 48   ' Constant stroke width, serifed or sans-serifed. Pica, Elite, Courier, etc.
  196. Global Const FF_SCRIPT = 64   ' Cursive, etc.
  197. Global Const FF_DECORATIVE = 80 ' Old English, etc.
  198.  
  199. ' Font Weights
  200. Global Const FW_DONTCARE = 0
  201. Global Const FW_THIN = 100
  202. Global Const FW_EXTRALIGHT = 200
  203. Global Const FW_LIGHT = 300
  204. Global Const FW_NORMAL = 400
  205. Global Const FW_MEDIUM = 500
  206. Global Const FW_SEMIBOLD = 600
  207. Global Const FW_BOLD = 700
  208. Global Const FW_EXTRABOLD = 800
  209. Global Const FW_HEAVY = 900
  210. Global Const FW_ULTRALIGHT = FW_EXTRALIGHT
  211. Global Const FW_REGULAR = FW_NORMAL
  212. Global Const FW_DEMIBOLD = FW_SEMIBOLD
  213. Global Const FW_ULTRABOLD = FW_EXTRABOLD
  214. Global Const FW_BLACK = FW_HEAVY
  215.  
  216. ' MhChooseFont Values
  217. Global Const CF_SCREENFONTS = &H1
  218. Global Const CF_PRINTERFONTS = &H2
  219. Global Const CF_BOTH = &H3  '  (CF_SCREENFONTS | CF_PRINTERFONTS)
  220. Global Const CF_SHOWHELP = &H4
  221. Global Const CF_EFFECTS = &H100
  222. Global Const CF_APPLY = &H200
  223. Global Const CF_ANSIONLY = &H400
  224. Global Const CF_NOVECTORFONTS = &H800
  225. Global Const CF_NOSIMULATIONS = &H1000
  226. Global Const CF_LIMITSIZE = &H2000
  227. Global Const CF_FIXEDPITCHONLY = &H4000
  228. Global Const CF_WYSIWYG = &H8000              '  must also have CF_SCREENFONTS & CF_PRINTERFONTS
  229. Global Const CF_FORCEFONTEXIST = &H10000
  230. Global Const CF_SCALABLEONLY = &H20000
  231. Global Const CF_TTONLY = &H40000
  232. Global Const SIMULATED_FONTTYPE = &H8000
  233. Global Const PRINTER_FONTTYPE = &H4000
  234. Global Const SCREEN_FONTTYPE = &H2000
  235.  
  236.     Declare Function CVDMBF# Lib "mhas200.vbx" (Doub$)
  237.     Declare Function CVSMBF! Lib "mhas200.vbx" (Float$)
  238.     Declare Function CVI% Lib "mhas200.vbx" (ByVal Lin$)
  239.     Declare Function CVL& Lib "mhas200.vbx" (ByVal Lin$)
  240.     Declare Function CVS! Lib "mhas200.vbx" (ByVal Lin$)
  241.     Declare Function CVC@ Lib "mhas200.vbx" (ByVal Lin$)
  242.     Declare Function CVD# Lib "mhas200.vbx" (ByVal Lin$)
  243.     Declare Function MhCtrlHwnd% Lib "mhas200.vbx" (X As Control)
  244.     Declare Function MhDefaultDrive% Lib "mhas200.vbx" ()
  245.     Declare Function MhDirectoryExists% Lib "mhas200.vbx" (ByVal A$)
  246.     Declare Function MhEcode% Lib "mhas200.vbx" ()
  247.     Declare Function MhExeName$ Lib "mhas200.vbx" (ByVal HWnd As Integer)
  248.     Declare Function MhExePath$ Lib "mhas200.vbx" (ByVal HWnd As Integer)
  249.     Declare Function MhFileExists% Lib "mhas200.vbx" (ByVal A$)
  250.     Declare Function MhFileDateCompare% Lib "mhas200.vbx" (ByVal F1$, ByVal F2$)
  251.     Declare Function MhKillFiles% Lib "mhas200.vbx" (ByVal Attr%, ByVal A$)
  252.     Declare Sub MhScrMono Lib "mhas200.vbx" (ByVal Lin$, ByVal Row%, ByVal Col%, ByVal Attr%)
  253.     Declare Function MhSetDefaultDrive% Lib "mhas200.vbx" (ByVal A%)
  254.     Declare Function MhSystemDir$ Lib "mhas200.vbx" ()
  255.     Declare Function MhWinDir$ Lib "mhas200.vbx" ()
  256.     Declare Sub MhWinFlags Lib "mhas200.vbx" (WindowsFlags As WinFlags)
  257.     Declare Function MhWinVersion% Lib "mhas200.vbx" (Major%, Minor%)
  258.     Declare Function MKI$ Lib "mhas200.vbx" (ByVal A%)
  259.     Declare Function MKL$ Lib "mhas200.vbx" (ByVal A&)
  260.     Declare Function MKD$ Lib "mhas200.vbx" (A#)
  261.     Declare Function MKDMBF$ Lib "mhas200.vbx" (Doubl#)
  262.     Declare Function MKS$ Lib "mhas200.vbx" (A!)
  263.     Declare Function MKSMBF$ Lib "mhas200.vbx" (Float!)
  264.     Declare Function MKC$ Lib "mhas200.vbx" (A@)
  265.     Declare Function MhChooseColor& Lib "mhas200.vbx" (ByVal HWnd%, ByVal DefaultColor&, CustomColors&, ByVal Flags&)
  266.     Declare Function MhChooseFont% Lib "mhas200.vbx" (Y As MhLogFontType, X As MhChooseFontType)
  267.     Declare Function MhGetOpenFileName$ Lib "mhas200.vbx" (X As MhGetFileType, Y As MhFileFilterType)
  268.     Declare Function MhGetSaveFileName$ Lib "mhas200.vbx" (X As MhGetFileType, Y As MhFileFilterType)
  269.     Declare Function MhChooseColor& Lib "mhas200.vbx" (ByVal HWnd%, ByVal DefaultColor&, CustomColors&, ByVal Flags&)
  270.     Declare Function MhFindText% Lib "mhas200.vbx" (ByVal KeyCode%, ByVal HWnd%, Flags&, Find$)
  271.     Declare Function MhReplaceText% Lib "mhas200.vbx" (Replace$, ByVal KeyCode%, ByVal HWnd%, Flags&, Find$)
  272.     Declare Function MhLoadCommDlg% Lib "mhas200.vbx" ()
  273.     Declare Function MhSetFont% Lib "mhas200.vbx" (ByVal HWnd%, ByVal RedrawNow%, Y As MhLogFontType)
  274.     Declare Function MhPrintDlg% Lib "mhas200.vbx" (X As MhPrintDlgType)
  275.     Declare Function MhPrintDlgDef% Lib "mhas200.vbx" (X As MhPrintDlgType)
  276.     Declare Function MhGetTextDialog% Lib "mhas200.vbx" (Replace$, Flags&, Find$)
  277.     Declare Sub MhKillDialog Lib "mhas200.vbx" ()
  278.     Declare Function MhGetFileTitle$ Lib "mhas200.vbx" (ByVal A$)
  279.  
  280. '--------------------------------------------------------------------------
  281. ' These are the SUB and FUNCTION declarations for VBTOOLS  .VBX files
  282.   
  283.     Declare Function Bload% Lib "mhas200.vbx" (ByVal Lin$, X As Any, ByVal Length&)
  284.     Declare Function Bsave% Lib "mhas200.vbx" (ByVal Lin$, X As Any, ByVal Length&)
  285.     Declare Function MhBlue% Lib "mhas200.vbx" (ByVal xColor&)
  286.     Declare Function MhGreen% Lib "mhas200.vbx" (ByVal xColor&)
  287.     Declare Function MhRed% Lib "mhas200.vbx" (ByVal xColor&)
  288.     Declare Sub MhRgb Lib "mhas200.vbx" (ByVal xColor&, Red%, Green%, Blue%)
  289.     Declare Function Play% Lib "mhas200.vbx" (ByVal Lin$)
  290.     Declare Sub PlayStop Lib "mhas200.vbx" ()
  291.  
  292. '--------------------------------------------------------------------------
  293. ' These are the SUB and FUNCTION declarations for Windows KEYBOARD.DRV DLL
  294.  
  295.     Declare Function GetKeyboardType% Lib "Keyboard.Drv" (ByVal nTypeFlag%)
  296.  
  297. '--------------------------------------------------------------------------
  298. ' These are the user-defined TYPE declarations for Windows GDI DLL
  299.  
  300.     Type TextMetric ' Used with GetTextMetrics
  301.       TmHeight As Integer
  302.       TmAscent As Integer
  303.       TmDescent As Integer
  304.       TmInternalLeading As Integer
  305.       TmExternalLeading As Integer
  306.       TmAveCharWidth As Integer
  307.       TmMaxCharWidth As Integer
  308.       TmWeight As Integer
  309.       TmItalic As String * 1
  310.       TmUnderlined As String * 1
  311.       TmStruckOut As String * 1
  312.       TmFirstChar As String * 1
  313.       TmLastChar As String * 1
  314.       TmDefaultChar As String * 1
  315.       TmBreakChar As String * 1
  316.       TmPitchAndFamily As String * 1
  317.       TmCharSet As String * 1
  318.       tOverhang As Integer
  319.       TmDigitizedAspectX As Integer
  320.       TmDigitizedAspectY As Integer
  321.     End Type
  322.  
  323. '--------------------------------------------------------------------------
  324. ' These are the SUB and FUNCTION declarations for Windows GDI DLL
  325.  
  326.     Declare Function GetTextExtent& Lib "Gdi" (ByVal Hdc%, ByVal lpString$, ByVal nCount%)
  327.     Declare Function BitBlt% Lib "Gdi" (ByVal destDC%, ByVal X%, ByVal Y%, ByVal W%, ByVal H%, ByVal srcDC%, ByVal xSrc%, ByVal ySrc%, ByVal RasterOp&)
  328.       ' BitBlt moves a bitmap from the
  329.       ' source device to the destination
  330.       ' device. See the CONST section for
  331.       ' values for RasterOp&.
  332.     Declare Function GetTextMetrics% Lib "Gdi" (ByVal Hdc%, A As TextMetric)
  333.     Declare Function GetTextCharacterExtra% Lib "Gdi" (ByVal Hdc%)
  334.     Declare Function SetStretchBltMode% Lib "Gdi" (ByVal DestHdc%, ByVal StretchMode%)
  335.       ' This function sets the stretching
  336.       ' mode for the StretchBlt function.
  337.       ' The stretching mode determines
  338.       ' which scan lines and/or columns
  339.       ' StretchBlt eliminates when
  340.       ' contracting a bitmap.
  341.       ' StretchMode% is one of:
  342.       Global Const BLACKONWHITE = 1
  343.     ' AND in the eliminated lines.
  344.     ' Preserves black pixels at
  345.     ' the expense of white pixels
  346.     ' by using the AND operator
  347.     ' on the eliminated lines and
  348.     ' those remaining.
  349.       Global Const WHITEONBLACK = 2
  350.     ' OR in the eliminated lines.
  351.     ' Preserves white pixels at
  352.     ' the expense of black pixels
  353.     ' by using the OR operator
  354.     ' on the eliminated lines and
  355.     ' those remaining.
  356.       Global Const COLORONCOLOR = 3
  357.     ' Deletes the eliminated lines
  358.     ' without preserving their
  359.     ' information.
  360.  
  361.     Declare Function SetTextCharacterExtra% Lib "Gdi" (ByVal Hdc%, ByVal nCharExtra%)
  362.     Declare Function StretchBlt% Lib "Gdi" (ByVal destDC%, ByVal DestX%, ByVal DestY%, ByVal W%, ByVal H%, ByVal srcDC%, ByVal xSrc%, ByVal ySrc%, ByVal wSrc%, ByVal hSrc%, ByVal RasterOp&)
  363.       ' StretchBlt moves a bitmap from a
  364.       ' source rectangle to a destination
  365.       ' rectangle, stretching or
  366.       ' compressing the bitmap if
  367.       ' necessary to fit the dimensions
  368.       ' of the destination rectangle.
  369.       ' Also see SetStretchBltMode.
  370.       ' See the CONST section for
  371.       ' values for RasterOp&.
  372.  
  373. '--------------------------------------------------------------------------
  374. ' These are the SUB and FUNCTION declarations for Windows KERNEL DLL
  375.  
  376.     Declare Function GetModuleFileName% Lib "Kernel" (ByVal hModule%, ByVal FileName$, ByVal nSize%)
  377.     Declare Function GetPrivateProfileString% Lib "Kernel" (ByVal AppName$, ByVal KeyName$, ByVal Default$, ByVal ReturnedString$, ByVal nSize%, ByVal PFileName$)
  378.     Declare Function LoadLibrary% Lib "Kernel" (ByVal LibName$)
  379.     Declare Function WritePrivateProfileString% Lib "Kernel" (ByVal AppName$, ByVal KeyName$, ByVal PString$, ByVal PFileName$)
  380.  
  381. '--------------------------------------------------------------------------
  382. ' These are the SUB and FUNCTION declarations for Windows USER DLL
  383.  
  384.     Declare Sub CreateCaret Lib "User" (ByVal HWnd%, ByVal hBiTmap%, ByVal nWidth%, ByVal nHeight%)
  385.     Declare Sub DestroyCaret Lib "User" ()
  386.     Declare Function EnableHardwareInput% Lib "User" (ByVal MhTrueOrMhFalse%)
  387.     Declare Function ExitWindows% Lib "User" (ByVal dwReserved&, ByVal wReturnCode%)
  388.     Declare Function FlashWindow% Lib "User" (ByVal HWnd%, ByVal bInvert%)
  389.     Declare Function GetCaretBlinkTime% Lib "User" ()
  390.     Declare Function GetCurrentTime& Lib "User" ()
  391.     Declare Function GetDoubleClickTime% Lib "User" ()
  392.     Declare Function GetFocus% Lib "User" ()
  393.     Declare Function GetInputState% Lib "User" ()
  394.     Declare Function GetKeyState% Lib "User" (ByVal nVirtKey%)
  395.     Declare Function GetMenu% Lib "User" (ByVal HWnd%)
  396.     Declare Function GetMenuItemID% Lib "User" (ByVal hMenu%, ByVal nPos%)
  397.     Declare Function GetSubMenu% Lib "User" (ByVal hMenu%, ByVal nPos%)
  398.     Declare Function GetWindowWord% Lib "User" (ByVal HWnd%, ByVal Index%)
  399.     Declare Sub HideCaret Lib "User" (ByVal HWnd%)
  400.     Declare Function IsCharAlpha% Lib "User" (ByVal cChar%)
  401.     Declare Function IsCharAlphaNumeric% Lib "User" (ByVal cChar%)
  402.     Declare Function IsCharLower% Lib "User" (ByVal cChar%)
  403.     Declare Function IsCharUpper% Lib "User" (ByVal cChar%)
  404.     Declare Function LoadCursor% Lib "User" (ByVal hInstance%, ByVal CursorName$)
  405.     Declare Function ModifyMenu% Lib "User" (ByVal hMenu%, ByVal nPosition%, ByVal wFlags%, ByVal wIDNewItem%, ByVal lpNewItem&)
  406.     Declare Sub SetCaretBlinkTime Lib "User" (ByVal Milliseconds%)
  407.     Declare Function SetCursor% Lib "User" (ByVal hCursor%)
  408.     Declare Sub SetDoubleClickTime Lib "User" (ByVal Milliseconds%)
  409.     Declare Function SetMenuItemBitmaps% Lib "User" (ByVal hMenu%, ByVal nPosition%, ByVal wFlags%, ByVal hBitmapUnchecked%, ByVal hBitmapChecked%)
  410.     Declare Sub ShowCaret Lib "User" (ByVal HWnd%)
  411.     Declare Function ShowWindow% Lib "User" (ByVal HWnd%, ByVal nCmdShow%)
  412.     Declare Function WinHelp% Lib "User" (ByVal HWnd%, ByVal HelpFile$, ByVal HelpCommand%, ByVal HelpData As Any)
  413.  
  414. '--------------------------------------------------------------------------
  415. ' These are the CONSTANT declarations for the Windows DLL routines
  416.  
  417. ' WinHelp values
  418.  
  419.     Global Const HELP_CONTEXT = 1
  420.     Global Const HELP_QUIT = 2
  421.     Global Const HELP_INDEX = 3
  422.     Global Const HELP_HELPONHELP = 4
  423.     Global Const HELP_SETINDEX = 5
  424.     Global Const HELP_KEY = &H101
  425.     Global Const HELP_MULTIKEY = &H201
  426.  
  427. ' Virtual key codes
  428.     Global Const VK_CAPITAL = &H14
  429.     Global Const VK_CONTROL = &H11
  430.     Global Const VK_INSERT = &H2D
  431.     Global Const VK_NUMLOCK = &H90
  432.     Global Const VK_OEM_SCROLL = &H91
  433.     Global Const VK_SHIFT = &H10
  434.  
  435. ' Menu flags and colors
  436.     Global Const CLR_MENUBAR = &H80000004
  437.     Global Const MF_BITMAP = &H4
  438.  
  439. ' ShowWindow routine nCmdShow%
  440.     Global Const SW_SHOWNORMAL = 1
  441.     Global Const SW_RESTORE = 9
  442.  
  443. ' Used with GetWindowsWord
  444.     Global Const GWW_HINSTANCE = -6
  445.  
  446. ' BitBlt and StretchBlt values for RasterOp&
  447.     Global Const BLACKNESS = &H42       ' CLS black
  448.     Global Const DSTINVERT = &H550009   ' Inverts destination bitmap
  449.     Global Const MERGECOPY = &HC000CA   ' Combines pattern and source bitmap using AND
  450.     Global Const MERGEPAINT = &HBB0226  ' Combines inverted source bitmap with destination bitmap using OR
  451.     Global Const NOTSRCCOPY = &H330008  ' Copies inverted source bitmap to destination
  452.     Global Const NOTSRCERASE = &H1100A6 ' Inverts result of combining destination and source bitmaps using OR
  453.     Global Const PATCOPY = &HF00021     ' Copies the pattern to destination bitmap
  454.     Global Const PATINVERT = &H5A0049   ' Copies destination bitmap with pattern using XOR
  455.     Global Const PATPAINT = &HFB0A09    ' Combines inverted source bitmap with pattern using OR.
  456.                     ' Combines that result with destination bitmap using OR.
  457.     Global Const SRCAND = &H8800C6      ' Combines pixels of dest and src bitmaps using AND
  458.     Global Const SRCCOPY = &HCC0020     ' Copies source bitmap to destination bitmap
  459.     Global Const SRCERASE = &H440328    ' Inverts destination bitmap and combines result with source using AND
  460.     Global Const SRCINVERT = &H660046   ' Combines pixels of dest and src bitmaps using XOR
  461.     Global Const SRCPAINT = &HEE0086    ' Combines pixels of dest and src bitmaps using OR
  462.     Global Const WHITENESS = &HFF0062   ' CLS white
  463.  
  464.     '$EOF
  465.  
  466.