Sub Globals
Dim txt As EditText
Dim tbn As ToggleButton
End Sub
Sub Activity_Create(FirstTime As Boolean)
tbn.Initialize("tbn")
tbn.TextOff = "OFF"
tbn.TextOn = "ON"
txt.Initialize("txt")
txt.Text="This is a test to see if scrolling works inside a disabled EditBox. In 2.3.3 this scrolled fine even though it was disabled."
txt.Gravity=Gravity.TOP
txt.ForceDoneButton=True
txt.Enabled=False
Activity.AddView(tbn,0,0,100,100)
Activity.AddView(txt,0,150,300,300)
End Sub
Sub tbn_CheckedChange(Checked As Boolean)
If txt.Enabled Then
txt.Enabled=False
Else
txt.Enabled=True
End If
End Sub