pixmapheight.bmx 370 B

12345678910111213141516171819
  1. SuperStrict
  2. Graphics 640,480
  3. Local pix:TPixmap = LoadPixmap(blitzmaxpath()+"\samples\hitoro\gfx\boing.png")
  4. If pix = Null Then
  5. RuntimeError ("Error Loading Image")
  6. End If
  7. Repeat
  8. Cls
  9. ' Display Information
  10. DrawText "Image Width:"+PixmapWidth(pix)+" Image Height:"+PixmapHeight(pix),0,0
  11. DrawPixmap pix,100,100
  12. Flip
  13. Until KeyHit(key_escape) Or AppTerminate()