Sub Globals
Private LastImv As ImageView
Private Label1 As Label
Private anim As Animation
End Sub
Sub Activity_Create(FirstTime As Boolean)
For i = 1 To 4
Private imv As ImageView
imv.Initialize("ImageViews")
imv.Tag = i+1
imv.Bitmap = LoadBitmap(File.DirAssets,"5.png")
Activity.AddView(imv,i*20%x ,2%y,18%x,14%y)
Next
Label1.Initialize("Label1")
Activity.AddView(Label1, 20%x, 20%y, 60%x, 20%y)
Label1.Color = Colors.White
Label1.TextColor = Colors.Black
Label1.TextSize = 22
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ImageViews_Click
If LastImv.IsInitialized Then
anim.Stop(LastImv)
End If
LastImv = Sender
anim.InitializeAlpha("animAlpha" , 1 , 0.7 )
anim.Duration = 600
anim.RepeatCount = -1
anim.Start(LastImv)
Label1.Text = "yes" & " - "& LastImv.Tag
Label1.Color = Colors.Green
End Sub