home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / dialogic.zip / TEMPLATE.DOC < prev   
Encoding:
Text File  |  1990-01-31  |  7.1 KB  |  161 lines
  1. '
  2. 'This file is meant to be loaded as a document in the QuickBASIC 4.x
  3. '  editor.  This file contains template definitions for each dialog box
  4. '  element.
  5. '
  6. 'Each DBE is clearly marked.  Please note that the subscripts remain
  7. '  incomplete except for the dialog box window.  This was done so
  8. '  that the parentheses can be filled later with numerical values
  9. '  after they have been 'pasted' into your dialog box include file.
  10. '  Further descriptions are available in Appendix A of the DiaLogic
  11. '  manual.
  12.  
  13. '=============================================
  14. 'The template end code
  15. '  (must be used at the end of every template)
  16. '=============================================
  17.  
  18. DB(Level%,  ).Code = 0               'Dialog box template end code
  19.  
  20. '================================
  21. 'The Window
  22. '  (must have a subscript of one)
  23. '================================
  24.  
  25. DB(Level%, 1).Code = 1               'Window code
  26. DB(Level%, 1).Y =                    'Y coordinate of upper-left corner
  27. DB(Level%, 1).X =                    'X coordinate of upper-left corner
  28. DB(Level%, 1).Height =               'Height
  29. DB(Level%, 1).Wdth =                 'Width
  30. DB(Level%, 1).BorderType =           'Border type  (- gives exploding window)
  31. DB(Level%, 1).PrimaryColor =         'Border color (- gives shadowed window)
  32. DB(Level%, 1).WindowColor =          'Window color (- gives horiz bottom line)
  33. DB(Level%, 1).Text =                 'Window title
  34. DB(Level%, 1).TextColor =            'Window title color
  35. DB(Level%, 1).SecondaryColor =       'Horizontal line color (if present)
  36. DB(Level%, 1).NumberOne =            'Screen rows (25 lines assumed)
  37.  
  38. '================================
  39. 'Text Box
  40. '================================
  41.  
  42. DB(Level%, ).Code = 2                'Text Box code
  43. DB(Level%, ).Y =                     'Y coordinate of upper-left corner
  44. DB(Level%, ).X =                     'X coordinate of upper-left corner
  45. DB(Level%, ).Wdth =                  'Width
  46. DB(Level%, ).BorderType =            'Border type
  47. DB(Level%, ).PrimaryColor =          'Border color
  48. DB(Level%, ).WindowColor =           'Window color
  49. DB(Level%, ).SelectedColor =         'Selected window color
  50. DB(Level%, ).TextY =                 'Y for text
  51. DB(Level%, ).TextX =                 'X for text
  52. DB(Level%, ).Text =                  'Label text
  53. DB(Level%, ).TextColor =             'Label text color
  54. DB(Level%, ).KeyColor =              'Key color
  55. DB(Level%, ).TextString =            'Text box default string
  56. DB(Level%, ).ItemLength =            'Maximum entry length
  57. DB(Level%, ).NumberOne =             'Text default string length
  58.  
  59.  
  60. '================================
  61. 'List Box
  62. '================================
  63.  
  64. DB(Level%, ).Code = 3                'List Box Code
  65. DB(Level%, ).Y =                     'Y coordinate of upper-left corner
  66. DB(Level%, ).X =                     'X coordinate of upper-left corner
  67. DB(Level%, ).Height =                'Height of list box
  68. DB(Level%, ).Wdth =                  'Length of list box
  69. DB(Level%, ).WindowColor =           'Window color (-1 for no selection)
  70. DB(Level%, ).PrimaryColor =          'Primary color of list box items
  71. DB(Level%, ).SecondaryColor =        'Secondary color
  72. DB(Level%, ).SelectedColor =         'Selected color
  73. DB(Level%, ).StarColor =             'Scroll color
  74. DB(Level%, ).ItemLength =            'Item length
  75. DB(Level%, ).KeyColor =              'Item space
  76. DB(Level%, ).BorderType =            'Scroll bar
  77. DB(Level%, ).Link =                  'Link code
  78. DB(Level%, ).TextY =                 'Sentence-link Y coordinate
  79. DB(Level%, ).TextX =                 'Sentence-link X coordinate
  80. DB(Level%, ).TextColor =             'Link color
  81. DB(Level%, ).NumberOne =             'LB() start element
  82. DB(Level%, ).NumberTwo =             'LB() end element
  83. DB(Level%, ).Default   =             'If non-zero,  the list box will select
  84.                                      '   the LB() item specified here
  85.  
  86. '================================
  87. 'Check Box
  88. '================================
  89.  
  90. DB(Level%, ).Code = 4                'Code for Check Box
  91. DB(Level%, ).Y =                     'Y coordinate of left bracket
  92. DB(Level%, ).X =                     'X coordinate of left bracket
  93. DB(Level%, ).PrimaryColor =          'Box color
  94. DB(Level%, ).SelectedColor =         'Selected color
  95. DB(Level%, ).TextY =                 'Label text Y coordinate
  96. DB(Level%, ).TextX =                 'Label text X coordinate
  97. DB(Level%, ).Text =                  'Label text
  98. DB(Level%, ).TextColor =             'Text color
  99. DB(Level%, ).KeyColor =              'Key color
  100. DB(Level%, ).StarColor =             'Star Color
  101. DB(Level%, ).Default =               'Default
  102.  
  103.  
  104. '================================
  105. 'Option Buttons
  106. '================================
  107.  
  108. DB(Level%, ).Code = 5                'Code for Option Buttons
  109. DB(Level%, ).NumberOne =             'Number of option buttons in this cluster
  110. DB(Level%, ).Default =               'Default option button
  111. DB(Level%, ).TextString =            'Location string (delimiter = ,)
  112. DB(Level%, ).WindowColor =           'Button color (of parentheses)
  113. DB(Level%, ).SelectedColor =         'Selected color (of dot)
  114. DB(Level%, ).StarColor =             'Star color
  115.  
  116.  
  117. '================================
  118. 'Label/Smart Label
  119. '================================
  120.  
  121. DB(Level%, ).Code = 6                'Code for Label/Smart Label
  122. DB(Level%, ).Y =                     'Y coordinate
  123. DB(Level%, ).X =                     'X coordinate
  124. DB(Level%, ).Text =                  'Label text
  125. DB(Level%, ).TextColor =             'Label color
  126. DB(Level%, ).KeyColor =              'Key color
  127. DB(Level%, ).Link =                  'Sequence link number
  128. DB(Level%, ).NumberOne =             'Option button smart label:
  129.                                      '--> Button number in cluster
  130.  
  131.  
  132. '================================
  133. 'Command Button
  134. '================================
  135.  
  136. DB(Level%, ).Code = 7                'Code for Command Button
  137. DB(Level%, ).Y =                     'Y coordinate of upper-left corner
  138. DB(Level%, ).X =                     'X coordinate of upper-left corner
  139. DB(Level%, ).Text =                  'Command button text
  140. DB(Level%, ).PrimaryColor =          'Border color
  141. DB(Level%, ).SecondaryColor =        'Angle bracket active color
  142. DB(Level%, ).WindowColor =           'Button color
  143. DB(Level%, ).SelectedColor =         'Selected color
  144. DB(Level%, ).KeyColor =              'Key color
  145. DB(Level%, ).Default =               '-1 if default command;  else zero
  146. DB(Level%, ).TextString =            'Ky$ command button key
  147.  
  148. '================================
  149. 'Group Box
  150. '================================
  151.  
  152. DB(Level%, ).Code = 8                'Code for Group Box
  153. DB(Level%, ).Y =                     'Y coordinate of upper-left corner
  154. DB(Level%, ).X =                     'x coordinate of upper-left corner
  155. DB(Level%, ).Height =                'Height
  156. DB(Level%, ).Wdth =                  'Width
  157. DB(Level%, ).BorderType =            'Border type
  158. DB(Level%, ).SecondaryColor =        'Border color
  159. DB(Level%, ).Text =                  'Centered text
  160. DB(Level%, ).TextColor =             'Centered text color
  161.