Italian [B4J] Scegliere da codice o da designer un font (.ttf) diverso da quelli presenti

[Aldo's]

Buona fine d'anno e migliore 2024 a tutti!
Dovrei usare un font (.ttf) diverso da quelli settati di default nel designer.
Potrei usare di compiere la scelta sia da designer che da codice.
Come faccio?
Ho trovato questo codice ma mi dice che "font" è un membro sconosciuto.

    Dim fPippo As B4XFont
    Dim fx As JFX
    fPippo=xui.CreateFont(fx.LoadFont(File.DirAssets,"PIPPO.TTF",62),62)
    txtNome.Font=fPippo

Grazie a tutti.

 

[LucaMs]

Ciao e tanti auguri anche a te.

txtNome.As(B4XView).Font = fPippo

(o, meglio, potresti dichiarare direttamente txtNome come B4XView, anziché come EditText o TextField)


[ - 7 ? ]

 

[Aldo's]

Secondo voi è possibile settarlo da Designer? In che modo?

 

[LucaMs]

Secondo voi è possibile settarlo da Designer? In che modo?

No

 

[Elric]

In B4J da codice farei qualcosa di simile:

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

 

[LucaMs]

Sempre meglio usare comandi crossplatform, quindi B4XFont e xui.CreateFont, non si sa mai "domani" volessi riutilizzare quel codice o addirittura sviluppare la versione B4/B4i di quel progetto.

 

[Elric]

Avevo aperto un thread sull'argomento ma non ero giunto ad alcuna conclusione cross platform: non saprei come fare.

Se hai voglia d tradurre il mio codice in uno cross platform avrai un bel "Like" di fine anno!