(Get)CurrentFont() and (Get)CurrentShader() functions

[Masterxilo]

N/A

[Flexman]

:+1

[ZioRed]

+10k ;P

 

GetCurrentFont() would be very useful in GUI development (that is my current pain task) for which I chose to continue/improve the PGUI3 library that uses only LE commands.

[L B]

+1, for this and ALL possible Get accessors Josh could think of. We seriously are lacking many. For instance, get if a framework effect is enabled. I know I can store it myself in an additional variable, but it's just slopping coding IMHO.

[AndyGFX]

Here is simple example howto write FontManager for LE in BMX.

 

Class:

Type TFontManager

Field fonts:TMap
Field CurrentFont:TGLFont

Method New()
	Self.fonts = New TMap
	Local def:TGLFont = LoadFont("incbin::Arial9")
	Self.fonts.Insert("Arial9", def)
End Method

Method AddFont(fname:String)
	Local fnt:TGLFont = LoadFont("abstract::" + fname)
	Self.fonts.Insert(fname, fnt)

	? Debug
		Print("FONT: " + fname + " loaded.")
	?

End Method

Method RemoveFont(fname:String)
	Self.Fonts.Remove(fname)
End Method

Method SetCurrentFont(fname:String)
	Self.CurrentFont = TGLFont(Self.fonts.ValueForKey(fname))
	SetFont(Self.CurrentFont)
End Method

Method GetCurrentFont:TGLFont()
	Return Self.CurrentFont
End Method


end type

 

sample:

...
Global Fonts:TFontManager = New TFontManager
...
Fonts.AddFont("courier_new_8_bold")
Fonts.AddFont("courier_new_8_normal")
Fonts.AddFont("verdana_10_normal")
Fonts.AddFont("verdana_10_bold")
...

Fonts.SetCurrentFont("courier_new_8_normal")
DrawText("FPS: " + UPS(), 10, GraphicsHeight() - 16 * 2)
Fonts.SetCurrentFont("courier_new_8_bold")
DrawText("FPS: " + UPS(), 10, GraphicsHeight() - 16)
...
' get current font
Local actualfont:TGLFont = Fonts.GetCurrentFont()

...
'set default font back
Fonts.SetCurrentFont("Arial9")