Android Question [ Solved]How to code StyleFont from Truetype font

[Theera]

This is my code,please help me code StyleFont is Bold,Italic .

Private Sub CreateFont
    Try
        If mFontName = "DEFAULT" Or mFontName = "" Then
            ' ใช้ font เริ่มต้นของระบบ(Using Default Font)
            Select mFontStyle.ToUpperCase
                Case "BOLD"
                    mCurrentFont = xui.CreateDefaultBoldFont(mFontSize)  <==Is there xui.CreateDeaultItalicFont() function?
                Case Else ' NORMAL
                    mCurrentFont = xui.CreateDefaultFont(mFontSize)
            End Select
        Else
            ' ใช้ font ที่กำหนด (Using Custom Font)
            Select mFontStyle.ToUpperCase
                Case "BOLD"
                    'mCurrentFont = xui.CreateFontToBold(xui.CreateFont(mFontName, mFontSize, False, False))
                    Dim tf As Typeface=Typeface.LoadFromAssets(mFontName)       '<== How to code StyleFont be Bold?
                    mCurrentFont=xui.CreateFont(tf,mFontSize)
                Case Else ' NORMAL
                    'mCurrentFont = xui.CreateFont(mFontName, mFontSize, False, False)
                    Dim tf As Typeface=Typeface.LoadFromAssets(mFontName)
                    mCurrentFont=xui.CreateFont(tf,mFontSize)
            End Select
        End If
    Catch
        Log("Error creating font, using default")
        mCurrentFont = xui.CreateDefaultFont(mFontSize)
    End Try
  
    ' อัพเดต font ใน label
    If xLBL.IsInitialized Then
        xLBL.Font = mCurrentFont
    End If
End Sub

 

[aeric]

What library you are working on?

 

[Theera]

What library you are working on?

My library is some feature be worked, but this feature is not. I have used AI help me.

 

[TILogistic]

You must apply the style after applying the font.
test in B4A

    Dim Typeface_ITALIC As Int = 2
    Label1.As(JavaObject).RunMethod("setTypeface", Array(Label1.Typeface, Typeface_ITALIC))

 

[TILogistic]

in b4j

    Dim fnt As B4XFont
    fnt = xui.CreateDefaultBoldFont(24) ' fuente normal para comparar
    lbl.Font = fnt
    lbl.Text = "Texto en cursiva B4J"
    lbl.As(Label).Style = "-fx-font-style: italic;"

 

[d3vc]

This is my code,please help me code StyleFont is Bold,Italic .

Private Sub CreateFont
    Try
        If mFontName = "DEFAULT" Or mFontName = "" Then
            ' ใช้ font เริ่มต้นของระบบ(Using Default Font)
            Select mFontStyle.ToUpperCase
                Case "BOLD"
                    mCurrentFont = xui.CreateDefaultBoldFont(mFontSize)  <==Is there xui.CreateDeaultItalicFont() function?
                Case Else ' NORMAL
                    mCurrentFont = xui.CreateDefaultFont(mFontSize)
            End Select
        Else
            ' ใช้ font ที่กำหนด (Using Custom Font)
            Select mFontStyle.ToUpperCase
                Case "BOLD"
                    'mCurrentFont = xui.CreateFontToBold(xui.CreateFont(mFontName, mFontSize, False, False))
                    Dim tf As Typeface=Typeface.LoadFromAssets(mFontName)       '<== How to code StyleFont be Bold?
                    mCurrentFont=xui.CreateFont(tf,mFontSize)
                Case Else ' NORMAL
                    'mCurrentFont = xui.CreateFont(mFontName, mFontSize, False, False)
                    Dim tf As Typeface=Typeface.LoadFromAssets(mFontName)
                    mCurrentFont=xui.CreateFont(tf,mFontSize)
            End Select
        End If
    Catch
        Log("Error creating font, using default")
        mCurrentFont = xui.CreateDefaultFont(mFontSize)
    End Try
 
    ' อัพเดต font ใน label
    If xLBL.IsInitialized Then
        xLBL.Font = mCurrentFont
    End If
End Sub

Hi , you can try this https://www.b4x.com/android/forum/t...g-b4a-label-and-edittext-views.74727/#content
good luck

 

[aeric]

I attached my function in this example

[B4X] CreateB4XFont

This is an example in response to this post and extension of the example posted here. Private Sub Button1_Click #If B4i Label1.Font = CreateB4XFont("D3-Biscuitism-Bold", 30, 30) #Else Label1.Font = CreateB4XFont("D3_Biscuitism_Bold.ttf", 30, 30) #End If #If B4A...

www.b4x.com

 

[Theera]

Hi , you can try this https://www.b4x.com/android/forum/t...g-b4a-label-and-edittext-views.74727/#content
good luck

Thank you for kind of you all.