German Text und Picture mischen

Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(panelx As Panel)
mPanel = panelx
End Sub

Public Sub setBubble(Empfaenger As Boolean,gelesen As Int,leftx As Int,topx As Int,widthx As Int,Heightx As Int,text As String,id As Int) As Int
m_id = id
Dim BBLabel1 As BBLabel
Dim TextEngine As BCTextEngine
If BBLabel1.IsInitialized = False Then
BBLabel1.Initialize(Me,"Nachricht")
End If
If TextEngine.IsInitialized = False Then
TextEngine.Initialize(mPanel)
End If

BBLabel1.TextEngine = TextEngine
BBLabel1.mBase=mPanel
'Beispieltext
BBLabel1.Text = $"[FontAwesome=0xF17B size=30/] This is a BB[color=0xff006688]Label[/color] [TextSize=30]????[/TextSize]"$

Click to expand...

Error occurred on line: 1014 (BCTextEngine)
java.lang.RuntimeException: Object should first be initialized (Typeface).
at anywheresoftware.b4a.AbsObjectWrapper.getObject(AbsObjectWrapper.java:67)
at hs.Enigma.bctextengine._fonttokey(bctextengine.java:2949)
at hs.Enigma.bctextengine._getfontmetrics(bctextengine.java:662)
at hs.Enigma.bctextengine._handletextrun(bctextengine.java:3162)
at hs.Enigma.bctextengine._prepare(bctextengine.java:2840)
at hs.Enigma.bctextengine._drawtext(bctextengine.java:972)
at hs.Enigma.bblabel._redraw(bblabel.java:239)
at hs.Enigma.bblabel._parseanddraw(bblabel.java:204)
at hs.Enigma.bblabel._settext(bblabel.java:126)

Click to expand...