Sub Process_Globals
End Sub
Sub Globals
Dim test As EditText
Dim IME As IME
End Sub
Sub Activity_Create(FirstTime As Boolean)
IME.Initialize("IME")
test.Initialize("test")
test.Color = Colors.DarkGray
test.TextSize = 20
Activity.AddView(test, 0, 25%Y, 100%X, 48dip)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Private Sub IME_HeightChanged (NewHeight As Int, OldHeight As Int)
Log("IME_HeightChanged")
End Sub
My manifest is the default manifest (B4A Version 9.5; sdk level 26) plus the following line ...