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.PRX < prev    next >
Text File  |  1993-03-01  |  43KB  |  944 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. *                                                                             *
  33. *  Win_Init: Initialisieren des Hauptmenüs, folgende Parameter müssen mit-    *
  34. *            gegeben werden:                                                  *
  35. *                                                                             *
  36. *  Menüzeile         Beispiel hier: 'Datei, Programme, Optionen, Hilfe'       *
  37. *  Anzahl Einträge   Beispiel hier: 4  (1. Datei, ...  4. Hilfe)              *
  38. *  Reihe             Beispiel hier: 2  (Menüzeile in der 2. Bildschirmzeile)  *
  39. *  Spalte            Beispiel hier: 1  (Menüzeile fängt in Spalte 1 an)       *
  40. *  Leerzeichen       Beispiel hier: 3  (3 Leerzeichen zwischen den Einträgen) *
  41. *  PullDown Einträge Beispiel hier: 10 (maximale Anzahl PullDown-Einträge)    *
  42. *  PopUpMenü Eintr.  Beispiel hier: 10 (maximale Anzahl PopUpMenü-Einträge)   *
  43. *                                                                             *
  44. *******************************************************************************
  45.  
  46. statfile = 'CLPTEST.STA'     && Datei mit den Statusmeldungen für PullDown-Menü
  47. pdshadow = .T.     && Auch Pull-Down-Menüs mit Schatten hinterlegen
  48. DEBUG = .T.        && Debug ein!  Wenn ausgeschaltet, Shareware-Hinweise
  49. box_hlp = 0        && Kein Rahmen bei Hilfeschirmen, Default = 1 (einfach)
  50. box_msg = 3        && gemischter Rahmen bei Meldungen, Default = 2 (doppelt)
  51. *******************************************************************************
  52. *                                                                             *
  53. *  Folgende Rahmen stehen zur Verfügung:                                      *
  54. *                                                                             *
  55. *      0 :  kein Rahmen                                                       *
  56. *      1 :  einfacher Rahmen   └───┘                                          *
  57. *      2 :  doppelter Rahmen   ╚═══╝                                          *
  58. *      3 :  gemischter Rahmen  ╙───╜                                          *
  59. *      4 :  gemischter Rahmen  ╘═══╛                                          *
  60. *                                                                             *
  61. *  Der Rahmen anderer PopUp-Fenster (Default = 2) kann wie folgt geändert     *
  62. *  werden:  'box_pop = 0 ... 4'                                               *
  63. *                                                                             *
  64. *  Folgende Variablen werden in Win_Init gesetzt und können hier beliebig     *
  65. *  geändert werden:                                                           *
  66. *                                                                             *
  67. *    Variablenname   Defaultwert          Bedeutung                           *
  68. *   ──────────────────────────────────────────────────────────────────────    *
  69. *    win_color       'W/B'                Farbe des Bildschirms               *
  70. *    titl_color      'W+/B'               Farbe der Überschrift               *
  71. *    sys_color       'N/W'                Farbe der Menüzeile                 *
  72. *    ssys_color      'W+/W'               Farbe des ersten Buchstabens        *
  73. *    hsys_color      'N/BG'               Farbe des Balkens                   *
  74. *    pull_color      'N/W,W+/B,,,B/W'     Farbe der PullDownMenüs             *
  75. *    high_color      'N/W,N/BG,,,N/BG'    Farbe der PopUp Screens             *
  76. *    pop_color       'N/BG,W+/B,,,B/BG'   Farbe der PopUp Menüs               *
  77. *    pbut_color      'W+/B'               Farbe der Push-Buttons              *
  78. *    msg_color       'N/R,W+/R'           Farbe der PopUp Fehlermeldungen     *
  79. *    help_color      'GR+/RB'             Farbe der Hilfeschirme              *
  80. *    shad_color      'N/N'                Farbe des Schattens                 *
  81. *    quit_color      'W/N'                Farbe nach Verlassen der Anwendung  *
  82. *    bye_color       'W+/B'               Farbe der Abschiedszeile            *
  83. *                                                                             *
  84. *    statfile        ''                   Datei mit den Hinweismeldungen      *
  85. *                                                                             *
  86. *    box_hlp         1                    Rahmen der Hilfeschirme             *
  87. *    box_msg         2                    Rahmen der Fehlermeldungen          *
  88. *    box_pop         2                    Rahmen anderer PopUp-Fenster        *
  89. *                                                                             *
  90. *    fkeys           ' F1=Hilfe...'       Funktionstastenzeile (Zeile 23)     *
  91. *                                                                             *
  92. *    quit_msg        ' Programm verlassen?  J/N'    Meldung bei Programmende  *
  93. *    canc_msg        ' Abbruch bestätigen:  J/N'    Meldung bei Abbruch       *
  94. *                                                                             *
  95. *    msgbeep         .T.                  Piepston bei Meldungen     ja/nein  *
  96. *    shadows         .T.                  Schatten unter PopUp's     ja/nein  *
  97. *    pdshadow        .F.                  Schatten unter PullDown's  ja/nein  *
  98. *    ctrl_ret        .F.                  Push-Button mit Ctrl+Enter ja/nein  *
  99. *    getloop         .F.                  Nach letztem GET zum 1.    ja/nein  *
  100. *    DEBUG           .F.                  Debug (Tracking)           ja/nein  *
  101. *                                                                             *
  102. *******************************************************************************
  103.  
  104. *******************************************************************************
  105. * Setzen eigener Variablen                                                    *
  106. *******************************************************************************
  107. mjn1 = '√'         && In dieser Beispiel-Anwendung wird damit gesteuert, ob
  108.                    && eine Dateneingabe bestätigt werden muß oder nicht.
  109. mjn2 = '√'         && Dieses Kennzeichen steuert den Piepston bei Meldungen
  110. mjn3 = '√'         && Dieses Kennzeichen steuert den Schatten unter PopUp's
  111. mjn4 = '√'         && Dieses Kennzeichen steuert den Schatten unter PullDown's
  112. mjn5 = '√'         && Dieses Kennzeichen definiert die Push-Button-Steuerung
  113.  
  114. mmsgcol = LEFT(msg_color,AT(',',msg_color))+pbut_color
  115.  
  116. mdir   = Curdir()
  117. mdir   = IF(EMPTY(mdir),'',Alltrim(mdir)+'\')
  118. mdrive = get_drive(mdir)
  119.  
  120. *******************************************************************************
  121. * Start des Hauptprogramms                                                    *
  122. *******************************************************************************
  123. anw_id   = 'CLP'
  124. anw_ver  = '1.41'
  125. anw_name = 'Demo der Clipper-Funktionen'
  126. anw_cr   = '(C) Copyright Erich Schuster 1993'
  127.  
  128. DO win_create WITH anw_id, anw_ver, anw_name
  129. **********************************************************