NotifyImage

This code has been declared by its author to be Public Domain code.

NotifyImage by CS_TBL

2005

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