Sub ShowKeyboard(B4xVw As B4XFloatTextField)
Dim vw As EditText = B4xVw <---<< it complains about the type here Types do not match (warning #22)
IMEX.ShowKeyboard(vw)
End Sub
Sub HideKeyboard
IMEX.HideKeyboard
End Sub
Sub IMEX_HeightChanged (NewHeight As Int, OldHeight As Int)
' NewHeight is the keyboard.top
Dim KeyboardVisible As Boolean
KeyboardVisible = (NewHeight < OldHeight)
If Not(KeyboardVisible) Then
' Set here the EditText1 original top position
Else
If NewHeight < (pnlOptions.Top + pnlOptions.Height) Then
pnlOptions.Top = NewHeight - pnlOptions.Height
End If
End If
End Sub