B4J Question How to get Font Famyly and style

T

tanush62

Member
I know how to set Font (family, style, size)

B4X: 
Sub Process_Globals
    Public lbl1, lbl2 As B4XView
    Private xfont As B4XFont

'..........

End Sub

Sub Slider2_ValueChange (Value As Double)
    fsize2=Value
    xfont = fx.CreateFont(nfont2, fsize2, True, False)
    lbl2.Font = xfont
End Sub

But how to get Family and style (bold, italic) in code from existing label? I want to read them from already defined label. How to extract them from variable like xfont?
 
Sort by date Sort by votes
T

tanush62

Member
Erel said:
It is not possible. However you can use the label font directly and set it to other views.
Click to expand...
Found the way. Maybe it will be useful to someone.

B4X: 
  Dim af As B4XFont
   Dim xaf As String
    Dim fbold1, fitalic1 As Boolean
    Dim nfont1 As string

    af=label1.Font
    xaf = af    'Trick is here, converting B4xfont into string
    Dim xbeg, xend As Int
    xbeg = xaf.IndexOf("family=")
    xend = xaf.IndexOf(", style")
    nfont1=xaf.SubString2(xbeg+7,xend)
 
    xbeg = xaf.IndexOf("style=")
    xend = xaf.IndexOf(", size")
 
    xaf=xaf.SubString2(xbeg+6,xend)
    fbold1 = xaf.Contains("Bold")
    fitalic1 = xaf.Contains("Italic")
And it works like a charm.
 
Last edited:
Upvote 0
You must log in or register to reply here.

Similar Threads

P
  • Question
B4J Question XLUtils xlStyle font problem
Replies
4
Views
1K
pipocas
P
  • Article
B4J Library (b4j)[juuid] Get Unique hardware ID
2 3
Replies
43
Views
16K
behnam_tr
  • Article
B4J Code Snippet [JavaFX] - Metro Style CSS
Replies
11
Views
12K
Revisable5987
R
  • Locked
  • Article
B4A Library [B4X] XUI Views - Cross platform views and dialogs
4 5 6
Replies
101
Views
219K
Erel
  • Article
B4J Code Snippet Metro Style with JMetro
Replies
7
Views
7K
Rubsanpe
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…