SetMaskColor in Canvas

BlitzMax Forums/BlitzMax Beginners Area/SetMaskColor in Canvas

Global gOpen:TImage = LoadImage("incbin::images/StringOpen.png",MASKEDIMAGE|MIPMAPPEDIMAGE)
Global gWin:TGadget=CreateWindow("Recorder", 50,50,800,600, Null, WINDOW_TITLEBAR | WINDOW_STATUS | WINDOW_CLIENTCOORDS)
Local canvas_Buttons:TGadget	= CreateCanvas(0,0,496,430,pnl_Canvas)

Local tmr_Paint:TTimer			= CreateTimer(60)

SetGraphics CanvasGraphics(canvas_Buttons)				
SetBlend ALPHABLEND 
SetClsColor 0,0,0
SetMaskColor 255, 0, 255

Repeat

	WaitEvent()
	
	'---[ Process Event ]---
	Select EventID()	   			
		'---[ Timer ]---
		Case EVENT_TIMERTICK
			RedrawGadget(canvas_Buttons)
		
		'---[ Paint Gadgets ]---
		Case EVENT_GADGETPAINT
			
			'---[ Button Canvas ]---
			If EventSource () = canvas_Buttons
			
				
				
				'---[ Display Button GFX ]---	    			
				Cls
				   	SetColor  0,255,0							
		                       DrawImage gOpen,15,15
	    		Flip
			EndIf
          End Select

Forever