Private Sub Panel_Touch (Action As Int, X As Float, Y As Float)
Select Action
Case 0 ' ACTION_DOWN
Dim P As Int = ((X / mBase.Width) * (MaxValue - MinValue)) + MinValue
setValue(P, True)
If SubExists(mCallBack, mEventName & "_ChangeValue") Then CallSub2(mCallBack, mEventName & "_ChangeValue", p)
Case 1 ' ACTION_UP
Ball.SetLayoutAnimated(200, Ball.Left, mBase.Height / 2, mBase.Height / 2, mBase.Height / 2)
Case 2 ' ACTION_MOVE
Dim P As Int = ((X / mBase.Width) * (MaxValue - MinValue)) + MinValue
If P < 0 Then P = 0 : If P > 100 Then P = 100
setValue(P, True)
If SubExists(mCallBack, mEventName & "_ChangeValue") Then CallSub2(mCallBack, mEventName & "_ChangeValue", p)
Case 3 ' Error
End Select
End Sub