home *** CD-ROM | disk | FTP | other *** search
/ CICA 1995 May / cica_0595_4.zip / cica_0595_4 / UTIL / WSPRTERM / WSPRTERM.GLO < prev    next >
Text File  |  1994-07-10  |  15KB  |  474 lines
  1. Option Explicit
  2. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  3. Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
  4. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String) As Integer
  5.  
  6. Global version As String
  7.  
  8. Type RECT
  9.     Left As Integer
  10.     Top As Integer
  11.     right As Integer
  12.     bottom As Integer
  13. End Type
  14.  
  15. Global margin As RECT
  16. Global visibleArea As RECT
  17. Global visibleLines As Integer
  18.  
  19.  
  20. Global lineSpacing As Integer
  21. Global lineSpacingExt As Integer
  22. Global pixelHeight As Integer
  23. Global pixelWidth As Integer
  24. Global initHeight%, initWidth%, initTop%, initLeft%
  25.  
  26. Global sidesLR As Integer
  27. Global sidesTB As Integer
  28.  
  29. Global Const DefaultINI = "WSPRTERM.INI"
  30. Global curIniFilename As String
  31.  
  32. Global Const Key_Async = "Async"
  33. Global Const Appl_Parity = "Parity"
  34. Global Const Appl_DataBits = "Databits"
  35. Global Const Appl_StopBits = "Stopbits"
  36. Global Const Appl_CommPort = "Port"
  37. Global Const Appl_BaudRate = "BaudRate"
  38. Global Const Appl_HandShake = "HandShake"
  39. Global Const Appl_OutBufSize = "OutBufferSize"
  40. Global Const Appl_InBufSize = "InBufferSize"
  41. Global Const Appl_Interval = "PollInterval"
  42.  
  43. Global asyncOutBufSize As Integer
  44. Global asyncInBufSize As Integer
  45. Global asyncPollInterval As Integer
  46.  
  47. Global connectAtStartup As Integer
  48.  
  49. Global curConnectType As Integer
  50. Global Const CT_Async = 0
  51.  
  52. Global curParity As String
  53. Global curDataBits As String
  54. Global curstopBits As String
  55. Global curCommPort As Integer
  56. Global curBaudRate As String
  57. Global curHandShake As Integer
  58.  
  59. Global Const Key_Pref = "Preferences"
  60. Global Const Appl_BackColor = "BackColor"
  61. Global Const Appl_ForeColor = "ForeColor"
  62. Global Const Appl_HiColor = "HighColor"
  63. Global Const Appl_CursorColor = "CursorColor"
  64. Global Const Appl_SelTxtFgColor = "SelTextForeColor"
  65. Global Const Appl_SelTxtBgColor = "SelTextBackColor"
  66. Global Const Appl_RollStyle = "RollStyle"
  67. Global Const Appl_Font = "Font"
  68. Global Const Appl_FontSize = "FontSize"
  69. Global Const Appl_LineSpacing = "LineSpacing"
  70. Global Const Appl_CursorBlink = "CursorBlinkRate"
  71. Global Const Appl_MouseStyle = "MouseStyle"
  72. Global Const Appl_PrtFontName = "PrinterFont"
  73. Global Const Appl_PrtFontSize = "PrinterFontSize"
  74. Global dPrtFontName As String
  75. Global prtFontName As String
  76. Global dPrtFontSize As Integer
  77. Global prtFontSize As Integer
  78.  
  79. Global Const Key_Notes = "Notes"
  80. Global Const Appl_CurrentIni = "CurrentINI"
  81. Global Const Appl_ConnectType = "ConnectType"
  82. Global Const Appl_AutoConnect = "ConnectAtStartup"
  83. Global Const Appl_Left = "Left"
  84. Global Const Appl_Top = "Top"
  85. Global Const Appl_Width = "Width"
  86. Global Const Appl_Height = "Height"
  87. Global Const Appl_ClickWav = "WSPRTERM Click"
  88. Global Const Appl_BeepWav = "WSPRTERM Beep"
  89.  
  90. Global clickWav As String
  91. Global defaultClickWav As String
  92. Global beepWav As String
  93. Global defaultBeepWav As String
  94.  
  95.  
  96. Global startTime As Single
  97. Global connecting As Integer
  98. Global disconnecting As Integer
  99.  
  100. Global curX As Integer
  101. Global curY As Integer
  102.  
  103. Global qX1 As Integer
  104. Global qY1 As Integer
  105. Global qX2 As Integer
  106. Global qY2 As Integer
  107. Global partialScrnUpdate As Integer
  108.  
  109. Global textCursorOn As Integer
  110.  
  111. Global Const BUFFERED = 0
  112. Global Const IMMEDIATE = 1
  113. Global Const SMART = 2
  114. Global rollStyle As Integer
  115.  
  116. ' Group 1 - MsgBox buttons
  117. Global Const MB_OK = 0
  118. Global Const MB_OKCANCEL = 1
  119. Global Const MB_YESNOCANCEL = 3
  120. Global Const MB_YESNO = 4
  121. ' Group 2 - MsgBox Icons
  122. Global Const MB_ICONSTOP = 16
  123. Global Const MB_ICONQUESTION = 32
  124. Global Const MB_ICONEXCLAMATION = 48
  125. Global Const MB_ICONINFORMATION = 64
  126. ' Group 3 - Default buttons
  127. Global Const MB_DEFBUTTON1 = 0
  128. Global Const MB_DEFBUTTON2 = 256
  129. ' Group 4 - Modality
  130. Global Const MB_APPLMODAL = 0
  131. Global Const MB_SYSTEMMODAL = 4096
  132. ' MsgBox other
  133. Global Const IDOK = 1
  134. Global Const IDCANCEL = 2
  135. Global Const IDYES = 6
  136. Global Const IDNO = 7
  137.  
  138. Global Const LiveMinRow = 0      ' "live" screen min row
  139. Global Const LiveMaxRow = 23
  140. Global Const MinRow = -25         ' total screen min row
  141. Global Const MaxRow = 23
  142. Global Const Rows = 49
  143.  
  144. Global Const LiveMinCol = 0
  145. Global Const LiveMaxCol = 79
  146. Global Const MinColumn = 0
  147. Global Const MaxColumn = 79
  148. Global Const CharsPerRow = 80
  149.  
  150. Global sdI(MinRow To MaxRow) As Integer
  151. Global yPos(MinRow To MaxRow) As Integer
  152. Global scrnData(MinRow To MaxRow) As String * CharsPerRow
  153. Global scrnAttr(MinRow To MaxRow) As String * CharsPerRow
  154. Global scrnColor(MinRow To MaxRow) As String * CharsPerRow
  155. Global shortStr As String
  156.  
  157. Global localCapture As Integer
  158. Global localCaptureLine As String
  159.  
  160. Global curAttr As Integer
  161. Global Const ABold = &H1
  162. Global Const AInverse = &H2
  163. Global Const AUnderline = &H4
  164. Global Const ABlank = &H8
  165. Global Const ABlink = &H10
  166. Global Const ASysColors = &H20
  167. Global Const ANormal = &H20     ' Default normal to system colors
  168.  
  169. Global curColor As Integer
  170. Global Const CFgColorMask = &HF
  171. Global Const CBgColorMask = &HF0
  172. Global Const CNormal = &H7      ' fg=white, bg=black
  173.  
  174. Global pasteStr As String
  175. Global pasteIndex As Integer
  176. Global pasteInterval As Integer
  177. Global pasteBurst As Integer
  178. Global pasteLen As Integer
  179.  
  180. Global mouseState As Integer
  181. Global lastMouseButton As Integer
  182. Global mouseStyle As Integer
  183. Global Const MouseOff = 0
  184. Global Const MouseMenu = 1      ' default
  185. Global Const MouseEditor = 2
  186.  
  187. Global cmdSeq As Integer
  188. Global subCmdSeq As Integer
  189. Global seqPhase As Integer
  190. Global Const MaxParam = 20
  191. Global param(1 To MaxParam)  As Integer
  192. Global paramCnt As Integer
  193.  
  194. Global queueTxData As String
  195.  
  196. Global Const EscSeq = &H1B
  197. Global Const ExtendedSeq = &H5B
  198.  
  199. ' Button parameter masks
  200. Global Const LEFT_BUTTON = 1
  201. Global Const RIGHT_BUTTON = 2
  202. Global Const MIDDLE_BUTTON = 4
  203.  
  204. ' Colors
  205. Global Const BLACK = &H0&
  206. Global Const RED = &HFF&
  207. Global Const GREEN = &HFF00&
  208. Global Const YELLOW = &HFFFF&
  209. Global Const BLUE = &HFF0000
  210. Global Const MAGENTA = &HFF00FF
  211. Global Const CYAN = &HFFFF00
  212. Global Const WHITE = &HFFFFFF
  213.  
  214. 'Graphic Colors
  215. Global Const G_BLACK = 0
  216. Global Const G_BLUE = 1
  217. Global Const G_GREEN = 2
  218. Global Const G_CYAN = 3
  219. Global Const G_RED = 4
  220. Global Const G_MAGENTA = 5
  221. Global Const G_BROWN = 6
  222. Global Const G_LIGHT_GRAY = 7
  223. Global Const G_DARK_GRAY = 8
  224. Global Const G_LIGHT_BLUE = 9
  225. Global Const G_LIGHT_GREEN = 10
  226. Global Const G_LIGHT_CYAN = 11
  227. Global Const G_LIGHT_RED = 12
  228. Global Const G_LIGHT_MAGENTA = 13
  229. Global Const G_YELLOW = 14
  230. Global Const G_WHITE = 15
  231. Global Const G_AUTOBW = 16
  232.  
  233. ' System color indexes
  234. Global Const COLOR_SCROLLBAR = 0
  235. Global Const COLOR_WINDOW = 5
  236. Global Const COLOR_WINDOWTEXT = 8
  237. Global Const COLOR_HIGHLIGHTTEXT = 14
  238. Global Const COLOR_GRAYTEXT = 17
  239.  
  240. ' System Colors
  241. Global Const SCROLL_BARS = &H80000000           ' Scroll-bars gray area.
  242. Global Const DESKTOP = &H80000001               ' Desktop.
  243. Global Const ACTIVE_TITLE_BAR = &H80000002      ' Active window caption.
  244. Global Const INACTIVE_TITLE_BAR = &H80000003    ' Inactive window caption.
  245. Global Const MENU_BAR = &H80000004              ' Menu background.
  246. Global Const WINDOW_BACKGROUND = &H80000005     ' Window background.
  247. Global Const WINDOW_FRAME = &H80000006          ' Window frame.
  248. Global Const MENU_TEXT = &H80000007             ' Text in menus.
  249. Global Const WINDOW_TEXT = &H80000008           ' Text in windows.
  250. Global Const TITLE_BAR_TEXT = &H80000009        ' Text in caption, size box, scroll-bar arrow box..
  251. Global Const ACTIVE_BORDER = &H8000000A         ' Active window border.
  252. Global Const INACTIVE_BORDER = &H8000000B       ' Inactive window border.
  253. Global Const APPLICATION_WORKSPACE = &H8000000C ' Background color of multiple document interface (MDI) applications.
  254. Global Const HIGHLIGHT = &H8000000D             ' Items selected item in a control.
  255. Global Const HIGHLIGHT_TEXT = &H8000000E        ' Text of item selected in a control.
  256. Global Const BUTTON_FACE = &H8000000F           ' Face shading on command buttons.
  257. Global Const BUTTON_SHADOW = &H80000010         ' Edge shading on command buttons.
  258. Global Const GRAY_TEXT = &H80000011             ' Grayed (disabled) text.  This color is set to 0 if the current display driver does not support a solid gray color.
  259. Global Const BUTTON_TEXT = &H80000012           ' Text on push buttons.
  260.  
  261.  
  262. ' WindowState
  263. Global Const NORMAL = 0    ' 0 - Normal
  264. Global Const MINIMIZED = 1 ' 1 - Minimized
  265. Global Const MAXIMIZED = 2 ' 2 - Maximized
  266.  
  267. ' MousePointer
  268. Global Const DEFAULT = 0        ' 0 - Default
  269. 'Global Const ARROW = 1          ' 1 - Arrow
  270. 'Global Const CROSSHAIR = 2      ' 2 - Cross
  271. Global Const IBEAM = 3          ' 3 - I-Beam
  272. 'Global Const ICON_POINTER = 4   ' 4 - Icon
  273. Global Const SIZE_POINTER = 5   ' 5 - Size
  274. 'Global Const SIZE_NE_SW = 6     ' 6 - Size NE SW
  275. 'Global Const SIZE_N_S = 7       ' 7 - Size N S
  276. 'Global Const SIZE_NW_SE = 8     ' 8 - Size NW SE
  277. 'Global Const SIZE_W_E = 9       ' 9 - Size W E
  278. 'Global Const UP_ARROW = 10      ' 10 - Up Arrow
  279. Global Const HOURGLASS = 11     ' 11 - Hourglass
  280. Global Const NO_DROP = 12       ' 12 - No drop
  281.  
  282. Global blankLine As String
  283. Global curAttrFullLine As String
  284.  
  285. Global Const OnColor = G_GREEN
  286. Global Const OffColor = G_DARK_GRAY
  287. Global LedOnColor As Long
  288. Global LedOffColor As Long
  289.  
  290. Global normalBgColor As Long
  291. Global normalFgColor As Long
  292. Global normalHiColor As Long
  293. Global cursorColor As Long
  294.  
  295. Global selTextFgColor As Long
  296. Global selTextBgColor As Long
  297. Global selTextCol1 As Integer
  298. Global selTextRow1 As Integer
  299. Global selTextLastCol As Integer
  300. Global selTextLastRow As Integer
  301. Global textSelected As Integer
  302.  
  303. Global Const Shift1% = 2
  304. Global Const Shift2% = 4
  305. Global Const Shift3% = 8
  306. Global Const Shift4% = 16
  307. Global Const Shift5% = 32
  308. Global Const Shift6% = 64
  309. Global Const Shift7% = 128
  310. Global Const Shift8% = 256
  311.  
  312. Global Const Transparent = 1
  313. Global Const Opaque = 2
  314.  
  315.  
  316. '---------------------------------------
  317. 'Comm Control
  318. '---------------------------------------
  319. 'Handshaking
  320. Global Const MSCOMM_HANDSHAKE_NONE = 0
  321. Global Const MSCOMM_HANDSHAKE_XONXOFF = 1
  322. Global Const MSCOMM_HANDSHAKE_RTS = 2
  323. Global Const MSCOMM_HANDSHAKE_RTSXONXOFF = 3
  324.  
  325. 'Event constants
  326. Global Const MSCOMM_EV_SEND = 1
  327. Global Const MSCOMM_EV_RECEIVE = 2
  328. Global Const MSCOMM_EV_CTS = 3
  329. Global Const MSCOMM_EV_DSR = 4
  330. Global Const MSCOMM_EV_CD = 5
  331. Global Const MSCOMM_EV_RING = 6
  332. Global Const MSCOMM_EV_EOF = 7
  333.  
  334. 'Error code constants
  335. Global Const MSCOMM_ER_BREAK = 1001
  336. Global Const MSCOMM_ER_CTSTO = 1002
  337. Global Const MSCOMM_ER_DSRTO = 1003
  338. Global Const MSCOMM_ER_FRAME = 1004
  339. Global Const MSCOMM_ER_OVERRUN = 1006
  340. Global Const MSCOMM_ER_CDTO = 1007
  341. Global Const MSCOMM_ER_RXOVER = 1008
  342. Global Const MSCOMM_ER_RXPARITY = 1009
  343. Global Const MSCOMM_ER_TXFULL = 1010
  344.  
  345. 'Color Dialog Flags
  346. Global Const CC_RGBINIT = &H1&
  347. Global Const CC_FULLOPEN = &H2&
  348. Global Const CC_PREVENTFULLOPEN = &H4&
  349. Global Const CC_SHOWHELP = &H8&
  350.  
  351. 'Fonts Dialog Flags
  352. Global Const CF_SCREENFONTS = &H1&
  353. Global Const CF_PRINTERFONTS = &H2&
  354. Global Const CF_BOTH = &H3&
  355. Global Const CF_SHOWHELP = &H4&
  356. Global Const CF_INITTOLOGFONTSTRUCT = &H40&
  357. Global Const CF_USESTYLE = &H80&
  358. Global Const CF_EFFECTS = &H100&
  359. Global Const CF_APPLY = &H200&
  360. Global Const CF_ANSIONLY = &H400&
  361. Global Const CF_NOVECTORFONTS = &H800&
  362. Global Const CF_NOSIMULATIONS = &H1000&
  363. Global Const CF_LIMITSIZE = &H2000&
  364. Global Const CF_FIXEDPITCHONLY = &H4000&
  365. Global Const CF_WYSIWYG = &H8000&         'must also have CF_SCREENFONTS & CF_PRINTERFONTS
  366. Global Const CF_FORCEFONTEXIST = &H10000
  367. Global Const CF_SCALABLEONLY = &H20000
  368. Global Const CF_TTONLY = &H40000
  369. Global Const CF_NOFACESEL = &H80000
  370. Global Const CF_NOSTYLESEL = &H100000
  371. Global Const CF_NOSIZESEL = &H200000
  372.  
  373. 'File Open/Save Dialog Flags
  374. Global Const OFN_READONLY = &H1&
  375. Global Const OFN_OVERWRITEPROMPT = &H2&
  376. Global Const OFN_HIDEREADONLY = &H4&
  377. Global Const OFN_NOCHANGEDIR = &H8&
  378. Global Const OFN_SHOWHELP = &H10&
  379. Global Const OFN_NOVALIDATE = &H100&
  380. Global Const OFN_ALLOWMULTISELECT = &H200&
  381. Global Const OFN_EXTENSIONDIFFERENT = &H400&
  382. Global Const OFN_PATHMUSTEXIST = &H800&
  383. Global Const OFN_FILEMUSTEXIST = &H1000&
  384. Global Const OFN_CREATEPROMPT = &H2000&
  385. Global Const OFN_SHAREAWARE = &H4000&
  386. Global Const OFN_NOREADONLYRETURN = &H8000&
  387.  
  388.  
  389. ' Key Codes
  390. Global Const KEY_LBUTTON = &H1
  391. Global Const KEY_RBUTTON = &H2
  392. Global Const KEY_CANCEL = &H3
  393. Global Const KEY_MBUTTON = &H4    ' NOT contiguous with L & RBUTTON
  394. Global Const KEY_BACK = &H8
  395. Global Const KEY_TAB = &H9
  396. Global Const KEY_CLEAR = &HC
  397. Global Const KEY_RETURN = &HD
  398. Global Const KEY_SHIFT = &H10
  399. Global Const KEY_CONTROL = &H11
  400. Global Const KEY_MENU = &H12
  401. Global Const KEY_PAUSE = &H13
  402. Global Const KEY_CAPITAL = &H14
  403. Global Const KEY_ESCAPE = &H1B
  404. Global Const KEY_SPACE = &H20
  405. Global Const KEY_PRIOR = &H21
  406. Global Const KEY_NEXT = &H22
  407. Global Const KEY_END = &H23
  408. Global Const KEY_HOME = &H24
  409. Global Const KEY_LEFT = &H25
  410. Global Const KEY_UP = &H26
  411. Global Const KEY_RIGHT = &H27
  412. Global Const KEY_DOWN = &H28
  413. Global Const KEY_SELECT = &H29
  414. Global Const KEY_PRINT = &H2A
  415. Global Const KEY_EXECUTE = &H2B
  416. Global Const KEY_SNAPSHOT = &H2C
  417. Global Const KEY_INSERT = &H2D
  418. Global Const KEY_DELETE = &H2E
  419. Global Const KEY_HELP = &H2F
  420.  
  421. ' KEY_A thru KEY_Z are the same as their ASCII equivalents: 'A' thru 'Z'
  422. ' KEY_0 thru KEY_9 are the same as their ASCII equivalents: '0' thru '9'
  423.  
  424. Global Const KEY_NUMPAD0 = &H60
  425. Global Const KEY_NUMPAD1 = &H61
  426. Global Const KEY_NUMPAD2 = &H62
  427. Global Const KEY_NUMPAD3 = &H63
  428. Global Const KEY_NUMPAD4 = &H64
  429. Global Const KEY_NUMPAD5 = &H65
  430. Global Const KEY_NUMPAD6 = &H66
  431. Global Const KEY_NUMPAD7 = &H67
  432. Global Const KEY_NUMPAD8 = &H68
  433. Global Const KEY_NUMPAD9 = &H69
  434. Global Const KEY_MULTIPLY = &H6A
  435. Global Const KEY_ADD = &H6B
  436. Global Const KEY_SEPARATOR = &H6C
  437. Global Const KEY_SUBTRACT = &H6D
  438. Global Const KEY_DECIMAL = &H6E
  439. Global Const KEY_DIVIDE = &H6F
  440. Global Const KEY_F1 = &H70
  441. Global Const KEY_F2 = &H71
  442. Global Const KEY_F3 = &H72
  443. Global Const KEY_F4 = &H73
  444. Global Const KEY_F5 = &H74
  445. Global Const KEY_F6 = &H75
  446. Global Const KEY_F7 = &H76
  447. Global Const KEY_F8 = &H77
  448. Global Const KEY_F9 = &H78
  449. Global Const KEY_F10 = &H79
  450. Global Const KEY_F11 = &H7A
  451. Global Const KEY_F12 = &H7B
  452. Global Const KEY_F13 = &H7C
  453. Global Const KEY_F14 = &H7D
  454. Global Const KEY_F15 = &H7E
  455. Global Const KEY_F16 = &H7F
  456.  
  457. Global Const KEY_NUMLOCK = &H90
  458.  
  459. ' Clipboard formats
  460. Global Const CF_LINK = &HBF00
  461. Global Const CF_TEXT = 1
  462. Global Const CF_BITMAP = 2
  463. Global Const CF_METAFILE = 3
  464. Global Const CF_DIB = 8
  465. Global Const CF_PALETTE = 9
  466.  
  467. Sub CenterForm (theForm As Form)
  468.  
  469.     theForm.Left = (Screen.Width - theForm.Width) / 2
  470.     theForm.Top = ((Screen.Height * .85) - theForm.Height) / 2
  471.  
  472. End Sub
  473.  
  474.