Public Sub SetSwiftButton(vSwiftButton As SwiftButton, Status As String)
Dim cImage As Char, sText As String
' Dim xImage As B4XBitmap
Select Status
Case 1
' xImage = xui.LoadBitmap(File.DirAssets, "iconup.png")
cImage = Chr(0xF01B)
sText = "Status ButtonUp"
Case 2
' xImage = xui.LoadBitmap(File.DirAssets, "icondown.png")
cImage = Chr(0xF01A)
sText = "Status ButtonDown"
Case Else
Return
End Select
'image
' Dim cs As CSBuilder
' cs.Initialize
' cs.Image(xImage, 50dip, 50dip, False)
' cs.Append(CRLF)
' cs.TypeFace(Typeface.DEFAULT)
' cs.Size(14)
' cs.Color(xui.Color_Black)
' cs.Bold
' cs.VerticalAlign(4dip)
' cs.Append(sText)
' cs.PopAll
Dim cs As CSBuilder
cs.Initialize
cs.Size(60)
cs.Alignment("ALIGN_CENTER")
cs.Color(xui.Color_Blue)
cs.TypeFace(Typeface.FONTAWESOME)
cs.Append(cImage)
cs.Append(CRLF)
cs.TypeFace(Typeface.DEFAULT)
cs.Size(14)
cs.Color(xui.Color_DarkGray)
cs.Bold
cs.VerticalAlign(4dip)
cs.Append(sText)
cs.PopAll
vSwiftButton.SetColors(xui.Color_Yellow, xui.Color_Black)
vSwiftButton.SideHeight = 10dip
vSwiftButton.xLBL.Text = cs
vSwiftButton.Update
End Sub