home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / TOLL20 / TOLL20.ZIP / TOOLDEMO.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-01-30  |  1.5 KB  |  50 lines
  1.     ' Catch undeclared variables
  2.     Option Explicit
  3.  
  4.     ' These constants come from the
  5.     ' Microsoft Visual Design Guide
  6.     Global Const BUTTONGAP = 6
  7.     Global Const BARHEIGHT = 28
  8.  
  9.     ' Minimum size
  10.     Global MINWIDTH!, MINHEIGHT!
  11.  
  12.     ' File name for open, save
  13.     Global FileName$
  14.  
  15.     ' Pathname of help file
  16.     Global HelpPath$
  17.  
  18.     ' Constants
  19.  
  20.     ' ToolButtons
  21.     Global Const TB_FILENEW = 0
  22.     Global Const TB_FILEOPEN = 1
  23.     Global Const TB_FILESAVE = 2
  24.     Global Const TB_FILEPRINT = 3
  25.     Global Const TB_EDITCUT = 4
  26.     Global Const TB_EDITCOPY = 5
  27.     Global Const TB_EDITPASTE = 6
  28.     Global Const TB_FONTBOLD = 7
  29.     Global Const TB_FONTITALIC = 8
  30.     Global Const TB_FONTUNDERLINE = 9
  31.     Global Const TB_HELPCONTEXT = 10
  32.     Global Const TB_HELPCONTENTS = 11
  33.  
  34.     Global Const TB_MAX = 11
  35.  
  36.     ' Windows Help stuff
  37.     Declare Sub WinHelp Lib "user" (ByVal hwnd%, ByVal hlHelpFile$, ByVal wCommand%, ByVal dwData&)
  38.     Declare Sub WinHelpString Lib "user" Alias "WinHelp" (ByVal hwnd%, ByVal hlHelpFile$, ByVal wCommand%, ByVal lpstrData$)
  39.     Global Const HELP_CONTEXT = &H1
  40.     Global Const HELP_QUIT = &H2
  41.     Global Const HELP_CONTENTS = &H3
  42.     Global Const HELP_HELPONHELP = &H4
  43.     Global Const HELP_KEY = &H101
  44.     Global Const HELP_PARTIALKEY = &H105
  45.  
  46.     ' Other useful API functions
  47.     Declare Function GetModuleFileName% Lib "kernel" (ByVal hModule%, ByVal lpFilename$, ByVal nSize%)
  48.     Declare Function GetModuleHandle% Lib "kernel" (ByVal lpModuleName$)
  49.  
  50.