home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l196 / 3.ddi / CHRTDEMO.BI$ / CHRTDEMO.bin
Encoding:
Text File  |  1990-06-24  |  4.2 KB  |  107 lines
  1. '       CHRTDEMO.BI - Include file for chart demo program (CHRTDEMO.BAS)
  2. '
  3. '               Copyright (C) 1989-1990, Microsoft Corporation
  4. '
  5.  
  6.  
  7. '$INCLUDE: 'chrtb.bi'
  8. '$INCLUDE: 'fontb.bi'
  9. '$INCLUDE: 'general.bi'
  10. '$INCLUDE: 'mouse.bi'
  11. '$INCLUDE: 'menu.bi'
  12. '$INCLUDE: 'window.bi'
  13.  
  14. CONST cMaxValues = 15                       'Maximum values
  15. CONST cMaxSets = 15                         'Maximum sets
  16. CONST cMaxSeries = 15                       'Maximum data series
  17.  
  18. CONST CANCEL = 3                            'status flags
  19. CONST OK = 1
  20.  
  21. CONST FILETITLE = 1                         'menu bar locations
  22. CONST VIEWTITLE = 2
  23. CONST GALLERYTITLE = 3
  24. CONST CHARTTITLE = 4
  25. CONST TITLETITLE = 5
  26. CONST OPTIONSTITLE = 6
  27.  
  28. CONST MAXCOLORS = 16                        ' max colors in color lists
  29. CONST MAXSTYLES = 15                        ' max border styles
  30. CONST MAXFONTS = 16                         ' max fonts
  31.  
  32. ' Data structure for creating a scrollable list box within any window.
  33. TYPE ListBox
  34.     boxLen                      AS INTEGER
  35.     boxWid                      AS INTEGER
  36.     maxLen                      AS INTEGER
  37.     listLen                     AS INTEGER
  38.     currPos                     AS INTEGER
  39.     currTop                     AS INTEGER
  40.     scrollButton                AS INTEGER
  41.     areaButton                  AS INTEGER
  42.     topRow                      AS INTEGER
  43.     botRow                      AS INTEGER
  44.     leftCol                     AS INTEGER
  45.     rightCol                    AS INTEGER
  46.     listPos                     AS INTEGER
  47. END TYPE
  48.  
  49. 'subs and funcs that are used across modules
  50. DECLARE FUNCTION Min% (num1%, num2%)
  51. DECLARE FUNCTION SaveChart% (FileName$, saveAsFlag%)
  52.  
  53. DECLARE SUB InitChart ()
  54. DECLARE SUB ViewData ()
  55. DECLARE SUB GetBestMode (screenMode%)
  56. DECLARE SUB ClearData ()
  57. DECLARE SUB DrawList (text$(), tbox AS ANY, func%)
  58. DECLARE SUB HandleMenuEvent ()
  59. DECLARE SUB InitAll ()
  60. DECLARE SUB ChangeAxis (title$, axis AS ANY)
  61. DECLARE SUB ChangeLegend ()
  62. DECLARE SUB ChangeWindow (handle%, title$, win AS ANY)
  63. DECLARE SUB ChangeTitle (handle%, wTitle$, title AS ANY, topRow%, leftCol%)
  64. DECLARE SUB ChangeChartType (ctype%)
  65. DECLARE SUB ScrollList (text$(), tbox AS ANY, currButton%, status%, func%, winRow%, winCol%)
  66. DECLARE SUB CreateListBox (text$(), tbox AS ANY, func%)
  67. DECLARE SUB SetAtt (change%, source%)
  68. DECLARE SUB ClearFonts ()
  69. DECLARE SUB InitColors ()
  70. DECLARE SUB PrintError (text$)
  71.  
  72. 'necessary declarations for using toolboxes
  73. COMMON SHARED /uitools/ GloMenu           AS MenuMiscType
  74. COMMON SHARED /uitools/ GloTitle()        AS MenuTitleType
  75. COMMON SHARED /uitools/ GloItem()         AS MenuItemType
  76. COMMON SHARED /uitools/ GloWindow()       AS windowType
  77. COMMON SHARED /uitools/ GloButton()       AS buttonType
  78. COMMON SHARED /uitools/ GloEdit()         AS EditFieldType
  79. COMMON SHARED /uitools/ GloStorage        AS WindowStorageType
  80. COMMON SHARED /uitools/ GloWindowStack()  AS INTEGER
  81. COMMON SHARED /uitools/ GloBuffer$()
  82.  
  83. ' chart environment variables
  84. COMMON SHARED /chrtdemo/ CEnv AS ChartEnvironment   'Main
  85.  
  86. COMMON SHARED /chrtdemo/ chartChanged AS INTEGER    'change flag
  87. COMMON SHARED /chrtdemo/ setNum AS INTEGER          'number of data sets
  88.  
  89. COMMON SHARED /chrtdemo/ colors$()                  'color list
  90. COMMON SHARED /chrtdemo/ numColors AS INTEGER       'number of colors
  91. COMMON SHARED /chrtdemo/ styles$()                  'border sytles
  92. COMMON SHARED /chrtdemo/ fonts$()                   'loaded fonts
  93. COMMON SHARED /chrtdemo/ numFonts AS INTEGER        'number of fonts
  94.  
  95. ' chart data variables
  96. COMMON /chrtdemo/ catLen AS INTEGER                 '# of categories
  97. COMMON /chrtdemo/ Cat$()                            'category names
  98. COMMON /chrtdemo/ setName$()                        'set names
  99. COMMON /chrtdemo/ setLen()   AS INTEGER             '# values per set
  100. COMMON /chrtdemo/ setVal!()                         ' actual values
  101. COMMON /chrtdemo/ screenMode AS INTEGER             'screen mode
  102. COMMON /chrtdemo/ mode$()                           'list of modes
  103. COMMON /chrtdemo/ numModes AS INTEGER
  104. COMMON /chrtdemo/ finished  AS INTEGER
  105. COMMON /chrtdemo/ saveFile$                         'chart file
  106.  
  107.