Change font size of all gadgets

BlitzMax Forums/MaxGUI Module/Change font size of all gadgets

degac

(Posted 2014) [#1]

Hi

I'm creating some applications and discovered that I would like to change the font size of gadgets (... I'm getting older and my vision is getting worst!!!)
At the moment I'm doing it changing with SetGadgetFont() each gadget I want (not many, just 4-5, depending on the application).

But I would like to know if there's a faster and global (=all gadgets in one time) solution...

In meantime I'm looking in the source code to find a possible solution...

Thanks anyone

degac

(Posted 2014) [#2]

Well I managed a solution, don't know if I could do better


SuperStrict
Import maxgui.drivers

Local fnt:Tguifont=LookupGuiFont(GUIFONT_SCRIPT,8)

Global window:tgadget=		CreateWindow("Main",100,100,300,300,,WINDOW_TITLEBAR|WINDOW_CENTER)

	Local btn_start:tgadget[10]
	For Local n:Int=0 Until 10
			btn_start[n]=CreateButton("Btn "+n,10,10+n*22,100,20,window)
	Next

	SetGlobalGadgetFont(window,fnt)

Function SetGlobalGadgetFont:Int(par:tgadget=Null,fnt:tguifont=Null)
	If fnt=Null Return -1
	If par=Null Return -1
	If par.kids=Null Return -1
	For Local s:tgadget=EachIn par.kids 
			SetGadgetFont s,fnt
	Next
	
End Function
Repeat
	WaitEvent()
	
	Select EventID()
		Case EVENT_APPTERMINATE, EVENT_WINDOWCLOSE
			End
	End Select
Forever

Well, it works :P