Sub Globals
Private pnlDraw, pnlFinish As Panel
Private bmpDrawAll As Bitmap
Private ivTargets As BetterImageView
Private cv As Canvas
Private trgPoints As Int = 0
Type target(name As String,X(10) As Int,Y(10) As Int)
Private targets As target
end sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
pnlFinish.Visible = False
bmpDrawAll.Initialize(File.DirAssets,"map.gif")
Start
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Start
' initialize counters:
trgPoints = 0
' panel to draw on:
pnlDraw.Initialize("")
pnlDraw.Color = Colors.Transparent
Activity.AddView(pnlDraw,0,0,100%x,90%y)
cv.Initialize(pnlDraw) ' new canvas
Dim bmpPlus As BitmapPlus
Dim bmpDraw As Bitmap
bmpDraw = bmpPlus.createScaledBitmap(bmpDrawAll,100%x,90%y,True)
ivTargets.Initialize("ivTargets") ' new imageview
ivTargets.Bitmap = bmpDraw
Activity.AddView(ivTargets,0,0,100%x,90%y)
ivTargets.SetLayout(0,0,bmpDraw.Width,bmpDraw.Height)
' initialize targets arrays:
targets.initialize
Dim dia As InputDialog
dia.InputType = dia.INPUT_TYPE_TEXT
dia.Show("Name of the Target:","Target","OK","","",Null)
If dia.Response = DialogResponse.POSITIVE Then targets.name = dia.Input
ToastMessageShow("Start to mark waypoints", True)
End Sub
' Select target points:
Sub ivTargets_Touch(Action As Int, X As Double, Y As Double)
pnl_info.Visible = True
pnlDraw.BringToFront
If Action = Activity.ACTION_DOWN Then
Log("-----trgpoints: "&trgPoints)
cv.DrawCircle(X,Y,8,Colors.Black,True,0)
If trgPoints > 0 Then _
cv.DrawLine(targets.X(trgPoints-1),targets.Y(trgPoints-1),X,Y,Colors.Blue,3)
targets.X(trgPoints) = X : targets.Y(trgPoints) = Y
Log("*** target "&trgPoints&" x/y: "&targets.X(trgPoints)&" / "&targets.Y(trgPoints))
trgPoints = trgPoints + 1
End If
End Sub
