home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / kim21.zip / BSP5.KIM < prev    next >
Text File  |  1995-07-01  |  3KB  |  88 lines
  1.  
  2. rem Name            :    BSP5.KIM
  3. rem Datum           :    März 1994
  4. rem Version         :    1.0
  5. rem Programm        :    Programm zur Erzeugung eines Hauptfensters mit Eingabemaske
  6. rem Programmierer   :    EDV-Kohlenbach
  7.  
  8. REM Zunächst das Hauptprogramm mit Recordstruktur und Event-Schleife
  9. DEFFLOAT i, taste
  10. DEFSTRING objekt
  11. DEFINE soft1, 40 AS Name
  12. DEFINE soft2, 40 AS Vorname
  13. DEFINE soft3, 40 AS Wohnort
  14. DIMMEMO soft4, 10000
  15.  
  16. CALL fenster_def ("window", 3, 2, 58, 16, "Testfenster")
  17. CALL fenster_inhalt ("window")
  18. WIN_PAINT "window"
  19.  
  20. WHILE i<>1000
  21.     WIN_EV i
  22.     GET_ITEM_POS objekt, taste
  23.     IF taste=13 THEN
  24.         CALL auswerten (objekt, i)
  25.     ENDIF
  26. WEND
  27. END
  28.  
  29. REM Nun das Modul mit der Definition des Fensters
  30. MODUL fenster_def (char id, float x, float y, float xr, float yr, char ueber)
  31.     def_window id,x,y,xr,yr
  32.     def_system_button "system_button", 0
  33.     def_max_button "max_button"
  34.     def_min_button "min_button"
  35.     def_border "border"
  36.     def_titel "titel", ueber
  37.     add_item "window",..
  38.              "border",..
  39.              "system_button",..
  40.              "max_button",..
  41.              "min_button",..
  42.              "titel"
  43. ENDMOD
  44.  
  45. REM Nun das Modul mit der Definition der Toolbar und der Eingabemaske
  46. MODUL fenster_inhalt (char fenster_def_id)
  47.     def_toolbar "toolbar", 0, 0, 60, 5;"region off"
  48.     def_button "b0", 0, 0, 10, " ", " Neu "
  49.     def_button "b1", 0, 0, 10, " ", " Speichern"
  50.     def_button "b2", 0, 0, 10, " ", " Loeschen"
  51.     def_button "b3", 0, 0, 10, " ", " Finde "
  52.     def_button "b4", 0, 0, 10, " ", " Beenden "
  53.     add_item "toolbar",..
  54.              "b0",..
  55.              "b1",..
  56.              "b2",..
  57.              "b3",..
  58.              "b4"
  59.     add_item  fenster_def_id, "toolbar"
  60.  
  61.     DEF_PROMPT "aus1", 1, 0, "Name  "
  62.     DEF_PROMPT "aus2", 1, 1, "Vorname  "
  63.     DEF_PROMPT "aus3", 1, 2, "Wohnort  "
  64.     DEF_PROMPT "aus4", 1, 3, "Kommentar  "
  65.     DEF_STRING "inp1", 10, 0, 40, soft1; "border"
  66.     DEF_STRING "inp2", 10, 1, 40, soft2; "border"
  67.     DEF_STRING "inp3", 10, 2, 40, soft3; "border"
  68.     DEF_TEXT "inp4", 1, 4, 49, 5, 10000, soft4; "border", "wrap off"
  69.     DEF_SCROLLBAR "scroll1", 0, 0, 0, 0, 0
  70.     DEF_SCROLLBAR "scroll2", 1, 0, 0, 0, 0
  71.     ADD_ITEM "inp4", "scroll1", "scroll2"
  72.     ADD_ITEM fenster_def_id, "aus1","aus2","aus3","aus4",..
  73.                              "inp1", "inp2", "inp3", "inp4"
  74. ENDMOD
  75.  
  76. REM Nun das Modul, welches die Aktion des Anwenders auswertet
  77. MODUL auswerten (char obj, float i)
  78.     DEFFLOAT flag
  79.     IF obj="b4" THEN
  80.         MSGBOX "Programm beenden ?", 1, flag, " "
  81.         IF flag=1 THEN
  82.             i=1000
  83.         ENDIF
  84.     ENDIF
  85. ENDMOD
  86.  
  87. rem ------------------------------------------- Ende des Programmes -----------------------------------------------------
  88.