home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / kim21.zip / BITMAP.KIM < prev    next >
Text File  |  1995-07-03  |  1KB  |  52 lines
  1.  
  2. rem ------------------------------------------------------------
  3. rem Programm      : Beispiel laden eines Bitmaps
  4. rem Programmierer : JK
  5. rem Datum         : 02.07.95
  6. rem ------------------------------------------------------------
  7.  
  8. rem Wichtig !!!
  9. rem Wenn ein Bitmap als Objekt definiert wurde sollte man berücksichtigen,
  10. rem daß im Bereich der definierten Grenzen wie Breite und Länge,
  11. rem keine Selektion von anderen Objekten wie Buttons möglich sind.
  12. rem Bei der Angabe von x,y,xr,yr werden Pixelkoordinaten angegeben.
  13. rem Sollten Werte angegeben werden, die größer sind als das darzustellende
  14. rem Bitmap, wird auch dieser Bereich für eine Selektion gesperrt.
  15.  
  16.  deffloat _i
  17.  call fenster_inhalt()
  18.  
  19.  win_paint "window"
  20. rem  event_on_item "PushButton1","current"
  21.  
  22.  while _i<>1000
  23.    win_ev _i
  24.  wend
  25.  
  26.  end
  27.  
  28.  
  29. MODUL fenster_inhalt()
  30.  
  31.  
  32.  
  33. DEF_WINDOW_ST "window",2,2,70,17,"Bitmap"
  34.  
  35. DEF_BUTTON "PushButton1",25,13,17,"","Quit"
  36. DEF_BITMAP "bitmap",1,1,500,300,"bitmap.bmp"
  37.  
  38. ADD_ITEM "window",..
  39. "bitmap",..
  40. "PushButton1"
  41.  
  42.  
  43. ENDMOD
  44.  
  45.  
  46. rem Programm verlassen
  47. modul PushButton1_select()
  48.   _i=1000
  49. endmod
  50.  
  51.  
  52. rem ********************