Sub Card_Click
' Using Sender we find the button that raised this event
Dim b As ImageView
Dim clickedBitmap As String
b = Sender
imgHuge.Bitmap = b.bitmap
Log ("b.bitmap = '" & b.bitmap & "'")
' When SET-card is clicked: b.bitmap = 'android.graphics.Bitmap@c5b66a9'
clickedBitmap = b.bitmap
Log ("clickedBitmap = '" & clickedBitmap & "'")
If clickedBitmap = "android.graphics.Bitmap@c5b66a9" Then
Msgbox ("SETTINGS", "")
' TODO: Open settings-activity
Else
For x = 0 To 2
For y = 0 To 4
Cards(x,y).SetVisibleAnimated(1000,False)
Next
Next
imgHuge.SetVisibleAnimated(1000,True)
End If
End Sub