Transparent images on a Window

BlitzMax Forums/BlitzMax GUI Programming/Transparent images on a Window

Seethru will do that. Just pass the panel as a parameter instead of a window.

Framework BRL.Pixmap
Import BRL.PNGLoader
Import BRL.Win32MaxGUI

Import "see-thru.bmx"

Local mask:TPixmap=LoadPixmap("image1.png")
Local Button1:TPixmap = LoadPixmap("button1.png")
Local Button2:TPixmap = LoadPixmap("Button2.png")

Local window:Tgadget=CreateWindow("a hole",0,0,640,480)

Local Panel:TGadget=CreatePanel(100,100,128,128,Window,PANEL_ACTIVE)
SetPanelColor(Panel,255,255,255)
SetPanelPixmap(Panel,Button1)
MakeSeeThru(Panel,mask)
ActivateGadget Panel
While WaitEvent()
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
		Case EVENT_MOUSEDOWN
			SetPanelPixmap(Panel,Button2)
		Case EVENT_MOUSEUP
			SetPanelPixmap(Panel,Button1)
	EndSelect
Wend

media