French Question triviale CS Builder

[Serge Bertet]

Salut les français ! J'ose pas poser ma question au raz de pâquerettes dans le forum international, je viens donc vous embêter ici ....

J'ai fait ça dans B4XMainPage :

' Build activity title
Sub AppTitle As CSBuilder
    Dim cs As CSBuilder
    cs.Initialize.Color(Colors.Black).Append(Application.LabelName)
    If Starter.DEMO_APP Then cs.Color(Colors.Red).Append(" demo ")
    cs.Color(Colors.Black).Append("version " & Application.VersionName & " - ")
    Return cs.PopAll
End Sub

et plus loin :

    If Starter.BleConnected Then
        B4XPages.SetTitle(Me, AppTitle & "Connecté.")
    Else
        B4XPages.SetTitle(Me, AppTitle & "Déconnecté.")
    End If

sauf que voilà : le titre de l'activité est d'une seule couleur au lieu d'avoir avoir le mot "demo" en rouge (sachant que Starter.DEMO_APP = true).
J'ai lu pas mal de truc là-dessus (notamment qu'il faut ajouter des cs.Pop intermédiaires pour supprimer des formatages), mais rien n'y fait.

Une idée ? Merci.

Serge

 

[klaus]

Je n'avais jamais utilisé CSBuilder.
J'ai regardé ce turoriel CharSequence / CSBuilder Tutorial et fait des tests.
Le code ci-dessous fonctionne:

    If Starter.BleConnected Then
        B4XPages.SetTitle(Me, AppTitle.Append("Connecté"))
    Else
        B4XPages.SetTitle(Me, AppTitle.Append("Déconnecté."))
    End If

' Build activity title
Sub AppTitle As CSBuilder
    Dim cs As CSBuilder
    cs.Initialize.Color(Colors.Black).Append(Application.LabelName).Pop
    If Starter.DEMO_APP Then cs.Color(Colors.Red).Append(" demo ").Pop
    cs.Color(Colors.Black).Append("version " & Application.VersionName & " - ").Pop
    Return cs
End Sub

 

[Serge Bertet]

Oui ! Génial.
Je viens tout juste de tester ça fonctionne.
Je m'étais appuyé sur le même tuto pourtant ...
Pas mal compliqué ces Pop à ajouter !
Merci Klaus.