home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / DGDEMO.ZIP / TGDEMO.FRM (.txt) < prev    next >
Visual Basic Form  |  1994-01-25  |  8KB  |  215 lines
  1. DemoNav
  2. TrueGrid Pro 2.1 Demo Navigator
  3. wwwwwwwwwwwwwwwwwwwwwp
  4. wwwwwwwwwwwwwp
  5. wwwwww
  6. wwwwwwpfn
  7. `wwwwww
  8. wwwwww
  9. wwwwww
  10. wwwwwww
  11. wwwwwww
  12. wwwwwwwwwwww
  13. wwwwwwwwwwwwp
  14. wwwwwwwwwwwww
  15. f`wwwwwwwwwwwww
  16. `wwwwwwwwwwwwwp
  17. `wwwww
  18. wwwpwp
  19. wwwpww
  20. wwwpw
  21. wwwpwww
  22. wwwpww
  23. wwwwwwww
  24. wwpww
  25. wwwDwwwwwwwwwwwwwwt
  26. Gwwwppwp
  27. wwwppw
  28. ppwwwww
  29. wwwwppw
  30. wwwwwwwwppw
  31. wwwww"wwpp
  32. wwwUwr
  33. 'wpwwwwwwwwu
  34. wwwwwww}
  35. wwwwwwwwwwww
  36. wwwwwwwwwwwwwwwwwwww
  37. Form15<
  38. Browser
  39. TgDemo
  40. MS Sans Serif
  41. TextArea
  42. RTrueDemo Copyright (c) Apex Software Corporation, 1993-1994.  All rights reserved.
  43. MS Sans Serif
  44. TryIt
  45. Try It
  46. Status
  47. Label1
  48. MS Sans Serif
  49. @    Form_LoadN
  50. Form_Resize[
  51. HScroll1_Change
  52. TextArea
  53. Width
  54. ScrollWidth
  55. Height
  56. ScrollHeight
  57. TryIt>
  58. Titlem
  59.     ScrollBar
  60. Rightr
  61. DemoNav
  62. ScaleWidth
  63. ScaleHeightN
  64. OrigFormWidth
  65. WindowStatei
  66.     DEMOCOUNT
  67. ScrollBar_Change
  68. Value
  69. Enabled
  70. DEMOTEXTFILE
  71. OpenDemoText
  72. DT_FH
  73. CloseDemoText
  74. Form_Unload
  75. Cancel(
  76.     directory
  77. FullPath;
  78. CopyDemoTextL
  79. idstring
  80. targetS
  81. Control
  82. GetLine
  83. ltxtd
  84. DT_FNZ
  85. final
  86. Captionf
  87. DemoText
  88. GetDemoText
  89. FileLength
  90. sposM
  91. ourpath
  92. TryIt_Click*
  93.     ForeColor,
  94. BLACKI
  95. Demo1z
  96. DemoInAction
  97. QuitCurrentDemo
  98. Screen
  99. MousePointer
  100.     HOURGLASS
  101. DEFAULT
  102. Demo2
  103. GetDemoForm
  104. DemoForm
  105. Form_KeyDown
  106. KeyCode
  107. Shift
  108. Form_Activate
  109. Browser
  110. IndexEntries{
  111. nlpos
  112. IndexTitle
  113. IndexLevel
  114. IndexLabel
  115. Browser_Click
  116. Browser_Fetchq
  117. Browser_FetchMargins
  118. Split
  119.     InsetLeft
  120. InsetRight
  121. Columns 
  122. ColumnFetchMargins
  123. Browser_RowChangeB
  124. RowIndex|
  125. ColumnWidth^
  126. statusN
  127. Browser_DblClick*
  128. Browser_LostFocus
  129. MarqueeStyle
  130. Browser_GotFocus
  131. GMQ_HIGHROW
  132. GMQ_FOCUSCELL3
  133. ParamFontStyle
  134. GRF_BOLD
  135. SetStatusAttrW
  136. GFS_CURCELL|
  137. GRF_ITALIC
  138.     GRF_ULINE
  139. GMQ_NONE
  140. Browser_FetchAttributes
  141. FgColor
  142. BgColor
  143.     FontStyle
  144. IndexColor
  145. INHERIT_COLOR
  146. ColumnCellAttrs
  147. IndexColors
  148. GFS_BOLD
  149. GREEN
  150. MED_BLUE
  151. RefreshRow
  152. DK_BLUE
  153. GRF_UITALIC
  154.     GRF_UBOLD
  155.  OrigFormWidth keeps track of the original width so we
  156.  don't resize below that.k
  157.  TGDEMO.TXT contains the demo text descriptions for the
  158.  navigator window.
  159. TGDEMO.TXT
  160. Browser_DblClick
  161.  double clicking is the same as using the TryItt
  162.  button.
  163. Browser_Fetch
  164.  Fetch the data for this outline row
  165. Browser_FetchAttributes
  166.  All top level indents are in bold.  Other indents
  167.  are in italic if they don't have a demo associated with
  168.  them, and use the normal grid font if the do have
  169.  a demo associated with them
  170. Browser_FetchMargins
  171.  Set the margin based upon the index level
  172. Browser_GotFocus
  173.  We highlight the entire row when we have focus.
  174. Browser_LostFocus
  175.  When losing focus, we turn off the marquee, which
  176.  causes the current cell SetStatusAttr attribute
  177.  to be used for the cell.S
  178. Browser_RowChange
  179.  Exit any running demo
  180.  Display the new demo information in the text area
  181. Choose a topic...
  182. Ready to run demo...
  183. Form_Load
  184.  Define the newline constant, used throughout.
  185.  Move to the proper directory so that no pathnames
  186.  need to be specified.
  187.  Set up the outline to have one column.  We set
  188.  ColumnFetchMargins so that we can control the margins,t
  189.  and set the ColumnCellAttrs so that FetchAttributes
  190.  will be called to query attributes as cells are
  191.  displayed.l
  192.  These lines assure that the current cell is underlinedt
  193.  whenever we lose focus.
  194.  Read in the complete demo text, then display thee
  195.  intro pagee
  196.  Make the "Intro" frame the first and position to row 1.
  197. Intro
  198. Form_Resize
  199.  When resizing the form, move all of the controlse
  200.  to a pleasing position and resize the text display
  201.  area.
  202. GetDemoText
  203.  Read in TGDEMO.TXT and fill the DemoText variable
  204.  with the complete navigator text.
  205.  Build the index
  206.  Set up the color arraye
  207. TryIt_Click
  208.  If the caption is "Done" then we are quitting a
  209.  demo.
  210.  Otherwise, we're starting a demo.  Show the demo form,
  211.  then copy the "demo executing" text to the displayo
  212.  area and make it BLUE so the user can easilyi
  213.  tell what mode they are in.
  214. Running...
  215.