home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 04 / einstieg / demo.lst < prev    next >
Encoding:
File List  |  1991-03-08  |  1.6 KB  |  67 lines
  1. ' Demoprogramm für eine einfache Grafikoberfläche
  2.  
  3. SCREEN 17               ' Grafik initialisieren VGA 640 x 480
  4. MakeMenu                                      ' Menü aufrufen
  5.  
  6. PROCEDURE Evaluate_Menu()
  7.   LOCAL ee_%                       ' ee_% ist lokale Variable
  8.   ee_% = MENU(0)
  9.   PRINT
  10.   PRINT "Sie haben den Menüpunkt "; m$(ee_%); " gewählt"
  11.   SWITCH ee_%
  12.   CASE 1                                          ' Alert-Box
  13.     ShowAlertBox
  14.   CASE 2
  15.     GetFileName                               ' File-Selector
  16.   CASE 3
  17.     MakePopUp
  18.   CASE 4
  19.     SCREEN 3                                   ' Programmende
  20.     END
  21.   ENDSWITCH
  22. RETURN
  23.  
  24. PROCEDURE MakeMenu
  25.   DIM m$(10)
  26.   m$(0) = "Pulldown-Menü"
  27.   m$(1) = "_Alert-Box"         ' Unterstrich definiert Hotkey
  28.   m$(2) = "_File-Selector"
  29.   m$(3) = "_Popup-Menü"
  30.   m$(4) = "_Ende"
  31.   MENU m$()
  32.   OPENW #0
  33.   DO                      ' Event-Handling und Menüverwaltung
  34.     GETEVENT
  35.     e% = MENU(1)
  36.     IF e% = 20
  37.       Evaluate_Menu
  38.     ENDIF
  39.   LOOP
  40. RETURN
  41.  
  42. PROCEDURE GetFileName
  43.   LOCAL n$
  44.   n$ = ""
  45.   FILESELECT "C:\", "*.*", n$
  46.   IF LEN(n$)
  47.     IF RIGHT$(n$)="\" THEN
  48.       PRINT "Sie haben keine Datei angewählt!"
  49.     ELSE
  50.       PRINT "Die Datei ";n$;" wurde gewählt"
  51.     ENDIF
  52.   ELSE
  53.     PRINT "Operation abgebrochen"
  54.   ENDIF
  55. RETURN
  56.  
  57. PROCEDURE ShowAlertBox
  58.   ALERT 1, "Alert-Boxen    ", 1, "Aha|Achso|Naja", Knopf
  59.   PRINT "Die Alert-Box wurde mit Button "; Knopf ; " verlassen"
  60. RETURN
  61.  
  62. PROCEDURE MakePopUp
  63.   LOCAL n%
  64.   n% = POPUP("PopUp|_Wählen|_Sie|_einen|Ein_trag!", 100, 100, 1)
  65.   PRINT "Sie haben den Eintrag Nr. "; n%; " gewählt"
  66. RETURN
  67.