label backgrounds

BlitzMax Forums/MaxGUI Module/label backgrounds

dmaz	(Posted 2008) [#1]

I haven't been updating my maxgui in a while so this might have come up before but I can't find anything on it... I swear label backgrounds were transparent, now they default to black. The background color can be set using TGadget.SetColor but I what happen to transparency? Is there a way to set that or get that back?

jsp	(Posted 2008) [#2]

Hmm, all combinations are working fine here:
Maybe you should really upgrade your MaxGui

Example:


SuperStrict
Import MaxGui.Drivers

Local Window1:TGadget = CreateWindow:TGadget("Window1",273,100,297,205,Null,WINDOW_TITLEBAR|WINDOW_RESIZABLE |WINDOW_STATUS |WINDOW_CLIENTCOORDS )
	Local PlainPanel1:TGadget = CreatePanel:TGadget(0,0,99,205,Window1:TGadget,Null,"PlainPanel1")
		SetGadgetLayout( PlainPanel1:TGadget,EDGE_ALIGNED,EDGE_ALIGNED,EDGE_ALIGNED,EDGE_ALIGNED )
		SetGadgetColor( PlainPanel1:TGadget,253,183,170, True )
		Local Label1:TGadget = CreateLabel:TGadget("TRANSPARENT",10,14,83,22,PlainPanel1:TGadget,LABEL_SUNKENFRAME|LABEL_CENTER)
		Local Label3:TGadget = CreateLabel:TGadget("BACKGROUND",13,134,80,16,PlainPanel1:TGadget,LABEL_SUNKENFRAME|LABEL_CENTER)
			SetGadgetColor( Label3:TGadget,235,240,140, True )
		Local Label2:TGadget = CreateLabel:TGadget("FOREGROUND",12,60,80,16,PlainPanel1:TGadget,LABEL_SUNKENFRAME|LABEL_CENTER)
			SetGadgetTextColor( Label2:TGadget,86,231,107 )
		Local Label4:TGadget = CreateLabel:TGadget("BOTH",12,172,80,16,PlainPanel1:TGadget,LABEL_SUNKENFRAME|LABEL_CENTER)
			SetGadgetColor( Label4:TGadget,131,228,245, True )
			SetGadgetTextColor( Label4:TGadget,169,71,169 )
	Local PlainPanel3:TGadget = CreatePanel:TGadget(99,0,99,205,Window1:TGadget,Null,"PlainPanel1")
		SetGadgetLayout( PlainPanel3:TGadget,EDGE_ALIGNED,EDGE_ALIGNED,EDGE_ALIGNED,EDGE_ALIGNED )
		SetGadgetColor( PlainPanel3:TGadget,182,239,173, True )
		Local Label5:TGadget = CreateLabel:TGadget("TRANSPARENT",6,14,83,22,PlainPanel3:TGadget,LABEL_SUNKENFRAME|LABEL_CENTER)
		Local Label6:TGadget = CreateLabel:TGadget("FOREGROUND",8,60,80,16,PlainPanel3:TGadget,LABEL_SUNKENFRAME|LABEL_CENTER)
			SetGadgetTextColor( Label6:TGadget,145,154,240 )
		Local Label7:TGadget = CreateLabel:TGadget("BACKGROUND",8,134,80,16,PlainPanel3:TGadget,LABEL_SUNKENFRAME|LABEL_CENTER)
			SetGadgetColor( Label7:TGadget,235,240,140, True )
		Local Label8:TGadget = CreateLabel:TGadget("BOTH",8,172,80,16,PlainPanel3:TGadget,LABEL_SUNKENFRAME|LABEL_CENTER)
			SetGadgetColor( Label8:TGadget,131,228,245, True )
			SetGadgetTextColor( Label8:TGadget,169,71,169 )
	Local PlainPanel4:TGadget = CreatePanel:TGadget(198,0,99,205,Window1:TGadget,Null,"PlainPanel1")
		SetGadgetLayout( PlainPanel4:TGadget,EDGE_ALIGNED,EDGE_ALIGNED,EDGE_ALIGNED,EDGE_ALIGNED )
		SetGadgetColor( PlainPanel4:TGadget,183,175,248, True )
		Local Label9:TGadget = CreateLabel:TGadget("TRANSPARENT",10,14,83,22,PlainPanel4:TGadget,LABEL_SUNKENFRAME|LABEL_CENTER)
		Local Label10:TGadget = CreateLabel:TGadget("FOREGROUND",10,60,80,16,PlainPanel4:TGadget,LABEL_SUNKENFRAME|LABEL_CENTER)
			SetGadgetTextColor( Label10:TGadget,245,156,174 )
		Local Label11:TGadget = CreateLabel:TGadget("BACKGROUND",10,134,80,16,PlainPanel4:TGadget,LABEL_SUNKENFRAME|LABEL_CENTER)
			SetGadgetColor( Label11:TGadget,235,240,140, True )
		Local Label12:TGadget = CreateLabel:TGadget("BOTH",10,172,80,16,PlainPanel4:TGadget,LABEL_SUNKENFRAME|LABEL_CENTER)
			SetGadgetColor( Label12:TGadget,131,228,245, True )
			SetGadgetTextColor( Label12:TGadget,169,71,169 )

Repeat
	WaitEvent()
	Select EventID()
		Case EVENT_WINDOWCLOSE
			Select EventSource()
				Case Window1	Window1_WC( Window1:TGadget )
			End Select

	End Select
Forever

Function Window1_WC( Window:TGadget )
	DebugLog "Window Window1 wants to be closed"

	End
End Function

dmaz	(Posted 2008) [#3]

thanks... actually what I meant was I hadn't updated until just today. so the behavior changed from older versions.

Anyway, your example helped me find the problem. I'm putting other gadgets on toolbars.... worked fine before. The fix now is to put a panel down first on the toolbar.

thanks again.