Sub Initialize(Activity As Activity, v As View)
innerView = v
panel1.Initialize("pnl2")
panel1.Color = Colors.Transparent
Activity.AddView(panel1, v.Left, v.Top, v.Width, v.Height)
ACTION_DOWN = Activity.ACTION_DOWN
ACTION_MOVE = Activity.ACTION_MOVE
ACTION_UP = Activity.ACTION_UP
'action_click=activity.
Dim r As Reflector
r.Target = panel1
r.SetOnClickListener("IV_onClick")
r.SetOnTouchListener("Panel1_Touch") 'why reflection instead of the regular Panel_Touch event? Good question which deserves a forum thread of its own (not related to classes)...
End Sub
Private Sub Panel1_Touch (o As Object, action As Int, x As Float, y As Float, motion As Object) As Boolean
If action = ACTION_DOWN Then
downx = x
downy = y
Else
innerView.Left = innerView.Left + x - downx
innerView.Top = innerView.Top + y - downy
panel1.Left = innerView.Left
panel1.Top = innerView.Top
End If
Return True
End Sub
Public Sub IV_onClick(o As Object)
Msgbox("This click has been trapped by your class", "Clicked")
End Sub