Spanish [SOLUCIONADO] Iconos en toolbar

    Dim Titulo As CSBuilder
    
    Titulo.Initialize
    Titulo.Typeface(Typeface.FONTAWESOME).Append(Chr(0xF007)).PopAll
    
    B4XPages.SetTitle(Me, Titulo)

Public Sub TextToBitmap (s As String, IsMaterialIcons As Boolean, FontSize As Float, color As Int) As Bitmap
    Dim bmp As Bitmap
    bmp.InitializeMutable(32dip, 32dip)
    Dim cvs As Canvas
    cvs.Initialize2(bmp)
    Dim h As Double
    Dim t As Typeface
    If IsMaterialIcons Then t = Typeface.MATERIALICONS Else t = Typeface.FONTAWESOME
    h = cvs.MeasureStringHeight(s, t, FontSize)
    cvs.DrawText(s, bmp.Width / 2, bmp.Height / 2 + h / 2, t, FontSize, color, "CENTER")
    Return bmp
End Sub

    Dim bd As BitmapDrawable
    bd.Initialize(TextToBitmap(Chr(0xF2BA),False, 26,Colors.Red))

Sub GetSelectedRecord (inicioSesion As String)
'    EN ESTA RUTINA MUESTRO TODOS LOS DATOS SUBIDOS A MYSQL Y QUIERO MOSTRAR TAMBIEN EN IMAGEVIEW LA IMAGEN SELECCIONADA
    Dim req As DBRequestManager = CreateRequest
    Dim cmd As DBCommand = CreateCommand("selectedSesionON", Array(inicioSesion))
    Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
    ProgressDialogShow("Cargando...")
    If j.Success Then
        req.HandleJobAsync(j, "req")
        Wait For (req) req_Result(res As DBResult)
        'work with result
        req.PrintTable(res)
'        Log(res.Columns)
        For Each row() As Object In res.Rows
            
            NombreYapellido  = ("   " & row(1) & " " & row(2))
            Dim Titulo As CSBuilder
            Titulo.Initialize
            Titulo.Typeface(Typeface.MATERIALICONS).Append(Chr(0xF007)).PopAll
            Titulo.Append(NombreYapellido)
            B4XPages.SetTitle(Me, Titulo)
            
        Next
    Else
        Log("ERROR: " & j.ErrorMessage)
    End If
    ProgressDialogHide
    j.Release
End Sub