hi all
how can i make a cam zoom with move up and down?
i m using this
if user move to up the panel give + zoom
else down - zoom?
how can i make a cam zoom with move up and down?
i m using this
B4X:
Sub paineltransparentcamera_Touch (Action As Int, X As Float, Y As Float)
Select Action
Case Activity.ACTION_DOWN
camEx.Zoom = Value / 100 * camEx.GetMaxZoom
camEx.CommitParameters
Return
Case Activity.ACTION_UP
Log("COCsssO")
Case Activity.ACTION_MOVE
Log("COCqweqweqweO")
End Select
Return True
End Sub
if user move to up the panel give + zoom
else down - zoom?