B4J Question how to display underscores in MenuItems

Erel said:

B4X:

DisableMnemonicParsing(MenuBar1)

Private Sub DisableMnemonicParsing(Menu As MenuBar)
    For Each m As Menu In Menu.Menus
        DisableMnemonicParsingHelper(m)
    Next
End Sub

Private Sub DisableMnemonicParsingHelper(Menu As Menu)
    For Each m As MenuItem In Menu.MenuItems
        If m Is Menu Then DisableMnemonicParsingHelper(m)
        m.As(JavaObject).RunMethod("setMnemonicParsing", Array(False))
    Next
End Sub

View attachment 171132

Click to expand...

William Lancee said:

You can try to replace the underscore in the text with a fake one.

B4X:

    Dim fakeUL As String = " " & Chr(0x0332) & Chr(0x2009)
    Dim s As String = "A_B"
    Log(s.replace("_", fakeUL))
'A_B

Click to expand...

William Lancee said:

It works because unicode 0x0332 is a 'combining' underline. So the space character is underlined.
But the space is a little to short, so add a narrow space after - that is 0x2009

Alternatively you could have used full width low line 0xff3f, but it is a little long.

As I was testing, I realized that you could use 0x0332 for underlining letters on the fly.
I wish I had known that a long time ago.

B4X:

    Dim txt As String = "The Brown Fox Jumped Over the Lazy Dog"
    Log(underlineWords(txt, Array As String("Fox", "Dog")))
'The Brown F̲o̲x̲ Jumped Over the Lazy D̲o̲g̲

B4X:

Private Sub underlineWords(txt As String, underline() As String) As String
    For Each t As String In underline
        Dim sb As StringBuilder
        sb.initialize
        For i = 0 To t.Length - 1
            sb.Append(t.CharAt(i)).Append(Chr(0x0332))
        Next
        txt = txt.replace(t , sb.toString)
    Next
    Return txt
End Sub

Click to expand...