home *** CD-ROM | disk | FTP | other *** search
/ Best of German Only 1 / romside_best_of_german_only_1.iso / wissen / dos / clp / entpack.exe / !CLP141.EXE / CLPTEST.PRG < prev    next >
Text File  |  1993-03-01  |  21KB  |  613 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: CLPTEST.PRG
  4. *:
  5. *:         System: ClpTest 1.41
  6. *:         Author: E. Schuster
  7. *:      Copyright (c) 1993, E. Schuster
  8. *:  Last modified: 02/18/93      1:01
  9. *:
  10. *:  Procs & Fncts: PD_SETUP
  11. *:               : POP_SETUP
  12. *:               : MY_FUNC()
  13. *:               : POP101()
  14. *:               : POP105()
  15. *:               : POP203()
  16. *:               : POP205()
  17. *:               : USERHELP
  18. *:
  19. *:          Calls: WIN_INIT       (procedure in CLPWINDW.PRG)
  20. *:               : GET_DRIVE()    (function  in CLPFUNC2.PRG)
  21. *:               : WIN_CREATE     (procedure in CLPWINDW.PRG)
  22. *:               : MIDDLE()       (function  in CLPFUNC1.PRG)
  23. *:               : WIN_MAIN       (procedure in CLPWINDW.PRG)
  24. *:               : WIN_CLOSE      (procedure in CLPWINDW.PRG)
  25. *:
  26. *:      Documented 02/18/93 at 01:32                SNAP!  version 4.02
  27. *:*********************************************************************
  28.  
  29. msys = 'Datei, Programme, Optionen, Hilfe'
  30. DO win_init WITH msys, 4, 2, 1, 3, 10, 10
  31.  
  32. statfile = 'CLPTEST.STA'
  33. pdshadow = .T.
  34. DEBUG = .T.
  35. box_hlp = 0
  36. box_msg = 3
  37.  
  38. *******************************************************************************
  39. * Setzen eigener Variablen                                                    *
  40. *******************************************************************************
  41. mjn1 = '√'
  42. mjn2 = '√'
  43. mjn3 = '√'
  44. mjn4 = '√'
  45. mjn5 = '√'
  46.  
  47. mmsgcol = LEFT(msg_color,AT(',',msg_color))+pbut_color
  48.  
  49. mdir   = Curdir()
  50. mdir   = IF(EMPTY(mdir),'',Alltrim(mdir)+'\')
  51. mdrive = get_drive(mdir)
  52.  
  53. *******************************************************************************
  54. * Start des Hauptprogramms                                                    *
  55. *******************************************************************************
  56. anw_id   = 'CLP'
  57. anw_ver  = '1.41'
  58. anw_name = 'Demo der Clipper-Funktionen'
  59. anw_cr   = '(C) Copyright Erich Schuster 1993'
  60.  
  61. DO win_create WITH anw_id, anw_ver, anw_name
  62.  
  63. @ 4, 0 SAY middle('Das ist eine Demonstration der Clipper-Funktionen',80)
  64. @ 5, 0 SAY middle('- CLPWINDW mit CLPCOLOR -',80)
  65. @ 6, 0 SAY middle('- CLPFILES mit CLPFUNC1 und CLPFUNC2 -',80)
  66. @ 7, 0 SAY middle('- CLPNUMTO -',80)
  67.  
  68. DO win_main WITH 'my_func'
  69.  
  70. DO win_close WITH 'CLPTEST '+anw_ver+' - '+anw_name+'   '+anw_cr
  71.  
  72. *!*********************************************************************
  73. *!
  74. *!      Procedure: PD_SETUP
  75. *!
  76. *!      Called by: PD_MENU()      (function  in CLPWINDW.PRG)
  77. *!               : PD_MENU2()     (function  in CLPWINDW.PRG)
  78. *!
  79. *!*********************************************************************
  80. PROCEDURE pd_setup
  81. PARAMETER menuid
  82.  
  83. DO CASE
  84.  
  85.    &&------------------------------------------------------------------------&&
  86.    && PULL-DOWN-MENU 1
  87.    &&------------------------------------------------------------------------&&
  88. CASE menuid = 1
  89.    pull_down[01] = ' Pop-Up Screen 101 ...  F5 '
  90.    pull_down[02] = ' Pop-Up Menu   102 ...  F6 '
  91.    pull_down[03] = '───────────────────────────'
  92.    pd_valid[03]  = .F.
  93.    pull_down[04] = ' Pop-Up Screen 104 ...     '
  94.    pull_down[05] = ' Pop-Up Screen 105 ...     '
  95.    pull_down[06] = '───────────────────────────'
  96.    pd_valid[06]  = .F.
  97.    pull_down[07] = ' Programm beenden       F3 '
  98.  
  99.    pd_hilfe[01] = 1
  100.    pd_hilfe[02] = 2
  101.    pd_hilfe[04] = 3
  102.    pd_hilfe[05] = 4
  103.    pd_hilfe[07] = 5
  104.  
  105.    &&------------------------------------------------------------------------&&
  106.    && PULL-DOWN-MENU 2
  107.    &&------------------------------------------------------------------------&&
  108. CASE menuid = 2
  109.    pull_down[01] = ' Verzeichnis...   Strg+V '
  110.    pull_down[02] = '─────────────────────────'
  111.    pd_valid[02]  = .F.
  112.    pull_down[03] = ' Zahlen umsetzen...      '
  113.    pull_down[04] = '─────────────────────────'
  114.    pd_valid[04]  = .F.
  115.    pull_down[05] = ' Datumsroutinen...       '
  116.    pull_down[06] = '─────────────────────────'
  117.    pd_valid[06]  = .F.
  118.    pull_down[07] = ' Dateien anschauen       '
  119.  
  120.    pd_hilfe[01] = 6
  121.    pd_hilfe[03] = 7
  122.    pd_hilfe[05] = 8
  123.    pd_hilfe[07] = 9
  124.  
  125.    &&------------------------------------------------------------------------&&
  126.    && PULL-DOWN-MENU 3
  127.    &&------------------------------------------------------------------------&&
  128. CASE menuid = 3
  129.    pull_down[01] = ' Farben ändern...  Strg+F '
  130.    pull_down[02] = ' weitere Optionen        '
  131.    pull_down[03] = '──────────────────────────'
  132.    pd_valid[03]  = .F.
  133.    pull_down[04] = ' Optionen sichern         '
  134.  
  135.    pd_hilfe[01] = 10
  136.    pd_hilfe[02] = 11
  137.    pd_hilfe[04] = 12
  138.  
  139.    &&------------------------------------------------------------------------&&
  140.    && PULL-DOWN-MENU 302
  141.    &&------------------------------------------------------------------------&&
  142. CASE menuid = 302
  143.    pull_down[01] = mjn1+' Automatischer Cursorsprung  '
  144.    pull_down[02] = mjn2+' Warnton bei den Meldungen   '
  145.    pull_down[03] = mjn3+' Schatten bei PopUp-Fenstern '
  146.    pull_down[04] = mjn4+' Schatten bei PullDown-Menüs '
  147.    pull_down[05] = mjn5+' Push-Button mit Eingabetaste'
  148.  
  149.    pd_hilfe[01] = 13
  150.    pd_hilfe[02] = 14
  151.    pd_hilfe[03] = 15
  152.    pd_hilfe[04] = 16
  153.    pd_hilfe[05] = 17
  154.  
  155.    &&------------------------------------------------------------------------&&
  156.    && PULL-DOWN-MENU 4
  157.    &&------------------------------------------------------------------------&&
  158. CASE menuid = 4
  159.    pull_down[01] = ' Allgemeine Hilfe...  '
  160.    pull_down[02] = ' Hilfe für Tasten...  '
  161.    pull_down[03] = '──────────────────────'
  162.    pd_valid[03]  = .F.
  163.    pull_down[04] = ' Über "'+anw_id+' '+anw_ver+'"... '
  164.    pull_down[05] = '──────────────────────'
  165.    pd_valid[05]  = .F.
  166.    pull_down[06] = ' Shareware-Hinweis... '
  167.  
  168.    pd_hilfe[01] = 18
  169.    pd_hilfe[02] = 19
  170.    pd_hilfe[04] = 20
  171.    pd_hilfe[06] = 21
  172.  
  173. ENDCASE
  174. RETURN
  175.  
  176. *!*********************************************************************
  177. *!
  178. *!      Procedure: POP_SETUP
  179. *!
  180. *!      Called by: POP_SCREEN()   (function  in CLPWINDW.PRG)
  181. *!               : POP_MENU()     (function  in CLPWINDW.PRG)
  182. *!
  183. *!*********************************************************************
  184. PROCEDURE  pop_setup
  185. PARAMETERS menuid
  186.  
  187. DO CASE
  188.  
  189.    &&------------------------------------------------------------------------&&
  190.    && POP_UP_SCREEN 101
  191.    &&------------------------------------------------------------------------&&
  192. CASE menuid = 101
  193.    pop_title  = 'Pop-Up Screen 101'
  194.    pop_bot1   = ''
  195.    pop_bot2   = ' <Sichern>  <Abbrechen> '
  196.    pbut_activ = 1
  197.  
  198.    &&------------------------------------------------------------------------&&
  199.    && POP_UP_SCREEN 102
  200.    &&------------------------------------------------------------------------&&
  201. CASE menuid = 102
  202.    pop_opt[1] = ' 1. Das ist ein Beispiel '
  203.    pop_opt[2] = ' 2. für ein PopUp Menü!  '
  204.    pop_opt[3] = '─────────────────────────'
  205.    pop_valid[3] = .F.
  206.    pop_opt[4] = ' 4. Datei Drucken        '
  207.    pop_opt[5] = '─────────────────────────'
  208.    pop_valid[5] = .F.
  209.    pop_bot1   = ''
  210.    pop_bot2   = ' <OK>  <Abbrechen> '
  211.    pbut_activ = 1
  212.  
  213.    &&------------------------------------------------------------------------&&
  214.    && POP_UP_SCREEN 105
  215.    &&------------------------------------------------------------------------&&
  216. CASE menuid = 105
  217.    pop_title  = 'Pop-Up Screen 105  (über den ganzen Bildschirm)'
  218.    pop_bot1   = ''
  219.    pop_bot2   = ' <OK> '
  220.    pbut_activ = 1
  221.  
  222.    &&------------------------------------------------------------------------&&
  223.    && POP_UP_SCREEN 203
  224.    &&------------------------------------------------------------------------&&
  225. CASE menuid = 203
  226.    pop_title  = 'Zahlen umsetzen'
  227.    pop_bot1   = ''
  228.    pop_bot2   = ' <Deutsche Form>  <Amerikanisch>  <In Worten>  <Abbrechen> '
  229.    pbut_activ = 1
  230.  
  231.    &&------------------------------------------------------------------------&&
  232.    && POP_UP_SCREEN 205
  233.    &&------------------------------------------------------------------------&&
  234. CASE menuid = 205
  235.    pop_title  = 'Datumsroutinen'
  236.    pop_bot1   = ''
  237.    pop_bot2   = ' <OK> '
  238.    pbut_activ = 1
  239.  
  240. ENDCASE