home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / kim21.zip / DRAG.KIM < prev    next >
Text File  |  1995-07-24  |  1KB  |  69 lines
  1.  
  2. rem ------------------------------------------------------------
  3. rem Programm      : Beispiel für Drag & Drop
  4. rem Programmierer : JK
  5. rem Datum         : 02.07.95
  6. rem ------------------------------------------------------------
  7.  
  8.  deffloat _i
  9.  call fenster_inhalt()
  10.  
  11.  win_paint "window"
  12.  
  13.  
  14.  while _i<>1000
  15.    win_ev _i
  16.  wend
  17.  
  18.  end
  19.  
  20.  
  21. MODUL fenster_inhalt()
  22.  
  23. deffloat i
  24. defstring obj$,zahl$
  25.  
  26. DEF_WINDOW_ST "window",2,2,70,17,"Drag and Drop"
  27.  
  28. DEF_PROMPT "pr1",2,0,"Markieren Sie und halten die rechte Maustaste gedrückt,dann "
  29. DEF_PROMPT "pr2",2,1,"bewegen Sie den Cursor in die zweite Listbox"
  30. DEF_LIST   "list1",0,2,2,15,10,0,0 ;"border","drop accept","drag move","multi"
  31. DEF_LIST   "list2",0,25,2,15,10,0,0 ;"border","drop accept","drag move","multi"
  32.  
  33. DEF_SCROLLBAR "scroll1",1,0,0,0,0
  34. DEF_SCROLLBAR "scroll2",1,0,0,0,0
  35.  
  36. add_item "list1","scroll1"
  37. add_item "list2","scroll2"
  38.  
  39.  
  40. rem Objekt an die erste Listbox addieren
  41.  
  42. for i=1 to 10
  43.   form i,zahl$,0,1
  44.   obj$="elem"+zahl$
  45.   def_string obj$,0,0,10,obj$
  46.   add_item "list1",obj$
  47. next
  48.  
  49. DEF_BUTTON "PushButton1",25,13,17,"","&Quit"
  50.  
  51.  
  52. ADD_ITEM "window",..
  53. "pr1",..
  54. "pr2",..
  55. "list1",..
  56. "list2",..
  57. "PushButton1"
  58.  
  59.  
  60. ENDMOD
  61.  
  62.  
  63. rem Programm verlassen
  64. modul PushButton1_select()
  65.    _i=1000
  66. endmod
  67.  
  68.  
  69. rem ********************