home *** CD-ROM | disk | FTP | other *** search
/ Best of German Only 1 / romside_best_of_german_only_1.iso / anwender / zephyr / zephyr4s.2 / BEISPIEL.EXE / lha / MENUEDOC.PRG < prev    next >
Text File  |  1991-01-05  |  4KB  |  122 lines
  1.  
  2. SET TALK OFF
  3. *───────────────────────────────────────────────────────────────────────────────
  4. PUBLIC Zahl
  5. Zahl = 1
  6. Inkey = 0
  7. DEFINE WINDOW Gebrauch FROM 0,0 TO 24,79
  8. ACTIVATE WINDOW Gebrauch
  9. CLEAR
  10. DO WHILE .T.
  11.   IF Inkey = 27 .OR. Zahl < 1 .OR. Zahl > 99
  12.      EXIT
  13.   ENDIF
  14.   IF Zahl = 1
  15.      TEXT
  16.  
  17. ══════════════════════════════════ S. 1 ══════════════════════════════════════
  18.                             DAS ZEILEN-MENÜ (1)
  19. ──────────────────────────────────────────────────────────────────────────────
  20.  Dieses Menü-Beispiel-Programm bildet quasi eine "Schale" für ein
  21.  funktionsfähiges Menü, die Sie selbst je nach Ihren Notwedigkeiten
  22.  "füllen" können.
  23. ──────────────────────────────────────────────────────────────────────────────
  24.  Das Menü-Programm enthält nahezu alle Möglichkeiten, die Sie
  25.  zum Einrichten eines Menüs benötigen:
  26. ──────────────────────────────────────────────────────────────────────────────
  27.  1:
  28.  Mit dem Befehl:
  29.  DEFINE MENU ZeilMenu
  30.  wird das Zeilen-Menü mit Namen «ZeilMenu» installiert.
  31. ──────────────────────────────────────────────────────────────────────────────
  32.  2:
  33.  Mit dem Befehl:
  34.  DEFINE PAD PAD1 OF ZEILMENU PROMPT "   PAD 1   " AT 2,5 MESSAGE "..."
  35.  wird die erste Menü-Option des Zeilenmenüs festgelegt.
  36.  Natürlich kann diese Option auch anders als «PAD1» benannt werden.
  37.  
  38.  
  39.      ENDTEXT
  40.   ENDIF
  41.   IF Zahl = 2
  42.      TEXT
  43.  
  44. ══════════════════════════════════ S. 2 ══════════════════════════════════════
  45.                              DAS ZEILEN-MENÜ (2)
  46. ──────────────────────────────────────────────────────────────────────────────
  47.  
  48.  Nach «PROMPT» können Sie in die Anführungsstriche den Text für Ihre
  49.  eigenen Optionen einsetzen.
  50.  
  51.  Mit «AT n,n» legen Sie die Position der entsprechenden Option (PAD) fest.
  52.  
  53.  Der in «MESSAGE"..." » festgelegte Text erscheint jeweils bei Anwahl der
  54.  entsprechenden Option in der untersten Zeile des Bildschirmes (Zeile 24).
  55. ──────────────────────────────────────────────────────────────────────────────
  56.  3:
  57.  Mit dem Befehl:
  58.  ON SELECTION PAD PAD1 OF ZEILMENU [Befehl] 
  59.  geben Sie an, welche Aktion ausgeführt werden soll, wenn der entsprechende
  60.  Menüpunkt mit RETURN aktiviert wurde.
  61.  Im Beispiel wird mit «ACTIVATE POPUP Pop1» das Popup-Menü «Pop1» aktiviert.
  62.  Es kann aber auch jeder andere Befehl eingesetzt werden z.B.: DO [Programm].
  63.  
  64.  
  65.  
  66.     ENDTEXT
  67.   ENDIF
  68.   IF Zahl = 3
  69.     TEXT
  70.  
  71. ══════════════════════════════════ S.3 ══════════════════════════════════════
  72.                             DAS ZEILEN-MENÜ (3)
  73. ──────────────────────────────────────────────────────────────────────────────
  74.  
  75.  4:
  76.  Es folgen weitere Definitionen von Zeilen-Menü-Optionen. Insgesamt wurde
  77.  das «ZeilMenu» mit 6 PADs versehen. Sie können natürlich auch mehr oder
  78.  weniger definieren. Achten Sie dabei auf Position und Breite der einzelnen
  79.  PADs!
  80.  
  81.  Ein typisches Zeilenmenü einer Anwendung könnte folgendermaßen aussehen:
  82.  ╔═══════════════════════════════════════════════════════════════════════════╗
  83.  ║  Adressen   Auftrag   Lieferschein   Rechnung   Lager   Stammdaten   Ende ║
  84.  ╚═══════════════════════════════════════════════════════════════════════════╝
  85.  Den Rahmen um das Menü können wie folgt definieren:
  86.  @ 1,0 TO 3,79 DOUBLE
  87. ──────────────────────────────────────────────────────────────────────────────
  88.  jetzt ist das «ZeilMenu» fertig erstellt.
  89.  Um es zu aktivieren und auf den Bildschirm zu bringen, dient der Befehl:
  90.  ACTIVATE MENU ZeilMenu
  91.  
  92.  
  93.     ENDTEXT
  94.   ENDIF
  95.  
  96.  
  97.  
  98.   DO Blatt
  99. ENDDO
  100. DEACTIVATE WINDOW ALL
  101.  
  102. *════════════════════════════════════════════════════════ START DER PROZEDUR ════
  103. PROCEDURE Blatt
  104. ? "         Weiter:(eine TASTE!)  -  Zurück:(BILD auf)  -  Abbruch: (ESC)"
  105. SET ESCAPE OFF
  106.   DO WHILE .T.
  107.      Inkey = INKEY()
  108.         DO CASE
  109.            CASE Inkey = 27
  110.                 Zahl = 100
  111.                 EXIT
  112.            CASE Inkey = 18
  113.                 Zahl = Zahl - 1
  114.                 EXIT
  115.            CASE Inkey > 0
  116.                 Zahl = Zahl + 1
  117.                 EXIT
  118.         ENDCASE
  119.    ENDDO
  120. SET ESCAPE ON
  121. *───────────────────────────────────────────────────────────────────────────────
  122.