home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / RealTime Graphics ActiveX / DATA.3 / Examples / VB / CTWXDef.BAS
Encoding:
BASIC Source File  |  1997-12-12  |  16.9 KB  |  550 lines
  1. Attribute VB_Name = "Module2"
  2. Option Base 0
  3. Option Explicit
  4.  
  5. Global TopDesc As Long
  6.  
  7. Global Const QCWINH = 1
  8. Global Const M_PI = 3.14159265358979
  9. Global Const LengthOfData = 8
  10.  
  11. ' ways of creating page window
  12.  
  13. Global Const PAGE_CLIENT = 0                '  fill parent window client area
  14. Global Const PAGE_FULL = 1              '  fill the whole screen
  15. Global Const PAGE_EXACT = 2              '  use passed coordinates
  16.  
  17. ' Page Window scaling types - fixed and proportionate
  18. Global Const MM_FIXED = 7
  19. Global Const mm_proport = 8
  20. Global Const MM_ISOTR = 9
  21. Global Const MM_PROPORT_FT = 10           ' proportionate with fixed text size
  22. Global Const MM_ISOTR_FT = 11             ' isotropic with fixed text size
  23.  
  24.  
  25. ' coordinate types
  26. Global Const CO_LOG = 0
  27. Global Const CO_PHYS = 1
  28. Global Const CO_NORM = 2
  29. Global Const CO_DEV = 3
  30.  
  31. ' Point search constants
  32.  
  33. Global Const FNP_X = 0   ' nearest x
  34. Global Const FNP_Y = 1   ' nearest y
  35. Global Const FNP_DIST = 2 ' shortest distance
  36.  
  37. '  printing styles
  38.  
  39. Global Const PRT_FULL = 0         '  Pages and graphs are printed so that paper
  40. '                             is used maximally. Text is printed
  41. '                             proportionately to other objects
  42. Global Const PRT_PROP = 1         '  Pages are printed so that paper
  43. '                             is used maximally. Graphs are printed
  44. '                             proportionately to page size.
  45. '                             Text is printed proportionately to other objects
  46.  
  47. Global Const PRT_EXACT = 2    '  physical size, font size in points are preserved
  48.  
  49. ' ************************************************************************
  50. '  Graphical objects
  51. ' ************************************************************************
  52.  
  53. Global Const GO_PLOT = 1                  '  can be line, bars, scat, etc
  54. Global Const GO_GROUP = 2                 '  can be stacked lines, bars
  55. Global Const GO_LEGEND = 3
  56. Global Const GO_LINE = 4                  '  Straight line
  57. Global Const GO_ARROW = 5                 '  Straight line with arrow
  58. Global Const GO_LAST1 = 9
  59. Global Const GO_AX = 10
  60. Global Const GO_LABELS = 11
  61. Global Const GO_TEXT = 12
  62. Global Const GO_ARC = 13
  63. Global Const GO_RECT = 14
  64. Global Const GO_LAST2 = 19
  65.  
  66. ' ***********************************************************
  67.  
  68. Global Const GO_PIECHART = 20
  69. Global Const GO_METAFILE = 21
  70. Global Const GO_ELLIPSE = 22
  71. Global Const GO_BITMAP = 23
  72. Global Const GO_POLYGON = 24
  73. Global Const GO_PIE = 25
  74. Global Const GOS_MAX = 50         ' max value of statical graphical object
  75. Global Const GO_USER = 1000
  76.             
  77. '  Line types - subtype field
  78.  
  79. Global Const LT_LINE = 3
  80. Global Const LT_LINEMARK = 4
  81. Global Const LT_SCAT = 5
  82. Global Const LT_VBAR = 6
  83. Global Const LT_HBAR = 7
  84. Global Const LT_3DVBAR = 8
  85. Global Const LT_3DHBAR = 9
  86.  
  87. '  types of group plots
  88.  
  89. Global Const GT_GROUPBARS = 0
  90. Global Const GT_DEEPBARS = 1
  91. Global Const GT_STACKEDBARS = 2
  92. Global Const GT_FLOATBARS = 3
  93. Global Const GT_STACKEDLINES = 5
  94. Global Const GT_HILOCLOSE = 6
  95. Global Const GT_ERRORBARS = 7
  96.  
  97.  
  98. ' data cursor types
  99.  
  100. Global Const DC_VLINE = 0   ' vertical line
  101. Global Const DC_HLINE = 1   ' horizontal line
  102. Global Const DC_CROSS = 2   ' crosshair
  103. Global Const DC_BOX = 3     ' square
  104.  
  105. ' zoom flag
  106. Global Const ZOOMF_OFF = 0
  107.  
  108. ' button messages
  109. Global Const WM_LBUTTONUP = &H202
  110. Global Const WM_MBUTTONUP = &H208
  111. Global Const WM_RBUTTONUP = &H205
  112.  
  113. Global Const WM_RBUTTONDOWN = &H204
  114. Global Const WM_RBUTTONDBLCLK = &H206
  115. Global Const WM_MBUTTONDOWN = &H207
  116.  
  117.  
  118.  
  119. ' data cursor styles
  120. Global Const DCS_MOVE = 0    ' cursor is moved with mouse movement
  121. Global Const DCS_LBUTTONDOWN = WM_LBUTTONUP
  122. Global Const DCS_MBUTTONDOWN = WM_MBUTTONUP
  123. Global Const DCS_RBUTTONDOWN = WM_RBUTTONUP
  124.  
  125. Global Const ARROW_START = 1
  126. Global Const ARROW_END = 2
  127. Global Const ARROW_BOTH = 3
  128.  
  129. '  data reduction types
  130.  
  131. Global Const DC_SKIP = 0
  132. Global Const DC_AVERAGE = 1
  133. Global Const DC_MAX = 2
  134. Global Const DC_MIN = 3
  135.  
  136. '  bitmap display modes
  137.  
  138. Global Const BM_ORIG = 0
  139. Global Const BM_STRETCH = 1
  140.  
  141. '  COLOR CODES
  142. Global Const C_RGB = -2              ' for RGB colors
  143. Global Const C_TRANSPARENT = -1
  144. Global Const C_BLACK = 0
  145. Global Const C_BLUE = 1
  146. Global Const C_GREEN = 2
  147. Global Const C_CYAN = 3
  148. Global Const C_RED = 4
  149. Global Const C_MAGENTA = 5
  150. Global Const C_BROWN = 6
  151. Global Const C_LIGHTGRAY = 7
  152. Global Const C_GRAY = 8
  153. Global Const C_LIGHTBLUE = 9
  154. Global Const C_LIGHTGREEN = 10
  155. Global Const C_LIGHTCYAN = 11
  156. Global Const C_LIGHTRED = 12
  157. Global Const C_LIGHTMAGENTA = 13
  158. Global Const C_YELLOW = 14
  159. Global Const C_WHITE = 15
  160. Global Const C_PALEBLUE = 16
  161. Global Const C_PALEGREEN = 17
  162. Global Const C_MEDGRAY = 18
  163. Global Const C_OFFWHITE = 19
  164. Global Const NUMCOLS = 20
  165.  
  166. ' ************************************************************************
  167. '  Axis scaling types
  168.  
  169. Global Const ST_LINEAR = 0
  170. Global Const ST_LOG = 1
  171.  
  172. ' ************************************************************************
  173. '  Grid types
  174.  
  175. Global Const GRID_MAJOR = 0
  176. Global Const GRID_MINOR = 1
  177. Global Const GRID_ALL = 2
  178.  
  179. ' ************************************************************************
  180. '  Tick mark, bar, etc. position definitions:
  181.  
  182. Global Const POS_BELOW = 0
  183. Global Const POS_INSIDE = POS_BELOW
  184. Global Const POS_LEFT = 1
  185. Global Const POS_RIGHT = 2
  186. Global Const POS_MIDDLE = 3
  187. Global Const POS_ABOVE = 4
  188. Global Const POS_OUTSIDE = POS_ABOVE
  189. Global Const POS_INVISIBLE = 5
  190. Global Const POS_BELOW_PLOT = 6
  191. Global Const POS_ABOVE_PLOT = 7
  192. Global Const POS_LEFT_PLOT = 8
  193. Global Const POS_RIGHT_PLOT = 9
  194.  
  195. Global Const TEXT_NORMAL = 0
  196. Global Const TEXT_VERTLEFT = 900
  197. Global Const TEXT_VERTRIGHT = 2700
  198. Global Const TEXT_BOLD = 1                 '  can be ORed with each other
  199. Global Const TEXT_ITAL = 2
  200. Global Const TEXT_UNDERLINE = 4
  201.  
  202. ' *********************************************************************
  203. '  last label indicators:
  204.  
  205. Global Const LL_ON = 0
  206. Global Const LL_OFF = 1
  207. Global Const LL_TEXT = 2
  208.  
  209. Global Const LABELLEN = 42        '  maximal length of string label
  210. Global Const LG_MAXLEN = 42        ' maximal legend length
  211.  
  212. ' *********************************************************************
  213. '  Pie Chart Constants
  214.  
  215. Global Const PIE_NUM_NONE = 0
  216. Global Const PIE_NUM_PERC = 1
  217. Global Const PIE_NUM_VAL = 2
  218. Global Const PIE_NUM_BOTH = 3
  219. Global Const PIE_IN = 0
  220. Global Const PIE_OUT = 1
  221. Global Const PIE_2D = 10
  222. Global Const PIE_3D = 11
  223.  
  224. ' *********************************************************************
  225. '  Numbers formats:
  226.  
  227. Global Const NF_DECIMAL = 0
  228. Global Const NF_SCIENTIFIC = 1
  229. Global Const NF_ENG = 2
  230. Global Const NF_EXP = 3
  231. Global Const NF_TIMEF = 4
  232. Global Const NF_G = 5
  233.  
  234. Global Const TM_HMS = 1         ' time format, hh:mm:ss. Prec ignored
  235. Global Const TM_HM = 2                  ' time format, hh:mm
  236. Global Const TM_MS = 4
  237.  
  238. ' **********************************************************************
  239. '  Intercept flags for auto axes.
  240.  
  241. Global Const INTF_ZERO = 0           '  use 0 for intercepts
  242. Global Const INTF_MIN = 1            '  minimal values for both axes
  243. Global Const INTF_MAX = 2            '  maximal values for both axes
  244. Global Const INTF_MINMAX = 3         '  min Y intercept for axis X, max for Y
  245. Global Const INTF_MAXMIN = 4         '  max for X, min for Y
  246.  
  247. ' **********************************************************************
  248. '  Symbols (markers) types:
  249.  
  250. Global Const MK_NONE = 0
  251. Global Const MK_X = 1
  252. Global Const MK_UPTRIANGLE = 2
  253. Global Const MK_DOWNTRIANGLE = 3
  254. Global Const MK_BOX = 4
  255. Global Const MK_PLUS = 5
  256. Global Const MK_ASTERISK = 6
  257. Global Const MK_DIAMOND = 7
  258. Global Const MK_CIRCLE = 8
  259. Global Const MK_DOT = 9
  260.  
  261. ' *******************************************************************
  262. '  Marker and bar styles
  263.  
  264. Global Const MKS_FILLED = 0
  265. Global Const MKS_EMPTY = 1
  266. Global Const MKS_CDOT = 2
  267.  
  268. Global Const BAR_FULL = 0
  269. Global Const BAR_HOLLOW = 1
  270. Global Const BAR_BORDER = 2
  271.  
  272. ' **********************************************************************
  273. '  Autoscaling parameters:
  274.  
  275. Global Const AS_ROUNDCLOSE = 1
  276. Global Const AS_ROUNDFAR = 2
  277.  
  278. ' ********************************************************************
  279. '  DSP constants (windows types)
  280.  
  281. Global Const DSPWIN_RECTANG = 0
  282. Global Const DSPWIN_PARZEN = 1
  283. Global Const DSPWIN_HANNING = 2
  284. Global Const DSPWIN_WELCH = 3
  285. Global Const DSPWIN_HAMMING = 4
  286. Global Const DSPWIN_EXACTB = 5
  287.  
  288. ' *************************************************************************
  289. '  orientation constants
  290.  
  291. Global Const OR_VERT = 0
  292. Global Const OR_HORZ = 1
  293.  
  294.  
  295. '***************************************************************************/
  296. ' raised rectangle constants
  297. Global Const RC_FLAT = 0          ' regular
  298. Global Const RC_HIGH = 1
  299. Global Const RC_DEEP = 2
  300. Global Const RC_LOW = 3
  301. Global Const RC_SHALLOW = 4
  302. Global Const RC_3DBORDER = 5
  303.  
  304.  
  305. '***************************************************************************/
  306. '  Metafile types
  307.  
  308. Global Const MF_WIN = 0     ' Old Windows metafile
  309. Global Const MF_PL = 1      ' Placeable Aldus metafile
  310. Global Const MF_ENH = 2     ' New enhanced Windows metafile
  311.  
  312.  
  313. Global Const HS_HORIZONTAL = 0
  314. Global Const HS_VERTICAL = 1
  315. Global Const HS_FDIAGONAL = 2
  316. Global Const HS_BDIAGONAL = 3
  317. Global Const HS_CROSS = 4
  318. Global Const HS_DIAGCROSS = 5
  319.  
  320.  
  321.  
  322. Global Const AXU_SEC = 0          ' time units codes for time axes
  323. Global Const AXU_MIN = 1
  324. Global Const AXU_HOUR = 2
  325.  
  326. ' staircase style
  327.  
  328. Global Const NO_STEP = 0
  329. Global Const STEP_START = 1
  330. Global Const STEP_END = 2
  331.  
  332.               ' alarm types
  333. Global Const ALM_OK = 0
  334. Global Const ALM_SETP = 0
  335. Global Const ALM_HIGH = 1
  336. Global Const ALM_LOW = 2
  337. Global Const ALM_HH = 3
  338. Global Const ALM_LL = 4
  339. Global Const ALM_RATE = 5
  340. Global Const ALM_DEV = 6
  341. Global Const ALM_FAIL = 7
  342.  
  343. ' meter subtypes
  344. Global Const GOD_SUBT_NEEDLE = 0         ' needle meter
  345. Global Const GOD_SUBT_PIE = 1            ' pie meter
  346. Global Const GOD_SUBT_ARC = 2            ' arc meter
  347.  
  348. '********************************************************************
  349. ' Direction definitions
  350. '********************************************************************
  351.  
  352. Global Const DYN_LEFT = 0         ' scroll or move from right to left
  353. Global Const DYN_RIGHT = 1
  354. Global Const DYN_UP = 2
  355. Global Const DYN_DOWN = 3
  356.  
  357. '************************************************************************
  358. ' Meter definitions******************************************************
  359. '************************************************************************
  360. ' needle types
  361.  
  362. Global Const NEEDLE_LINE = 0       ' simple line
  363. Global Const NEEDLE_THICK = 1      ' thick lline with circle
  364. Global Const NEEDLE_SHORTF = 2     ' triangle with base at center - filled
  365. Global Const NEEDLE_SHORTH = 3     ' triangle with base at center - hollow
  366. Global Const NEEDLE_LONGF = 4      ' triangle with back plane - filled
  367. Global Const NEEDLE_LONGH = 5      ' triangle with back plane - hollow
  368.  
  369. Global Const MET_TICK_REG = 0
  370. Global Const MET_TICK_THICK = 1
  371. Global Const MET_TICK_TRIAG = 2
  372.  
  373. Global Const MET_NOBORDER = 0
  374. Global Const MET_RECT = 1
  375. Global Const MET_CIRC = 2
  376. Global Const MET_RD_RECT = 3
  377.  
  378. '************************************************************************
  379. ' Dynamic label types ***************************************************
  380. '************************************************************************
  381. Global Const DLB_NUMERIC = 0
  382. Global Const DLB_HMS = 1         ' time format, hh:mm:ss. Prec ignored
  383. Global Const DLB_HM = 2          ' time format, hh:mm
  384. Global Const DLB_MS = 4
  385.  
  386. ' CONTROL STYLES
  387.          ' logic
  388. Global Const BC_STYLE_PUSH = 0              ' like standard push button
  389. Global Const BC_STYLE_ONOFF = 1             ' 2 state
  390. Global Const BC_STYLE_XOR = 2               ' radio button logic
  391. Global Const BC_STYLE_PASSIVE = 3           ' cannot be pressed
  392.          ' appearance
  393. Global Const BC_LOOK_LOW = 0                ' standard pushbutton look
  394. Global Const BC_LOOK_HIGH = 1               ' "deep" pushbutton
  395. Global Const BC_LOOK_RADIO = 2              ' standard radio button
  396. Global Const BC_LOOK_CHECK = 3              ' "deep" check box
  397. Global Const BC_LOOK_LED = 4                ' LED
  398.  
  399. Global Const ST_LINEPLOT = 0
  400. Global Const ST_BARGRAPH = 1
  401. Global Const ST_SCATTERPLOT = 2
  402.  
  403. Global Const X_AXIS1 = 0
  404. Global Const Y_AXIS1 = 1
  405. Global Const X_AXIS2 = 2
  406. Global Const Y_AXIS2 = 3
  407.  
  408. Global Const AXES1 = 0
  409. Global Const AXES2 = 1
  410.  
  411. Global Const TITLE1 = 0
  412. Global Const TITLE2 = 1
  413. Global Const FOOTER = 2
  414.  
  415. Global Const NUMAXES = 4
  416. Global Const NUMTITLES = 3
  417.  
  418. Global Const MINLOGSCALEVALUE = 1E-20
  419.  
  420. Global Const SIMPLE_XY_DATA_TYPE = 0
  421. Global Const GROUP_DATA_TYPE = 1
  422. Global Const PIECHART_DATA_TYPE = 2
  423.  
  424. Global Const SIMPLE_LEGEND = 0
  425. Global Const GROUP_LEGEND = 1
  426.  
  427. Global Const RTMETER_NEEDLE = 0
  428. Global Const RTMETER_ARC = 1
  429. Global Const RTMETER_PIE = 2
  430.  
  431.  
  432. Global Const CROSSHAIR_NONE = 0
  433. Global Const CROSSHAIR_GRAPHAREA = 1
  434. Global Const CROSSHAIR_PLOTAREA = 2
  435. Global Const CROSSHAIR_SMALL = 3
  436.  
  437. Global Const DATACURSOR_DISABLED = 0
  438. Global Const DATACURSOR_LEFTBUTTON = 1
  439. Global Const DATACURSOR_RIGHTBUTTON = 2
  440.  
  441. Global Const SCROLLING_LINE_GRAPH = 0
  442. Global Const SWEEP_GRAPH = 1
  443. Global Const SCROLLING_BAR_GRAPH = 2
  444. Global Const SCROLLING_STACKED_LINE_GRAPH = 3
  445. Global Const SCROLLING_XY_GRAPH = 4
  446. Global Const VARIABLE_SCROLLING_GRAPH = 5
  447.  
  448. Global Const LEGEND_BLACKTEXT = 0
  449. Global Const LEGEND_COLORTEXT = 1
  450.  
  451. Global Const GRIDLINE_UPDATE_TIMER = 0
  452. Global Const GRIDLINE_UPDATE_EVERY = 1
  453. Global Const GRIDLINE_UPDATE_NEVER = 2
  454.  
  455. Global Const ALARMLINE_UPDATE_TIMER = 0
  456. Global Const ALARMLINE_UPDATE_EVERY = 1
  457. Global Const ALARMLINE_UPDATE_NEVER = 2
  458.  
  459.  
  460. Global Const RGB_BLACK = &H0&
  461. Global Const RGB_BLUE = &H800000             'RGB (  0,0,128)
  462. Global Const RGB_GREEN = &H8000&           'RGB (  0,128,  0)
  463. Global Const RGB_CYAN = &H808000           'RGB (  0,128,128)
  464. Global Const RGB_RED = &H80&               'RGB (128,  0,  0)
  465. Global Const RGB_MAGENTA = &H800080        'RGB (128,  0,128)
  466. Global Const RGB_BROWN = &H8080&           'RGB (128,128,  0)
  467. Global Const RGB_LIGHTGRAY = &HC0C0C0      'RGB (192,192,192)
  468. Global Const RGB_GRAY = &H808080           'RGB (128,128,128)
  469. Global Const RGB_LIGHTBLUE = &HFF0000      'RGB (  0,  0,255)
  470. Global Const RGB_LIGHTGREEN = &HFF00&        'RGB (  0,255,  0)
  471. Global Const RGB_LIGHTCYAN = &HFFFF00      'RGB (  0,255,255)
  472. Global Const RGB_LIGHTRED = &HFF&          'RGB (255,  0,  0)
  473. Global Const RGB_LIGHTMAGENTA = &HFF00FF   'RGB (255,  0,255)
  474. Global Const RGB_YELLOW = &HFFFF&          'RGB (255,255,  0)
  475. Global Const RGB_WHITE = &HFFFFFF          'RGB (255,255,255)
  476.                ' for SVGA in 256 colors mode
  477. Global Const RGB_PALEBLUE = &HF0CAA6        'RGB (166,202,240)
  478. Global Const RGB_PALEGREEN = &HC0DCC0      'RGB (192,220,192)
  479. Global Const RGB_MEDGRAY = &HA4A0A0        'RGB (160,160,164)
  480. Global Const RGB_OFFWHITE = &HF0F6FF       'RGB (255,251,240)
  481.  
  482. Global Const FF_DECORATIVE = 80 '  Old English, etc.
  483. Global Const FF_DONTCARE = 0    '  Don't care or don't know.
  484. Global Const FF_MODERN = 48 ' Constant stroke width (serif or sans-serif
  485. Global Const FF_ROMAN = 16  '  Variable stroke width, serifed.
  486. Global Const FF_SCRIPT = 64 '  Cursive, etc.
  487. Global Const FF_SWISS = 32  '  Variable stroke width, sans-serifed.
  488. Global Const GMEM_MOVEABLE = &H2
  489. Global Const GMEM_ZEROINIT = &H40
  490. Global Const GHND = (GMEM_MOVEABLE Or GMEM_ZEROINIT)
  491.  
  492. Global Const LOGPIXELSX = 88    '  Logical pixels/inch in X
  493. Global Const LOGPIXELSY = 90    '  Logical pixels/inch in Y
  494. Global Const PS_DASH = 1    '  -------
  495. Global Const PS_DASHDOT = 3 '  _._._._
  496. Global Const PS_DASHDOTDOT = 4  '  _.._.._
  497. Global Const PS_DOT = 2 '  .......
  498. Global Const PS_INSIDEFRAME = 6
  499. Global Const PS_NULL = 5
  500. Global Const PS_SOLID = 0
  501. 'Text Alignment Constants
  502.  
  503. Global Const TA_LEFT = 0
  504. Global Const TA_RIGHT = 2
  505. Global Const TA_CENTER = 6
  506. Global Const TA_TOP = 0
  507. Global Const TA_BOTTOM = 8
  508.  
  509. Global Const TA_BASELINE = 24
  510.  
  511. ' Basic window types
  512. Global Const WS_OVERLAPPED = &H0
  513. Global Const WS_POPUP = &H80000000
  514. Global Const WS_CHILD = &H40000000
  515.  
  516. ' Clipping styles
  517. Global Const WS_CLIPSIBLINGS = &H4000000
  518. Global Const WS_CLIPCHILDREN = &H2000000
  519.  
  520. ' Generic window states
  521. Global Const WS_VISIBLE = &H10000000
  522. Global Const WS_DISABLED = &H8000000
  523.  
  524. ' Main window states
  525. Global Const WS_MINIMIZE = &H20000000
  526. Global Const WS_MAXIMIZE = &H1000000
  527.  
  528. ' Main window styles
  529. Global Const WS_CAPTION = &HC00000               ' WS_BORDER | WS_DLGFRAME
  530. Global Const WS_BORDER = &H800000
  531. Global Const WS_VSCROLL = &H200000
  532. Global Const WS_HSCROLL = &H100000
  533.  
  534. Global Const WS_SYSMENU = &H80000
  535. Global Const WS_THICKFRAME = &H40000
  536. Global Const WS_MINIMIZEBOX = &H20000
  537. Global Const WS_MAXIMIZEBOX = &H10000
  538.  
  539.  
  540.  
  541.  
  542. Global Const WM_DESTROY = &H2
  543. Global Const SWP_NOMOVE = &H2
  544. Global Const SWP_NOZORDER = &H4
  545.          
  546.  
  547. 'Global Const WM_LBUTTONDOWN = &H201
  548. 'Global Const WM_MBUTTONDOWN = &H207
  549. 'Global Const WM_RBUTTONDOWN = &H204
  550.