home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / help / inhelp / hltest.prg next >
Encoding:
Text File  |  1988-02-26  |  5.3 KB  |  151 lines
  1. * Program..: HLTEST.PRG
  2. * Author...: RAM
  3. * Date.....: 01/26/88  RAM
  4. * Notice...: Copyright (c) 1988, XEC Development, INC., All Rights Reserved.
  5. * Notes....: Test for Making Help Screens
  6.  
  7. clear
  8. external INSTAHLP, HELP
  9. set key 291 to INSTAHLP
  10. set scoreboard off
  11. setcolor("BG+/N, N/R")
  12. text
  13.  
  14.  
  15.  
  16.                       Welcome to the Build Help Demo.
  17.              This demo is designed to show how easy designing help
  18.              can be.  Building help is no longer a burdensome task
  19.              as long as you have the Instant Help System (c) 1988,
  20.              Richard A. Murphy.  In fact, your help screens are
  21.              only keystrokes away!  Remember the good old days ( or
  22.              maybe you're still doing it this way ) when designing
  23.              help meant hours of grueling planing and wishing it 
  24.              could be easier?  Days of making your help programs
  25.              which ended up almost as big as the original project
  26.              ( and most always, a bigger problem )!  Well, not any
  27.              more!  With the Instant Help System (c) you can design
  28.              help screens that look as professional as any that you
  29.              have seen in other applications.  Just a few features
  30.              are:
  31.  
  32. endtext
  33. wait "Press any key to continue..."
  34. clear
  35. text
  36.  
  37.  
  38.       1)  Overlapping help screens or 
  39.       2)  Help screens that appear by themselves.
  40.       3)  Shadows that look as impressive as Professional Write.
  41.       4)  Your own message on the top and bottom of the help screen.
  42.       5)  Your own colors on the top, bottom, in the help, and the box.
  43.       6)  Design your own style of box, or use the double default.
  44.       7)  Ability to toggle between creating help and viewing the
  45.           original screen.
  46.       8)  Nine, yes nine help screens per variable, or
  47.       9)  A default help for the current procedure, or
  48.      10)  Both specific variable help and generic for those in the
  49.           current procedure with no specific help!
  50.      11)  A very small help program with the bulk of the information
  51.           in the DBF, DBT and NTX files named HELP.* which means
  52.           that help is no longer a program whose size needs to be
  53.           worried about!
  54.      12)  Move your help window (while editing) to get the best position.
  55.      13)  Many more features now and being thought of in the future.
  56.  
  57. endtext
  58. wait "Press any key to continue..."
  59. clear
  60. text
  61.  
  62.  
  63.  
  64.  
  65.        During this help demo, you will be placed in an environment
  66.        not unlike that of your user's programs where you would be
  67.        needing to hit F1 for help.  Go ahead and press F1 and view 
  68.        the specific help screens and if you feel like it, press ALT-H
  69.        and change/add/delete the help screens for yourself.  Get a feel
  70.        of the different effects that different boxes and colors can have
  71.        as the shadowed boxes of the second set of variables you will be
  72.        editing within this demo program.
  73.     
  74.        To add this feature to your current programs, simply include the 
  75.        instruction "SET KEY 291 TO INSTAHLP" and link in HELP.OBJ with 
  76.        your program to display the help that you have created!
  77.  
  78. endtext
  79. wait "Press any key to continue..."
  80. clear
  81. text
  82.  
  83.  
  84.  
  85.    If you have any questions/comments/hate mail or whatever, feel free
  86.    to call me at 216/869-6131, or write me at;
  87.  
  88.                              Richard A. Murphy
  89.                              XEC Development, INC.
  90.                              92B Shiawassee Ave.
  91.                              Akron, OH  44313
  92.  
  93.    If you like what you see, please send $25 to the above address to
  94.    register the use of this program.  The source code will be sent for
  95.    an extra $25.  
  96.                              
  97.                              Thanks,
  98.  
  99.                              Richard
  100.  
  101. endtext 
  102. wait "Press any key to finally enter the demo..."
  103.  
  104. ** Finally!  The demo program.
  105.  
  106. clear screen
  107. var1 = 'This is the first variable'
  108. var2 = 'Second variable, Press PgDn when finished for another example.'
  109. @ 1,26  say '-=[ HELP SYSTEM DEMO ]=-'
  110. @ 20,10 say "Press F1 to display the Help Screens, or ALT-H to edit them."
  111. do while .t.
  112.    @  8,10 say 'Input the first variable:  ' get var1
  113.    @ 10,10 say 'Input the second variable: ' get var2
  114.    read
  115.    if lastkey() = 27
  116.       return
  117.    endif
  118.    do HLTEST2
  119.    if lastkey() = 27
  120.       return
  121.    endif
  122. enddo
  123.  
  124. procedure HLTEST2  && Shows shadows on help screens
  125.    setcolor("BG/N")
  126.    clear
  127.    @ 0,0,24,79 box replicate(chr(176), 9)  && This fills the screen with
  128.                           ** an interesting color scheme.
  129.    setcolor("B+/N, N/R")
  130.    var1 = 'This is the first variable'
  131.    var2 = 'Second variable, Press PgDn when finished for another example.'
  132.    @ 1,26  say '-=[ HELP SYSTEM DEMO ]=-'
  133.    @ 20,10 say "Press F1 to display the Help Screens, or ALT-H to edit them."
  134.    do while .t.
  135.       @  8,10 say 'Input the first variable:  ' get var1
  136.       @ 10,10 say 'Input the second variable: ' get var2
  137.       read
  138.       if lastkey() = 27 .or. lastkey() = 3
  139.          exit
  140.       endif
  141.    enddo
  142.    setcolor("BG+/N, N/R")
  143.    clear
  144.    var1 = 'This is the first variable'
  145.    var2 = 'Second variable, Press PgDn when finished for another example.'
  146.    @ 1,26  say '-=[ HELP SYSTEM DEMO ]=-'
  147.    @ 20,10 say "Press F1 to display the Help Screens, or ALT-H to edit them."
  148. return
  149.  
  150. *** EOF: HLTEST.PRG
  151.