home *** CD-ROM | disk | FTP | other *** search
/ Virtual St-Petersburg / VirtualSaint-Petersburg.iso / vivat / tasks / calendar / defs.bas < prev    next >
BASIC Source File  |  1995-10-26  |  12KB  |  262 lines
  1. Option Explicit
  2.  
  3. Global Const LEFT_BUTTON = 1
  4. Global Const MIDDLE_BUTTON = 4
  5. Global Const RIGHT_BUTTON = 2
  6.  
  7. Global Const HWND_BROADCAST = &HFFFF
  8. Global Const HWND_DESKTOP = 0
  9.  
  10.  
  11. ' Device Parameters for GetDeviceCaps()
  12. Global Const DRIVERVERSION = 0  '  Device driver version
  13. Global Const TECHNOLOGY = 2     '  Device classification
  14. Global Const HORZSIZE = 4       '  Horizontal size in millimeters
  15. Global Const VERTSIZE = 6       '  Vertical size in millimeters
  16. Global Const HORZRES = 8        '  Horizontal width in pixels
  17. Global Const VERTRES = 10       '  Vertical width in pixels
  18. Global Const BITSPIXEL = 12     '  Number of bits per pixel
  19. Global Const PLANES = 14        '  Number of planes
  20. Global Const NUMBRUSHES = 16    '  Number of brushes the device has
  21. Global Const NUMPENS = 18       '  Number of pens the device has
  22. Global Const NUMMARKERS = 20    '  Number of markers the device has
  23. Global Const NUMFONTS = 22      '  Number of fonts the device has
  24. Global Const NUMCOLORS = 24     '  Number of colors the device supports
  25. Global Const PDEVICESIZE = 26   '  Size required for device descriptor
  26. Global Const CURVECAPS = 28     '  Curve capabilities
  27. Global Const LINECAPS = 30      '  Line capabilities
  28. Global Const POLYGONALCAPS = 32 '  Polygonal capabilities
  29. Global Const TEXTCAPS = 34      '  Text capabilities
  30. Global Const CLIPCAPS = 36      '  Clipping capabilities
  31. Global Const RASTERCAPS = 38    '  Bitblt capabilities
  32. Global Const ASPECTX = 40       '  Length of the X leg
  33. Global Const ASPECTY = 42       '  Length of the Y leg
  34. Global Const ASPECTXY = 44      '  Length of the hypotenuse
  35.  
  36. Global Const LOGPIXELSX = 88    '  Logical pixels/inch in X
  37. Global Const LOGPIXELSY = 90    '  Logical pixels/inch in Y
  38.  
  39. Global Const SIZEPALETTE = 104  '  Number of entries in physical palette
  40. Global Const NUMRESERVED = 106  '  Number of reserved entries in palette
  41. Global Const COLORRES = 108     '  Actual color resolution
  42.  
  43. ' Commands to pass WinHelp()
  44. Global Const HELP_CONTENTS = &H3     ' Display Help for a particular topic
  45. Global Const HELP_CONTEXT = &H1 '  Display topic in ulTopic
  46. Global Const HELP_QUIT = &H2    '  Terminate help
  47. Global Const HELP_INDEX = &H3   '  Display index
  48. Global Const HELP_HELPONHELP = &H4      '  Display help on using help
  49. Global Const HELP_SETINDEX = &H5        '  Set the current Index for multi index help
  50. Global Const HELP_KEY = &H101           '  Display topic for keyword in offabData
  51. Global Const HELP_MULTIKEY = &H201
  52.  
  53. ' Common Dialog
  54. 'Action Property
  55. Global Const DLG_FILE_OPEN = 1
  56. Global Const DLG_FILE_SAVE = 2
  57. Global Const DLG_COLOR = 3
  58. Global Const DLG_FONT = 4
  59. Global Const DLG_PRINT = 5
  60. Global Const DLG_HELP = 6
  61.  
  62. 'File Open/Save Dialog Flags
  63. Global Const OFN_READONLY = &H1&
  64. Global Const OFN_OVERWRITEPROMPT = &H2&
  65. Global Const OFN_HIDEREADONLY = &H4&
  66. Global Const OFN_NOCHANGEDIR = &H8&
  67. Global Const OFN_SHOWHELP = &H10&
  68. Global Const OFN_NOVALIDATE = &H100&
  69. Global Const OFN_ALLOWMULTISELECT = &H200&
  70. Global Const OFN_EXTENSIONDIFFERENT = &H400&
  71. Global Const OFN_PATHMUSTEXIST = &H800&
  72. Global Const OFN_FILEMUSTEXIST = &H1000&
  73. Global Const OFN_CREATEPROMPT = &H2000&
  74. Global Const OFN_SHAREAWARE = &H4000&
  75. Global Const OFN_NOREADONLYRETURN = &H8000&
  76.  
  77. 'Fonts Dialog Flags
  78. Global Const CF_SCREENFONTS = &H1&
  79. Global Const CF_PRINTERFONTS = &H2&
  80. Global Const CF_BOTH = &H3&
  81. Global Const CF_SHOWHELP = &H4&
  82. Global Const CF_INITTOLOGFONTSTRUCT = &H40&
  83. Global Const CF_USESTYLE = &H80&
  84. Global Const CF_EFFECTS = &H100&
  85. Global Const CF_APPLY = &H200&
  86. Global Const CF_ANSIONLY = &H400&
  87. Global Const CF_NOVECTORFONTS = &H800&
  88. Global Const CF_NOSIMULATIONS = &H1000&
  89. Global Const CF_LIMITSIZE = &H2000&
  90. Global Const CF_FIXEDPITCHONLY = &H4000&
  91. Global Const CF_WYSIWYG = &H8000&         'must also have CF_SCREENFONTS & CF_PRINTERFONTS
  92. Global Const CF_FORCEFONTEXIST = &H10000
  93. Global Const CF_SCALABLEONLY = &H20000
  94. Global Const CF_TTONLY = &H40000
  95. Global Const CF_NOFACESEL = &H80000
  96. Global Const CF_NOSTYLESEL = &H100000
  97. Global Const CF_NOSIZESEL = &H200000
  98.  
  99. 'Printer Dialog Flags
  100. Global Const PD_ALLPAGES = &H0&
  101. Global Const PD_SELECTION = &H1&
  102. Global Const PD_PAGENUMS = &H2&
  103. Global Const PD_NOSELECTION = &H4&
  104. Global Const PD_NOPAGENUMS = &H8&
  105. Global Const PD_COLLATE = &H10&
  106. Global Const PD_PRINTTOFILE = &H20&
  107. Global Const PD_PRINTSETUP = &H40&
  108. Global Const PD_NOWARNING = &H80&
  109. Global Const PD_RETURNDC = &H100&
  110. Global Const PD_RETURNIC = &H200&
  111. Global Const PD_RETURNDEFAULT = &H400&
  112. Global Const PD_SHOWHELP = &H800&
  113. Global Const PD_USEDEVMODECOPIES = &H40000
  114. Global Const PD_DISABLEPRINTTOFILE = &H80000
  115. Global Const PD_HIDEPRINTTOFILE = &H100000
  116.  
  117. ' MsgBox parameters
  118. Global Const MB_OK = 0                 ' OK button only
  119. Global Const MB_OKCANCEL = 1           ' OK and Cancel buttons
  120. Global Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons
  121. Global Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
  122. Global Const MB_YESNO = 4              ' Yes and No buttons
  123. Global Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons
  124.  
  125. Global Const MB_ICONSTOP = 16          ' Critical message
  126. Global Const MB_ICONQUESTION = 32      ' Warning query
  127. Global Const MB_ICONEXCLAMATION = 48   ' Warning message
  128. Global Const MB_ICONINFORMATION = 64   ' Information message
  129.  
  130. Global Const MB_APPLMODAL = 0          ' Application Modal Message Box
  131. Global Const MB_DEFBUTTON1 = 0         ' First button is default
  132. Global Const MB_DEFBUTTON2 = 256       ' Second button is default
  133. Global Const MB_DEFBUTTON3 = 512       ' Third button is default
  134. Global Const MB_SYSTEMMODAL = 4096      'System Modal
  135.  
  136. ' MsgBox return values
  137. Global Const IDOK = 1                  ' OK button pressed
  138. Global Const IDCANCEL = 2              ' Cancel button pressed
  139. Global Const IDABORT = 3               ' Abort button pressed
  140. Global Const IDRETRY = 4               ' Retry button pressed
  141. Global Const IDIGNORE = 5              ' Ignore button pressed
  142. Global Const IDYES = 6                 ' Yes button pressed
  143. Global Const IDNO = 7                  ' No button pressed
  144.  
  145. 'BitBlt modes
  146. Global Const SRCCOPY = &HCC0020
  147. Global Const SRCPAINT = &HEE0086
  148. Global Const SRCAND = &H8800C6
  149. Global Const SRCINVERT = &H660046
  150. Global Const SRCERASE = &H440328
  151. Global Const NOTSRCCOPY = &H330008
  152. Global Const NOTSRCERASE = &H1100A6
  153. Global Const MERGECOPY = &HC000CA
  154. Global Const MERGEPAINT = &HBB0226
  155. Global Const PATCOPY = &HF00021
  156. Global Const PATPAINT = &HFB0A09
  157. Global Const PATINVERT = &H5A0049
  158. Global Const DSTINVERT = &H550009
  159. Global Const BLACKNESS = &H42
  160. Global Const WHITENESS = &HFF0062
  161.  
  162. ' SetAttr, Dir, GetAttr functions
  163. Global Const ATTR_NORMAL = 0
  164. Global Const ATTR_READONLY = 1
  165. Global Const ATTR_HIDDEN = 2
  166. Global Const ATTR_SYSTEM = 4
  167. Global Const ATTR_VOLUME = 8
  168. Global Const ATTR_DIRECTORY = 16
  169. Global Const ATTR_ARCHIVE = 32
  170.  
  171. Global Const WM_FONTCHANGE = &H1D
  172.  
  173. Global Const WM_USER = &H400
  174. Global Const CB_FINDSTRING = (WM_USER + 12)
  175. Global Const CB_FINDSTRINGEXACT = (WM_USER + 24)
  176.  
  177. ' ScaleMode
  178. Global Const SM_USER = 0        ' 0 - User
  179. Global Const SM_TWIPS = 1       ' 1 - Twip
  180. Global Const SM_POINTS = 2      ' 2 - Point
  181. Global Const SM_PIXELS = 3      ' 3 - Pixel
  182. Global Const SM_CHARACTERS = 4  ' 4 - Character
  183. Global Const SM_INCHES = 5      ' 5 - Inch
  184. Global Const SM_MILLIMETERS = 6 ' 6 - Millimeter
  185. Global Const SM_CENTIMETERS = 7 ' 7 - Centimeter
  186.  
  187. 'Open File
  188. Global Const HFILE_ERROR = -1
  189.  
  190. Global Const OF_READ = &H0
  191. Global Const OF_WRITE = &H1
  192. Global Const OF_READWRITE = &H2
  193. Global Const OF_SHARE_COMPAT = &H0
  194. Global Const OF_SHARE_EXCLUSIVE = &H10
  195. Global Const OF_SHARE_DENY_WRITE = &H20
  196. Global Const OF_SHARE_DENY_READ = &H30
  197. Global Const OF_SHARE_DENY_NONE = &H40
  198. Global Const OF_PARSE = &H100
  199. Global Const OF_DELETE = &H200
  200. Global Const OF_VERIFY = &H400
  201. Global Const OF_CANCEL = &H800
  202. Global Const OF_CREATE = &H1000
  203. Global Const OF_PROMPT = &H2000
  204. Global Const OF_EXIST = &H4000
  205. Global Const OF_REOPEN = &H8000
  206.  
  207. Type OFSTRUCT
  208.     cBytes As String * 1
  209.     fFixedDisk As String * 1
  210.     nErrCode As Integer
  211.     reserved As String * 4
  212.     szPathName As String * 128
  213.     End Type
  214.  
  215. 'PointAPI
  216. Type POINTAPI
  217.     X As Integer
  218.     Y As Integer
  219.     End Type
  220.  
  221. 'RECT
  222. Type RECT
  223.     nLeft As Integer
  224.     nTop As Integer
  225.     nRight As Integer
  226.     nBottom As Integer
  227.     End Type
  228.  
  229. Global Const EW_RESTARTWINDOWS = &H42
  230.  
  231. Declare Sub ExitWindows Lib "User" (ByVal dwReturnCode As Long, ByVal wReserved As Integer)
  232. Declare Sub BitBlt Lib "GDI" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal XSrc As Integer, ByVal YSrc As Integer, ByVal dwRop As Long)
  233. Declare Function GetDC Lib "User" (ByVal hWindow As Integer) As Integer
  234. Declare Sub SetCursorPos Lib "User" (ByVal X As Integer, ByVal Y As Integer)
  235. Declare Sub GetCursorPos Lib "User" (lpPoint As POINTAPI)
  236. Declare Function GetModuleUsage Lib "Kernel" (ByVal hModule As Integer) As Integer
  237. Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Long) As Long
  238. Declare Function AddFontResource Lib "GDI" (ByVal lpFileName As Any) As Integer
  239. Declare Function RemoveFontResource Lib "GDI" (ByVal lpFileName As Any) As Integer
  240. Declare Function CreateScalableFontResource% Lib "GDI" (ByVal fHidden%, ByVal lpszResourceFile$, ByVal lpszFontFile$, ByVal lpszCurrentPath As Any)
  241. Declare Function GetSystemDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  242. Declare Function OpenFile Lib "Kernel" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Integer) As Integer
  243. Declare Sub WriteProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String)
  244. Declare Function GlobalCompact Lib "Kernel" (ByVal dwMinFree As Long) As Long
  245. Declare Sub ClipCursor Lib "User" (ByVal lpRect As Long)
  246. Declare Function CreateDC Lib "GDI" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As Long) As Integer
  247. Declare Sub DeleteDC Lib "GDI" (ByVal hDC As Integer)
  248. Declare Sub GetProfileString Lib "Kernel" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer)
  249. Declare Function FindWindow Lib "User" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Integer
  250. Declare Sub GetClientRect Lib "User" (ByVal hWnd As Integer, lpRect As RECT)
  251. Declare Sub GetWindowRect Lib "User" (ByVal hWnd As Integer, lpRect As RECT)
  252. Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, ByVal dwData As Long) As Integer
  253. Declare Function GetDeviceCaps Lib "GDI" (ByVal hDC As Integer, ByVal nIndex As Integer) As Integer
  254. Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags As Integer) As Long
  255. Declare Function GetDesktopWindow Lib "User" () As Integer
  256. Declare Function GetWindowsDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  257. Declare Function GetVersion Lib "Kernel" () As Long
  258. Declare Function LZCopy Lib "LZexpand.dll" (ByVal hfSource As Integer, ByVal hfDest As Integer) As Long
  259. Declare Function LZOpenFile Lib "LZexpand.dll" (ByVal lpszFile As String, lpOf As OFSTRUCT, ByVal style As Integer) As Integer
  260. Declare Sub LZClose Lib "LZexpand.dll" (ByVal hFile As Integer)
  261.  
  262.