Android Question Title Bar - how to colour some text ?

[amorosik]

On the title bar of my app I have strings that inform the user about the app status
One of these information is Connected / Disconnected
Something like
"Connected 10 tel:01234567 Wifi:OK .."
I would like to be able to change only the text (or background) color only of the word Connected in the title bar
How do I write 'Connected' with a different color (or background) from the rest of the title bar text?

 

[TILogistic]

?

CharSequence / CSBuilder Tutorial

B4A v6.80 adds several new features related to the ability to format rich strings. CharSequence is a native interface in Android SDK. A String is one implementation of CharSequence. There are other implementations of CharSequence that provide more features and allow us to format the string...

www.b4x.com

    Dim cs As CSBuilder
    cs.Initialize
    cs.Color(Colors.Red)
    cs.Append("Hello ")
    cs.Bold
    cs.Color(Colors.Blue)
    cs.Append("Colorfull ")
    cs.Pop.Pop 'two pops: the first removes the green color and the second removes the bold style
    cs.Append("World!")
    cs.PopAll
    B4XPages.SetTitle(Me, cs)

 

[TILogistic]

demo actionbar and statusbar

Private Sub Button1_Click
    SetStatusBarColor(Rnd(0xFF000000, 0))
    SetActionBarColor(Rnd(0xFF000000, 0))
End Sub

Public Sub SetActionBarColor(Color As Int)
    Dim cd As ColorDrawable
    cd.Initialize(Color, 0)
    Dim actionbar As JavaObject = B4XPages.GetManager.ActionBar
    If actionbar.IsInitialized Then
        actionbar.RunMethod("setBackgroundDrawable", Array(cd))
    End If
End Sub

Public Sub SetStatusBarColor(clr As Int)
    Dim p As Phone
    If p.SdkVersion >= 21 Then
        Dim jo As JavaObject
        jo.InitializeContext
        Dim window As JavaObject = jo.RunMethodJO("getWindow", Null)
        window.RunMethod("addFlags", Array (0x80000000))
        window.RunMethod("clearFlags", Array (0x04000000))
        window.RunMethod("setStatusBarColor", Array(clr))
    End If
End Sub

 

[amorosik]

demo actionbar and statusbar

Private Sub Button1_Click
    SetStatusBarColor(Rnd(0xFF000000, 0))
    SetActionBarColor(Rnd(0xFF000000, 0))
End Sub

Public Sub SetActionBarColor(Color As Int)
    Dim cd As ColorDrawable
    cd.Initialize(Color, 0)
    Dim actionbar As JavaObject = B4XPages.GetManager.ActionBar
    If actionbar.IsInitialized Then
        actionbar.RunMethod("setBackgroundDrawable", Array(cd))
    End If
End Sub

Public Sub SetStatusBarColor(clr As Int)
    Dim p As Phone
    If p.SdkVersion >= 21 Then
        Dim jo As JavaObject
        jo.InitializeContext
        Dim window As JavaObject = jo.RunMethodJO("getWindow", Null)
        window.RunMethod("addFlags", Array (0x80000000))
        window.RunMethod("clearFlags", Array (0x04000000))
        window.RunMethod("setStatusBarColor", Array(clr))
    End If
End Sub

View attachment 120068

Excellent, may thanks