Detecting Touch and Click separately on a panel

[Inman]

I have a panel on my activity and this is what I am trying to do

1. If the user clicks on the panel, another activity should open up

2. If the user holds a touch on the panel, another smaller panel will display like an overlay on the bottom part of the screen, providing a tool-tip. When the user releases the touch, this panel should go away

Problem is the Touch event fires for both Click and Touch. How can I detect these two separately?

 

[NJDude]

You can do this: (you can do it using the designer when creating members)

Sub Panel1_Click

    Msgbox("Tapped", "")

End Sub

Sub Panel1_LongClick

    Msgbox("Long Tap", "")

End Sub

 

[Inman]

But I need to detect when the user lifts the finger and releases the touch, so that I can hide the tool-tip overlay panel. I believe that can be done only by checking if Action parameter of Touch event is Activity.ACTION_UP.

But Touch event gets fired when the user clicks as well.

 

[Erel]

You can use this code:

Sub panel1_Touch (Action As Int, X As Float, Y As Float)
   If Action = Activity.ACTION_UP Then
      'handle ACTION_UP event
      Log("ACTION_UP")
      Dim v As View
      v = Sender
      If X > 0 AND X < v.Width AND Y > 0 AND Y < v.Height Then
         'handle CLICK event
         Log("click")
      End If
   End If
End Sub

 

[Inman]

Thanks Erel. But that still shows both Action_Up and click when I touch on the panel.

Anyway leave it. I dropped the idea and switched to toast message instead.

 

[Erel]

I thought that this was the desired behavior. It should be easy to change the above code to only raise the click event.

 

[ukimiku]

I did it like this with a panel:

Sub panel_Touch (Action As Int, x As Float, y As Float)
   dim touchstart, touchduration as long

   If Action = Activity.ACTION_UP Then
      touchduration = DateTime.Now - touchstart     ' calculate touch duration

      if touchduration < 400 then ' Short click

      else ' long click/touch

      end if
      
   Else If Action = Activity.ACTION_DOWN Then      
      touchstart = DateTime.Now           ' remember exact time of touch event
      
End If

Hope this helps.

Regards,