Sub PannelliDatiMappe_Touch (Action As Int, X As Float, Y As Float)
Dim PannelloToccato As Panel
PannelloToccato = Sender
Dim PannellinoToccato As Panel
PannellinoToccato = Sender
If Action = Activity.ACTION_UP Then
touchduration = DateTime.Now - touchstart 'Calcola quanto è durato il click
If touchduration < 400 Then 'Se la durata è minore di 400ms allora è un click
If (PannellinoToccatoPrecedente.IsInitialized) And (PannellinoToccatoPrecedente <> PannellinoToccato) Then
PannellinoToccatoPrecedente.color=Colors.White
End If
PannellinoToccatoPrecedente = PannellinoToccato
Else 'Altrimento è un click lungo
If (PannellinoToccatoPrecedente.IsInitialized) And (PannellinoToccatoPrecedente <> PannellinoToccato) Then
PannellinoToccato.color=Colors.White
End If
End If
End If
If Action = Activity.ACTION_DOWN Then 'Salvo il momento in cui il tasto è stato toccato
touchstart = DateTime.Now
If (PannellinoToccatoPrecedente.IsInitialized) And (PannellinoToccatoPrecedente <> PannellinoToccato) Then
PannellinoToccatoPrecedente.color=Colors.White
End If
PannelloToccato.Color=Colors.ARGB (255,239,239,239)
PannellinoToccatoPrecedente = PannellinoToccato
End If
End Sub
Sub ScrollViewPannelloCentrale3_Scrollchanged(Position As Int)
PannellinoToccato.Color=Colors.White
End Sub