For i = 0 To prefdialog.PrefItems.Size - 1
Dim pi As B4XPrefItem = prefdialog.PrefItems.Get(i)
If pi.ItemType = prefdialog.TYPE_TEXT Then
Dim ft As B4XFloatTextField = prefdialog.CustomListView1.GetPanel(i).GetView(0).Tag
Dim et As EditText= ft.TextField 'expose native text view
et.InputType = Bit.Or(et.InputType, 144) 'this one works on my samsung tablet
' et.InputType = Bit.Or(et.InputType, 524288) 'or this one if above number does not do it
End If
Next