Sub Activity_Create(FirstTime As Boolean)
Dim ime As IME
ime.Initialize("ime")
ime.AddHeightChangedEvent
Dim pm As B4XPagesManager
pm.Initialize(Activity)
CorrectHeight = 100%y
Wait For ime_HeightChanged (NewHeight As Int, OldHeight As Int)
CorrectHeight = NewHeight
LogColor("CorrectHeight " & CorrectHeight, Colors.Blue) ' <----
End Sub
Sub ime_HeightChanged (NewHeight As Int, OldHeight As Int)
LogColor("ime_HeightChanged", Colors.Blue) ' <----
End Sub