
Code: Select all
If UsePNGImageDecoder() And UsePNGImageEncoder() And InitSprite()
OpenWindow(1, 0, 0, 1024, 768, "Test",#PB_Window_BorderLess)
OpenWindowedScreen(WindowID(1), 0, 0, 1024, 768,0,0,0)
Procedure CreateBitmapFromSprite(Sprite)
hDC=StartDrawing(SpriteOutput(Sprite))
bmp.BITMAP\bmWidth=SpriteWidth(Sprite)
bmp\bmHeight=SpriteHeight(Sprite)
bmp\bmPlanes=1
bmp\bmBitsPixel=GetDeviceCaps_(hDC,#BITSPIXEL)
bmp\bmBits=DrawingBuffer()
bmp\bmWidthBytes=DrawingBufferPitch()
hBmp=CreateBitmapIndirect_(bmp)
StopDrawing()
ProcedureReturn hbmp
EndProcedure
Procedure SendAnswer()
GrabSprite(50,40,40,709,650)
ImageId=CreateBitmapFromSprite(50)
SaveImage(ImageId, "answer.png", #PB_ImagePlugin_PNG)
FreeSprite(50)
EndProcedure
endif
Thanks in advance
