Sub Globals
Dim edt1, edt2 As EditText
Dim ime1 As IME
End Sub
Sub Activity_Create(FirstTime As Boolean)
edt1.Initialize("edt")
edt2.Initialize("edt")
Activity.AddView(edt1, 20dip, 20dip, 150dip, 50dip)
Activity.AddView(edt2, 20dip, 90dip, 150dip, 50dip)
ime1.SetCustomFilter(edt1, edt1.INPUT_TYPE_NUMBERS, "012456789.,-")
ime1.SetCustomFilter(edt2, edt2.INPUT_TYPE_DECIMAL_NUMBERS, "012456789.,-")
End Sub
Sub edt_FocusChanged (HasFocus As Boolean)
Dim edt As EditText
edt = Sender
If (HasFocus = True) Then
ime1.ShowKeyboard(edt)
Else
ime1.HideKeyboard
End If
End Sub