Windows / GUI Functionality in Blitz+

Blitz3D Forums/Blitz3D Beginners Area/Windows / GUI Functionality in Blitz+

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

CS_TBL
 #1
like this? (run in debugmode!)

app=CreateWindow("blah",0,0,640,480)

Dim c(15)
For t=0 To 15
	c(t)=CreateCanvas(16+t*32,0,32,80,app)

	SetBuffer CanvasBuffer(c(t))
		ClsColor Rnd(0,255),Rnd(0,255),Rnd(0,255)
		Cls
	FlipCanvas c(t)
	
Next

SetBuffer DesktopBuffer()

quit=False
;-------------------------------------------------------
Repeat
	WaitEvent()
	If EventID()=$803 quit=True
	
	For t=0 To 15
		If EventSource()=c(t)
			DebugLog "canvas c("+t+")"
		EndIf
	Next
	
Until quit
;-------------------------------------------------------
; optional cleanup duties here..
End