home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / kim21.zip / E4.KIM < prev    next >
Text File  |  1994-08-31  |  2KB  |  68 lines
  1.  
  2.         DEFFLOAT _i
  3.         
  4.         DEFINE soft1, 40 AS Name
  5.         DEFINE soft2, 40 AS Vorname
  6.         DEFINE soft3, 40 AS Wohnort
  7.         DIMMEMO soft4, 10000
  8.  
  9.         CALL fenster()
  10.         WIN_PAINT "window"
  11.         WHILE _i<>1000
  12.                 WIN_EV _i
  13.         WEND
  14.         END
  15.  
  16.         REM Nun das Modul mit der Definition des Fensters
  17.         MODUL fenster()
  18.  
  19.                 def_window_st "window",1,1,65,15,"Testfenster"
  20.  
  21.                 def_toolbar "toolbar", 0, 0, 60, 5;"region off"
  22.                 def_button "b0", 0, 0, 10, " ", "Neu"
  23.                 def_button "b1", 0, 0, 10, " ", "Speichern"
  24.                 def_button "b2", 0, 0, 10, " ", "Loeschen"
  25.                 def_button "b3", 0, 0, 10, " ", "Finde"
  26.                 def_button "b4", 0, 0, 10, " ", "Beenden"
  27.                 
  28.                 add_item "toolbar",..
  29.                 "b0",..
  30.                 "b1",..
  31.                 "b2",..
  32.                 "b3",..
  33.                 "b4"
  34.                
  35.                 add_item  "window", "toolbar"
  36.  
  37.                 DEF_PROMPT "aus1", 1, 0, "Name  "
  38.                 DEF_PROMPT "aus2", 1, 1, "Vorname  "
  39.                 DEF_PROMPT "aus3", 1, 2, "Wohnort  "
  40.                 DEF_PROMPT "aus4", 1, 3, "Kommentar  "
  41.                 DEF_STRING "inp1", 10, 0, 40, soft1; "border"
  42.                 DEF_STRING "inp2", 10, 1, 40, soft2; "border"
  43.                 DEF_STRING "inp3", 10, 2, 40, soft3; "border"
  44.                 DEF_TEXT   "inp4", 1, 4, 49, 5, 10000, soft4; "border", "wrap off"
  45.  
  46.                 DEF_SCROLLBAR "scroll1", 0, 0, 0, 0, 0
  47.                 DEF_SCROLLBAR "scroll2", 1, 0, 0, 0, 0
  48.  
  49.                 ADD_ITEM "inp4",..
  50.                 "scroll1",..
  51.                 "scroll2"
  52.  
  53.                 ADD_ITEM_ARRAY "window", "aus",1,4
  54.                 ADD_ITEM_ARRAY "window", "inp",1,4
  55.  
  56.  
  57.         ENDMOD
  58.  
  59.        rem Eventfunktion wird aufgerufen wenn BUTTON gedrückt
  60.  
  61.         MODUL b4_select()
  62.                 DEFFLOAT flag
  63.                 MSGBOX "Programm beenden ?", 1, flag, " "
  64.                 IF flag=1 THEN
  65.                     _i=1000
  66.                 ENDIF
  67.         ENDMOD