Sub Process_Globals
Dim fade_timer As Timer
End Sub
Sub Globals
Dim fadeBtn, b(10) As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
fade_timer.Initialize("fadetimer",100)
For i = 0 To b.Length -1
b(i).Initialize("Button")
b(i).Text = "Button " & i
Activity.AddView(b(i),0,i*50dip,150dip,50dip)
Next
End Sub
Sub Button_Click
Dim btn As Button = Sender
btn.SetVisibleAnimated(1000, False)
fadeBtn = btn
fade_timer.Interval = 1000
fade_timer.Enabled = True
End Sub
Sub fadetimer_Tick
fade_timer.Enabled = False
fadeBtn.SetVisibleAnimated(1000,True)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub