Spanish [SOLUCIONADO] ¿Cómo se usa MadeWithLove de las XUI Views?

vecino

Well-Known Member
Licensed User
Hola amigos, pues eso, ¿cómo se usa?
He visto un ejemplo en portugués, creo, que lo convierte en enlazable, pero no entiendo cómo hay que declararla y usarla para mostrarla en pantalla.
Saludos.
 

oparra

Well-Known Member
Licensed User
love.mBase.GetView(0) es la vista que esta en la mbase de love (panel)

Dim lbl As Label = love.mBase.GetView(0)
cs.EnableClickEvents(lbl)
lbl.Text = cs
vea:

diseño de clase: MadeWithLove

B4X:
'Base type must be Object
Public Sub DesignerCreateView (Base As Object, Lbl As Label, Props As Map)
    mBase = Base
    Tag = mBase.Tag : mBase.Tag = Me
    Dim xlbl As B4XView = Lbl
    #if B4J
      Dim tf As B4JTextFlow
    tf.Initialize
    tf.Append("Made with ")
    tf.SetFont(xlbl.Font)
    tf.SetColor(xlbl.TextColor)
    tf.Append(Chr(0xF004))
    tf.SetFont(xui.CreateFontAwesome(xlbl.TextSize))
    tf.SetColor(xui.Color_Red)
    tf.Append(" in B4X")
    tf.SetFont(xlbl.Font)
    tf.SetColor(xlbl.TextColor)
    mBase.AddView(tf.CreateTextFlow, 0, 0, mBase.Width, mBase.Height)
    #else if B4A
    Dim cs As CSBuilder
    cs.Initialize.Append("Made with ").Typeface(Typeface.FONTAWESOME).Color(xui.Color_Red).Append(Chr(0xF004)).Pop.Pop.Append(" in B4X").PopAll
    xlbl.Text = cs
    xlbl.SetTextAlignment("CENTER", "CENTER")
    mBase.AddView(xlbl, 0, 0, mBase.Width, mBase.Height)
    #else if B4i
    Dim cs As CSBuilder
    cs.Initialize.Append("Made with ").Font(Font.CreateFontAwesome(xlbl.TextSize)).Color(xui.Color_Red).Append(Chr(0xF004)).Pop.Pop.Append(" in B4X").PopAll
    Lbl.AttributedText = cs
    xlbl.SetTextAlignment("CENTER", "CENTER")
    mBase.AddView(xlbl, 0, 0, mBase.Width, mBase.Height)
    #end if
End Sub
 
Last edited:
Top