BBjButton::clearImage

rem ' BBjButton::clearImage

image$ = "https://basis.cloud/sites/basis.com/files/amity_island_logo.jpg"
print "Image: ",image$
sysgui = unt
open (sysgui)"X0"
sysgui! = bbjapi().getSysGui()
imagemanager! = sysgui!.getImageManager()
image! = javax.imageio.ImageIO.read(new java.net.URL(image$))
os! = new java.io.ByteArrayOutputStream()
javax.imageio.ImageIO.write(image!,"jpg",os!)
bytes! = os!.toByteArray()
image! = imagemanager!.loadImageFromBytes(bytes!)
print "Image width:",image!.getWidth()
print "Image height:",image!.getHeight()
window! = sysgui!.addWindow(100,100,250,225,"clearImage",$00090003$)
window!.setCallback(window!.ON_CLOSE,"eoj")
unscaled! = window!.addButton(101,25,25,200,100,"",$$)
unscaled!.setImage(image!)
unscaled!.setImageSize(image!.getWidth()/2,image!.getHeight()/2)
scaled! = window!.addButton(102,25,150,200,50,"Scaled Image",$$)
scaled!.setImage(image!)
scaled!.setImageSize(image!.getWidth()/2,image!.getHeight()/2)
i = msgbox(image$,0,"clearImageSize")
unscaled!.clearImageSize()
i = msgbox(image$,0,"clearImage")
unscaled!.clearImage()
process_events

eoj:
release