Android Question Make edittext emoji for chat

Peter Simpson said:

You should use the search box at the top of the page, you'll be surprised at what you can find in less than 20 seconds

https://www.b4x.com/android/forum/t...ution-for-display-emoji-in.61083/#post-385373

Click to expand...

Peter Simpson said:

You should use the search box at the top of the page, you'll be surprised at what you can find in less than 20 seconds

https://www.b4x.com/android/forum/t...ution-for-display-emoji-in.61083/#post-385373

Click to expand...

Peter Simpson said:

Build your own emoji list of characters using Erels code example and display them to the user to select one. I would probably use a 'Sender' (for code neatness) when deciding which Emoji was selected by the user in the click event.

Using code from Erel.

B4X:

Sub Globals
    Private LblEmoji(79) As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    For i = 0 To 78
        LblEmoji(i).Initialize("LblEmoji")
        LblEmoji(i).Tag = "Emoji " & i
        LblEmoji(i).Text = UTS(0x1F600 + i)
  
        Activity.AddView(LblEmoji(i), 100%x / 2 - 10dip, i * 25dip, 20dip, 20dip)
        Log(UTS(0x1F600 + i))
    Next
End Sub

Sub UTS (codepoint As Int) As String
    Dim bc As ByteConverter
    Dim b() As Byte = bc.IntsToBytes(Array As Int(codepoint))
    Return BytesToString(b, 0, 4, "UTF32")
End Sub

Sub LblEmoji_Click
    Dim i As Label = Sender
    Log($"Tapped ${i.Tag}"$)
End Sub

Spoiler: Screen shot

The screen shot below is NOT for the code above, but it does use Erels UTS(x) code.

View attachment 63823

Enjoy...

Click to expand...

For i = 0 To 78
        LblEmoji(i).Initialize("LblEmoji")
        LblEmoji(i).Tag = "Emoji " & i
        LblEmoji(i).Text = UTS(0x1F600 + i)
  
        Activity.AddView(LblEmoji(i), 100%x / 2 - 10dip, i * 25dip, 20dip, 20dip)
        Log(UTS(0x1F600 + i))
    Next

Pooya1 said:

only 78 emoji?

Click to expand...

Peter Simpson said:

Exactly how many emoji's do you need, just play with the numbers...

View attachment 63852

Click to expand...