B4J Question Font in the internal designer

[Aldo's]

Hello, is it possible to add a font (.ttf) in the internal designer?
Thank you

 

[Erel]

Currently no. You will need to do it programmatically with:

Dim fx As jFX
fx.LoadFont(...)

 

[Aldo's]

I have use this code in Sub b4X_Appear:

    Dim fPippo As B4XFont
    Dim fx As JFX
    fPippo=xui.CreateFont(fx.LoadFont(Main.DBDir,"PIPPO.TTF",15),15)
    txtNome.As(B4XView).Font=fPippo

but when i use txtNome the font is DEFAULT
where am I wrong?

 

[Erel]

Can you upload the font file (zip it first)?

 

[Aldo's]

This is the font file

 

[zed]

Try this

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private Label1 As Label
    Private fPippo As B4XFont
End Sub

Public Sub Initialize
'    B4XPages.GetManager.LogEvents = True
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
   
   
    Dim fx As JFX
    fPippo=xui.CreateFont(fx.LoadFont(File.DirAssets,"MAGIC.TTF",15),15)
    Label1.As(B4XView).Font=fPippo
   
End Sub

Make sure the TTF matches correctly. The given file does not match the code

 

[Aldo's]

I added something to the code and I saw that it works with the label, but it doesn't work with the textfield.
This is the code I wrote:

#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region

'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private Label1 As Label
    Dim fPippo As B4XFont
    Private TextField1 As TextField
End Sub

Public Sub Initialize
'    B4XPages.GetManager.LogEvents = True
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    Dim fx As JFX
    fPippo=xui.CreateFont(fx.LoadFont(File.DirAssets,"MAGIC.TTF",15),15)
    TextField1.As(B4XView).Font=fPippo
    Label1.As(B4XView).Font=fPippo
End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Private Sub TextField1_TextChanged (Old As String, New As String)
    Label1.Text=New
End Sub

 

[zed]

Add this

Dim joTF As JavaObject = TextField1
joTF.runMethod("setFont",Array(fx.LoadFont(File.DirAssets,"MAGIC.TTF", 15)))
   
Dim joTA As JavaObject = TextArea1
joTA.runMethod("setFont",Array(fx.LoadFont(File.DirAssets,"MAGIC.TTF", 15)))

 

[Aldo's]

Even in your code when I open the font file it is correct. But when I write it starts using the default font again.

 

[Daestrum]

Have you tried moving

Dim fx As JFX

to Class_Globals sub

 

[zed]

Indeed, there is a problem when the view loses focus.

 

[zed]

Have you tried moving

Dim fx As JFX

to Class_Globals sub

Yes

 

[zed]

The behavior is weird.
I tried with FocusChanged. But that doesn't change anything.
One view works with focus and the other view does the opposite.
I can't fix the problem.
I don't see where this could come from

 

[klaus]

I am afraid that it has something to do with the font file.
I tested it with different custom fonts and it works as expected.
But MAGIC.TTF and another one I downloaded from the internet witches-magic.ttf both do not work.

I think that Erel should have a look at this.

 

[Daestrum]

Playing with this I found the following

The font is correctly displayed in the textfield prior to any input into the field. (The prompt is shown in the 'new' font)
After the TextChanged sub is entered, the font defaults back to default.

 

[LucaMs]

I think that Erel should have a look at this.

I assume this is due to the implementation in B4J:

https://stackoverflow.com/questions/32624748/javafx-change-font-and-size-in-a-textfield

https://docs.oracle.com/javafx/2/text/jfxpub-text.htm


For the moment I haven't looked into whether it's possible with Style:

TextField1.As(TextField).Style

P.S. I think it's not possible. You can use it to set the font but not to load the font from file.

 

[Filippo]

Isn't that right down here?

I am not familiar with B4j.

 

[LucaMs]

Isn't that right down here?
View attachment 149503

I am not familiar with B4j.

The problems are with TextFields, not Labels

 

[Filippo]

The problems are with TextFields, not Labels

You're right, I didn't read everything.

 

[Erel]

I've got it working with this:

CSSUtils.SetStyleProperty(TextField1, "-fx-font-family", $""${MyFont.ToNativeFont.FamilyName}""$)
CSSUtils.SetStyleProperty(TextArea1, "-fx-font-family", $""${MyFont.ToNativeFont.FamilyName}""$)

Looks like a bug in B4XView.SetFont. Please try it.