Sub Process_Globals
Dim x0, y0, pnlLeft, pnlTop As Float
End Sub
Sub Globals
Dim pnlTest As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
pnlTest.Initialize("pnlTouch")
pnlTest.Color = Colors.White
Activity.AddView(pnlTest, 100dip, 100dip, 100dip, 100dip)
End Sub
Sub Activity_Touch (Action As Int, X As Float, Y As Float)
Select Action
Case Activity.ACTION_DOWN
x0 = X
y0 = Y
pnlLeft = pnlTest.Left
pnlTop = pnlTest.Top
Case Activity.ACTION_MOVE
pnlTest.Left = pnlLeft + X - x0
pnlTest.Top = pnlTop + Y - y0
Case Activity.ACTION_UP
End Select
End Sub