iOS Question Image and text on B4XSwiftButton

[tsteward]

In B4A I do the following but how do I do the same in B4I please?

Dim cs As CSBuilder
cs.Initialize
cs.Initialize.color(Colors.White).Size(20).Typeface(Typeface.FONTAWESOME).VerticalAlign(1dip).Append(Chr(0xF1EC)).Pop. _
Typeface(Typeface.DEFAULT_BOLD).Append(CRLF).Size(14).Append("Hex 2 Dec").PopAll
SwiftBtnCalc.xLBL.Text = cs

 

[Erel]

Please use [code]code here...[/code] tags when posting code.

B4X:

XUIViewsUtils.SetTextOrCSBuilderToLabel(SwiftBtnCalc.xLBL, cs)

 

[tsteward]

Sorry I did try but couldn't find the code button.

It sort of works.
Do I need separate code for B4A and B4I as typeface not available in B4I and Font not available in B4A
I'm trying to have the icon above the text, commented out code works perfectly in B4A

My Code

    LoadDrawer
'    #if b4a
'    Dim cs As CSBuilder
'    cs.Initialize
'    cs.Initialize.color(Colors.White).Size(20).Typeface(Typeface.FONTAWESOME).VerticalAlign(1dip).Append(Chr(0xF1EC)).Pop. _
'    Typeface(Typeface.DEFAULT_BOLD).Append(CRLF).Size(14).Append("Hex 2 Dec").PopAll
'    SwiftBtnCalc.xLBL.Text = cs
'    #end if
    
    Dim cs As CSBuilder
    cs.Initialize.Color(Colors.White).Font(Font.CreateFontAwesome(20)).VerticalAlign(-10).Append(Chr(0xF1EC)).Pop. _
    Font(Font.DEFAULT).Append(CRLF).Append("Hex").PopAll
    XUIViewsUtils.SetTextOrCSBuilderToLabel(SwiftBtnCalc.xLBL, cs)

 

[tsteward]

I don't know how to correct this.

Dim cs As CSBuilder
    cs.Initialize
    #if b4a
    cs.Initialize.color(Colors.White).Size(20).Typeface(Typeface.FONTAWESOME).VerticalAlign(1dip).Append(Chr(0xF1EC)).Pop. _
    Typeface(Typeface.DEFAULT_BOLD).Append(CRLF).Size(14).Append("Calculators").PopAll
    SwiftBtnCalc.xLBL.Text = cs
    #else if B4I
    cs.Initialize.Color(Colors.White).Font(Font.CreateFontAwesome(20)).VerticalAlign(1dip).Append(Chr(0xF1EC)).Pop. _
    Font(Font.DEFAULT).Append(CRLF).Append("Hex").PopAll
    XUIViewsUtils.SetTextOrCSBuilderToLabel(SwiftBtnCalc.xLBL, cs)
    #end if

So the B4A code creates this button

The B4I creates this button

 

[tsteward]

114 views but no solution....
Please is this not doable? or am I not giving enough information?

 

[TILogistic]

test:

SwiftBtnCalc.xLBL.As(Label).SizeToFit

    Dim cs As CSBuilder
    #if b4a
    cs.Initialize.Alignment("ALIGN_CENTER").color(Colors.White).Size(20).Typeface(Typeface.FONTAWESOME).VerticalAlign(1dip).Append(Chr(0xF1EC)).Pop. _
    Typeface(Typeface.DEFAULT_BOLD).Append(CRLF).Size(14).Append("Calculators").PopAll
    XUIViewsUtils.SetTextOrCSBuilderToLabel(SwiftBtnCalc.xLBL, cs)
    #else if B4I
    cs.Initialize.Alignment("ALIGN_CENTER").Color(Colors.White).Font(Font.CreateFontAwesome(20)).VerticalAlign(1dip).Append(Chr(0xF1EC)).Pop. _
    Font(Font.DEFAULT).Append(CRLF).Append("Hex").PopAll
    XUIViewsUtils.SetTextOrCSBuilderToLabel(SwiftBtnCalc.xLBL, cs)
    SwiftBtnCalc.xLBL.As(Label).SizeToFit
    #end if

 

[tsteward]

Unfortunately no change

 

[tsteward]

Thank you I tried that. Also tried selecting multi line in the designer.
I have made the button huge
It just will not display a second line in Ios

 

[TILogistic]

if you have multiline set to true

update Swiftbutton:

    Dim cs As CSBuilder
    #if b4a
    cs.Initialize.Alignment("ALIGN_CENTER").color(Colors.White).Size(20).Typeface(Typeface.FONTAWESOME).VerticalAlign(1dip).Append(Chr(0xF1EC)).Pop. _
    Typeface(Typeface.DEFAULT_BOLD).Append(CRLF).Size(14).Append("Calculators").PopAll
    XUIViewsUtils.SetTextOrCSBuilderToLabel(SwiftBtnCalc.xLBL, cs)
    #else if B4I
    cs.Initialize.Alignment("ALIGN_CENTER").Color(Colors.White).Font(Font.CreateFontAwesome(20)).VerticalAlign(1dip).Append(Chr(0xF1EC)).Pop. _
    Font(Font.DEFAULT).Append(CRLF).Append("Hex").PopAll
    XUIViewsUtils.SetTextOrCSBuilderToLabel(SwiftBtnCalc.xLBL, cs)
    #end if
    SwiftBtnCalc.Update

 

[tsteward]

I’m sorry to waste your time and do appreciate your help but no change

 

[TILogistic]

test (pop)

    Dim cs As CSBuilder
   
    #If B4A
    cs.Initialize
    cs.Alignment("ALIGN_CENTER")
    cs.Color(Colors.White)
    cs.Size(20)
    cs.Typeface(Typeface.FONTAWESOME)
    cs.Append(Chr(0xF1EC))
'    cs.Pop
    cs.Append(CRLF)
    cs.Typeface(Typeface.DEFAULT_BOLD)
    cs.Size(14)
    cs.VerticalAlign(1dip)
    cs.Append("Calculators")
    cs.PopAll
   
    SwiftBtnCalc.xLBL.As(Label).SingleLine = False
    #Else If B4I
   
    cs.Initialize
    cs.Alignment("ALIGN_CENTER")
    cs.Color(Colors.White)
    cs.Font(Font.CreateFontAwesome(20))
    cs.Append(Chr(0xF1EC))
'    cs.Pop
    cs.Append(CRLF)
    cs.Font(Font.DEFAULT_BOLD)
    cs.Font(Font.CreateNew(14))
    cs.VerticalAlign(1dip)
    cs.Append("Calculators")
    cs.PopAll
   
    SwiftBtnCalc.xLBL.As(Label).Multiline = True
    #End If

    XUIViewsUtils.SetTextOrCSBuilderToLabel(SwiftBtnCalc.xLBL, cs)
    SwiftBtnCalc.Update

 

[tsteward]

YES Thank you

 

[TILogistic]

YES Thank you

Is the csbuilder displaying well?

 

[tsteward]

Perfectly