Hi,
I was needing a font picker for B4J but I could't find it, so I decided to write one and I want to share it with you in case someone needs it or is useful to you.
I was needing a font picker for B4J but I could't find it, so I decided to write one and I want to share it with you in case someone needs it or is useful to you.
B4X:
Dim obj As Object= FontPicker.Show(fx.CreateFont("Consolas", 15, True, False), 0xFFDC143C)
If obj=Null Then
fx.Msgbox(MainForm, "*** User canceled dialog box ***", "FontPicker")
Else
Dim mapFont As Map=obj
Dim font1 As Font= mapFont.Get("font")
fx.Msgbox(MainForm,"FONT: " & font1 & CRLF & CRLF & "COLOR: " & mapFont.Get("color"), "FontPicker")
End If
Last edited:
