Sub paineltransparentcamera_Touch (Action As Int, X As Float, Y As Float) As Boolean
Select Case Action
Case Activity.ACTION_DOWN
If FocusSupported Then
Dim rect1 As Rect
Dim myleft As Int
Dim mytop As Int
myleft = 20%x
mytop = Min(Max((Y/paineltransparentcamera.height)*2000 - 1000 -100, -1000),800)
pnfocus.Top = paineltransparentcamera.Top + Y -paineltransparentcamera.height/16
pnfocus.Left = paineltransparentcamera.Left + X -paineltransparentcamera.width/20
pnfocus.width = 20%x
pnfocus.height = paineltransparentcamera.height/8
pnfocus.Visible = False
pnfocus.Visible = True
focuscolor = Colors.white
cvsDrawing.Drawline( 0,0,0,pnfocus.height ,focuscolor, 2dip)
cvsDrawing.DrawLine( 0, 0,pnfocus.width, 0 ,focuscolor,2dip)
cvsDrawing.DrawLine( pnfocus.width, pnfocus.height,0, pnfocus.height ,focuscolor,2dip)
cvsDrawing.DrawLine( pnfocus.width, pnfocus.height,pnfocus.width, 0 ,focuscolor,2dip)
rect1.Initialize(myleft,mytop,myleft + 20%x , mytop + 200)
camEx.SetFocusArea(rect1, 1000 )
camEx.setFocusMode("auto")
camEx.commitparameters
camEx.focus
End If
Return True
Case Activity.ACTION_MOVE
camEx.Zoom = porcentagem(Y)
camEx.CommitParameters
Return True
End Select
Return True
End Sub