Private Sub Panel_LongClick
PanelLongClickHandler(Sender)
End Sub
Private Sub PanelLongClickHandler(SenderPanel As B4XView)
Dim clr As Int = GetItem(SenderPanel.Tag).Color
SenderPanel.SetColorAnimated(50, clr, PressedColor)
If xui.SubExists(CallBack, EventName & "_ItemLongClick", 2) Then
CallSub3(CallBack, EventName & "_ItemLongClick", SenderPanel.Tag, GetItem(SenderPanel.Tag).Value)
End If
Sleep(200)
SenderPanel.SetColorAnimated(200, PressedColor, clr)
End Sub