[Windows] Checkbox affected by Setgadgettextcolor

Archives Forums/MaxGUI Bug Reports/[Windows] Checkbox affected by Setgadgettextcolor

Grisu

(Posted 2013) [#1]

Hi!

Under Windows 7 the "modern" look of checkboxes gets destroyed as soon as you use Setgadgettextcolor() on them.

Screenshot:

Example:

Strict

Import maxgui.drivers

?Win32
Import maxgui.xpmanifest
?

Local win:tgadget = CreateWindow("test",200,200,300,300,Null,WINDOW_TITLEBAR|WINDOW_STATUS|WINDOW_CENTER|WINDOW_RESIZABLE)
Local b1:tgadget = CreateButton("b1",10,10,50,28,win,BUTTON_CHECKBOX)
Local b2:tgadget = CreateButton("b2",10,40,150,28,win,BUTTON_CHECKBOX)
Local b3:tgadget = CreateButton("b3",10,70,150,28,win,BUTTON_CHECKBOX)
Local b4:tgadget = CreateButton("b4",10,100,150,28,win,BUTTON_CHECKBOX)
Local b5:tgadget = CreateButton("b5",10,130,150,28,win,BUTTON_CHECKBOX)
Local toggle:tgadget = CreateButton("Change label color + destroy modern style!?",10,200,250,28,win,BUTTON_PUSH)

Global state:Int = 0

Repeat
	WaitEvent()
	Select EventID()
	
	Case EVENT_WINDOWCLOSE	End
	
	Case EVENT_GADGETACTION
		Select EventSource()
		
		Case toggle
			Select state
			
			Case 0
				state = 1
			Case 1
				state = -1
			Case -1
				state = 0
			EndSelect
			
			SetGadgetText b2, "<- I HATE BUGS!"
			SetGadgetText b3, "<- I HATE BUGS!"
			SetGadgetText b4, "<- I HATE BUGS!"
			SetGadgetText b5, "<- I HATE BUGS!"

                 SetGadgetTextColor b2, 255,0,0 '<- This line destroys the Modern GUI look!
                 SetGadgetTextColor b3, 255,0,0 '<- This line destroys the Modern GUI look!
                 SetGadgetTextColor b4, 255,0,0 '<- This line destroys the Modern GUI look!
                 SetGadgetTextColor b5 , 255 , 0 , 0 '<- This line destroys the Modern GUI look!
		EndSelect
	EndSelect

Forever

Is there a way to prevent this from happening?

Thanks in advance
Grisu