Private Sub LoadFont
Private lstFontName as List
lstFontName.Initialize
lstFontName.AddAll(fx.GetAllFontFamilies)
...
Private lbl as B4XView
Private myFontName as String = lstFontName.Get(2)
Private myFontSize As Double = 12
Private ynBold As Boolean = False
Private ynItalic As Boolean = False
ChangeFont(lbl, myFontName, myFontSize, ynBold, ynItalic)
End Sub
Private Sub ChangeFont(View As B4XView, myFontName As String, myFontSize As Double, ynBold As Boolean, ynItalic As Boolean)
View.Font = fx.CreateFont(myFontName, myFontSize, ynBold, ynItalic)
End Sub