Sub Process_Globals
Dim timer1 As Timer
End Sub
Sub Globals
Dim count As Int = 5
Dim delta As Int = 5
Dim cnvs As Canvas
Dim rect1 As Rect
Dim pnl As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
pnl.Initialize("")
Activity.AddView(pnl,20%x,20%y,20%x,20%y)
cnvs.Initialize(pnl)
rect1.Initialize(0,0,20%x,20%y)
timer1.Initialize("timer1",30)
timer1.Enabled = True
End Sub
Sub timer1_tick
If count = 255 OR count = 0 Then delta = -delta
count = count + delta
cnvs.DrawRect(rect1,Colors.RGB(255-count,count,0),True,1)
pnl.Invalidate2(rect1)
End Sub