iOS Question How can use materialdesignicons-webfont.ttf in B4i ?

[dws]

Hello, I have already tried using what is mentioned in the article about using custom fonts but unfortunately I don't see any results. A little help please...
I have see font name from materialdesignicons-webfont.ttf and in Main i have

I have in Special folder font file
materialdesignicons-webfont.ttf

i try initialize custom font like

1. Dim xFont As Font = Font.CreateNew2("materialdesignicons-webfont", 25)
2. Dim xFont As Font = Font.CreateNew2("materialdesigniconswebfont", 25)
3. Dim xFont As Font = Font.CreateNew2("materialdesignicons", 25)
4. Dim xFont As Font = Font.CreateNew2("MaterialDesignIcons", 25)

but not initialize and i cant use.

 

[Erel]

Double click on the font file, from your PC, and check its internal name.

Custom Fonts

In order to add custom font files to your application you need to follow these instructions: 1. Add the font file to the "special" folder: \Files\Special 2. Add the #AppFont attribute for each font file (including the extension): #AppFont: papercuts-2.ttf #AppFont: vermidirouge 1.0.ttf 3. Find...

www.b4x.com

 

[dws]

Double click on the font file, from your PC, and check its internal name.

Custom Fonts

In order to add custom font files to your application you need to follow these instructions: 1. Add the font file to the "special" folder: \Files\Special 2. Add the #AppFont attribute for each font file (including the extension): #AppFont: papercuts-2.ttf #AppFont: vermidirouge 1.0.ttf 3. Find...

www.b4x.com

 

[dws]

Thanks for your response Erel.

Special Folder

I've already done it and that's why I wrote all the examples above. I'm using local if that matters.
I downloaded the file I'm using from your post and work fine in B4a and B4j.

When i use your example with this font file

 

[Erel]

Works fine here...

    Dim f As Font = Font.CreateNew2("MaterialDesignIcons", 20)
    Label1.Font = xui.CreateFont(f, 20)
    Label1.Text = UnicodeToString(0xF0006) & " " & UnicodeToString(0xF0010)
    Log(Label1.Font)
End Sub

Sub UnicodeToString (codepoint As Int) As String
    Dim bc As ByteConverter
    Dim b() As Byte = bc.IntsToBytes(Array As Int(codepoint))
    Return BytesToString(b, 0, 4, "UTF32")
End Sub

#AppFont: materialdesignicons-webfont.ttf

Logs:
<B4IFontWrapper: <UICTFont: 0x10d102d00> font-family: "Material Design Icons"; font-weight: normal; font-style: normal; font-size: 20.00pt>


Downloaded font from: https://app.unpkg.com/@mdi/font@7.0.96/files/fonts/materialdesignicons-webfont.ttf

 

[TILogistic]

?
without using ByteConverter

test

https://github.com/twbs/icons : bootstrap icons
https://github.com/Templarian/MaterialDesign-Webfont : material design

Public Sub UnicodeToString(codepoint As Int) As String
    If codepoint < 65536 Then Return Chr(codepoint)
    codepoint = codepoint - 65536
    Dim high As Int = 55296 + Floor(codepoint / 1024)
    Dim low As Int = 56320 + (codepoint Mod 1024)
    Return Chr(high) & Chr(low)
End Sub