home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / kim21.zip / BSP3.KIM < prev    next >
Text File  |  1994-05-01  |  2KB  |  69 lines
  1.  
  2. rem Name            :    BSP3.KIM
  3. rem Datum           :    März 1994
  4. rem Version         :    1.0
  5. rem Programm        :    Programm zur Erzeugung eines Hauptfensters mit Toolbar und Meldungsbox
  6. rem Programmierer   :    EDV-Kohlenbach
  7.  
  8.  
  9. REM Zunächst das Hauptprogramm mit Event-Schleife
  10. DEFFLOAT i, taste
  11. DEFSTRING objekt
  12. CALL fenster_def ("window", 3, 2, 58, 16, "Testfenster")
  13. CALL fenster_inhalt ("window")
  14. WIN_PAINT "window"
  15. WHILE i<>1000
  16. WIN_EV i
  17. GET_ITEM_POS objekt, taste
  18. IF taste=13 THEN
  19.   CALL auswerten (objekt, i)
  20. ENDIF
  21. WEND
  22. END
  23.  
  24. REM Nun das Modul mit der Definition des Fensters
  25. MODUL fenster_def (char id, float x, float y, float xr, float yr, char ueber)
  26.     def_window id,x,y,xr,yr
  27.     def_system_button "system_button", 0
  28.     def_max_button "max_button"
  29.     def_min_button "min_button"
  30.     def_border "border"
  31.     def_titel "titel", ueber
  32.     add_item "window",..
  33.              "border",..
  34.              "system_button",..
  35.              "max_button",..
  36.              "min_button",..
  37.              "titel"
  38. ENDMOD
  39.  
  40. REM Nun das Modul mit der Definition der Toolbar
  41. MODUL fenster_inhalt (char fenster_def_id)
  42.     def_toolbar "toolbar", 0, 0, 60, 5,;"region off"
  43.     def_button "b0", 0, 0, 10, " ", "Neu"
  44.     def_button "b1", 0, 0, 10, " ", "Speichern"
  45.     def_button "b2", 0, 0, 10, " ", "Loeschen"
  46.     def_button "b3", 0, 0, 10, " ", "Finde"
  47.     def_button "b4", 0, 0, 10, " ", "Beenden"
  48.     add_item "toolbar",..
  49.              "b0",..
  50.              "b1",..
  51.              "b2",..
  52.              "b3",..
  53.              "b4"
  54.     add_item  fenster_def_id, "toolbar"
  55. ENDMOD
  56.  
  57. REM Nun das Modul, welches die Aktion des Anwenders auswertet
  58. MODUL auswerten (char obj, float i)
  59.     DEFFLOAT flag
  60.     IF obj="b4" THEN
  61.         MSGBOX "Programm beenden ?", 1, flag, " "
  62.         IF flag=1 THEN
  63.             i=1000
  64.         ENDIF
  65.     ENDIF
  66. ENDMOD
  67.  
  68. rem ------------------------------------ Ende des Programmes ------------------------------------------------------------
  69.