Sub Globals
Dim ckbUpperCase As CheckBox
Dim edtTest1, edtTest2 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
edtTest2.InputType = Bit.Or(edtTest2.INPUT_TYPE_TEXT , 4096)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ckbUpperCase_CheckedChange(Checked As Boolean)
If Checked = True Then
edtTest1.InputType = Bit.Or(edtTest1.INPUT_TYPE_TEXT , 4096)
Else
edtTest1.InputType = edtTest1.INPUT_TYPE_TEXT
End If
End Sub