Code: Select all
InitNetwork()
UsePNGImageDecoder()
imgEnlarged = 1
imgEnlarged2 = 2
Procedure.i SizeImage( ImageID.i, width.l, height.l, flag=0 )
CompilerIf #PB_Compiler_OS = #PB_OS_MacOS
Protected size.NSSize
size\width = width
size\height = height
CocoaMessage(0, ImageID, "setSize:@", @Size)
CompilerEndIf
EndProcedure
imageURL$ = "https://nsa40.casimages.com/img/2021/06/04/210604103322144271.png"
*queryresponse = ReceiveHTTPMemory(imageURL$)
img = CatchImage(#PB_Any, *queryresponse, MemorySize(*queryresponse))
CopyImage(img, imgEnlarged)
CopyImage(img, imgEnlarged2)
OpenWindow(0, 50, 0, 900, 600, "")
ImageGadget(350, 0, 0, 0, 0, ImageID(img))
ResizeImage(imgEnlarged, ImageWidth(img)*1.2, ImageHeight(img)*1.2, #PB_Image_Raw) ;;; enlarging by 120%
SizeImage(ImageID(imgEnlarged2), ImageWidth(img)*1.2, ImageHeight(img)*1.2, #PB_Image_Raw) ;;; enlarging by 120%
ImageGadget(351, 450, 0, 0, 0, ImageID(imgEnlarged))
ImageGadget(352, 450, 300, 0, 0, ImageID(imgEnlarged2))
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow