Code archives/BlitzPlus Gui/NotifyImage
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
Just a small display, made for debug-purposes only. I guess it could be worth the 5 minutes I spent on it.. :D | |||||
Function NotifyImage(img) ; ; by CS_TBL ; FlushEvents() If Not img Return w=256 h=160 window=CreateWindow("NotifyImage",ClientWidth(Desktop())/2-(w/2),ClientHeight(Desktop())/2-(h/2),w,h,0,1) canvas=CreateCanvas(0,0,ClientWidth(window),ClientHeight(window),window) SetBuffer CanvasBuffer(canvas) DrawBlock img,0,0 FlipCanvas canvas Repeat WaitEvent() If EventID()=$803 If EventSource()=window notifyimagequit=True EndIf Until notifyimagequit FreeGadget window SetBuffer DesktopBuffer() End Function |
Comments
None.
Code Archives Forum