Sub Affiche_les_routes
LogColor ("Affiche_les_routes ", Colors.Magenta)
Load_Polypoints 'from DB
For x=0 To polyPoints.Size-1
drawDirections(x)
Next
End Sub
Sub drawDirections (numeroRoute As Int)
' LogColor("drawDirections ",Colors.Blue)
Dim jo As JavaObject
Dim Points As List
Points.Initialize
jo.InitializeContext
Points = jo.RunMethod("decodePoly", Array(polyPoints.Get(numeroRoute)))
If Points.Size > 0 And Gmap.IsInitialized Then
pline = Gmap.AddPolyline
pline.Points = Points
' pline.Color = Colors.red
End If
End Sub