Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
btnJumpToParis.Enabled = False
Wait For (InitializeMap) Complete (Success As Boolean)
MapReady = Success
If MapReady Then
Log("map ready")
btnJumpToParis.Enabled = True
'gmap.AddMarker(0, 0, "Center")
' Create Polyline
Dim myPolylineOptions As PolylineOptions
myPolylineOptions.Initialize
Dim l As List
l.Initialize
myPolylineOptions.AddPoints(l)
myPolyline = MapExtra.AddPolyline(gmap, myPolylineOptions)
myPolyline.Width = 4dip
myPolyline.Color = Colors.Red
' Set up Timer
TimerPolyline.Initialize("TimerPolyline", 500)
TimerPolyline.Enabled = True
End If
End Sub