Sub Globals
Dim button1 As Button
Dim eventCounter As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
activity.Color=Colors.LightGray
button1.Initialize("button1")
button1.Color=Colors.Black
activity.AddView(button1,50dip,50dip,100dip,100dip)
button1.Text="TEST"
button1.TextColor=Colors.White
eventCounter=0
End Sub
Sub button1_down
button1.Color=Colors.Red
Log("down")
End Sub
Sub button1_up
button1.color=Colors.Black
Log("up")
End Sub
Sub button1_click
button1.color=Colors.Black
Log("click")
eventCounter=eventCounter+1
Log("event: "&eventCounter)
End Sub