Italian Drag and Drop

Sub Globals
   Dim pnlMove As Panel
   Dim X0, Y0, X1, Y1 As Float
End Sub

Sub Activity_Create(FirstTime As Boolean)
   pnlMove.Initialize("pnlMove")
   pnlMove.Color = Colors.Yellow
   Activity.AddView(pnlMove,40%x,40%y,100dip,100dip)
End Sub

Sub Activity_Touch (Action As Int, X As Float, Y As Float)
   Dim dX, dY As Float
   Select Action
      Case Activity.ACTION_DOWN
         X0 = X
         Y0 = Y
         X1 = pnlMove.Left
         Y1 = pnlMove.Top
      Case Activity.ACTION_MOVE
         dX = X - X0
         dY = Y - Y0
         pnlMove.Left = X1 + dX
         pnlMove.Top = Y1 + dY
      Case Activity.ACTION_UP
   End Select
End Sub