Event Enter
do 'MarkPoint'
Endevent
//Sample code for GxMapControl
Sub 'MarkPoint'
//Google and Yahoo Provider
&GxMapPoint = new GxMap.Point()
&GxMapPoint.PointLat = '-34.906275829530244'
&GxMapPoint.PointLong = '-56.199703216552734'
&GxMapPoint.PointDraggable = true
&GxMapPoint.PointInfowinTit = 'International GeneXus Meeting'
&GxMapPoint.PointInfowinDesc = "Radisson Montevideo Victoria Plaza Hotel - Plaza Independecia"
&GxMapPoint.PointInfowinLink = "http://genexus.com/event/"
&GxMapPoint.PointInfowinLinkDsc = "Genexus Site"
&GxMapPoint.PointInfowinImg = "http://wiki.gxtechnical.com/commwiki/servlet/apgetwikiimage?10085,3"
&GxMapPoint.PointInfowinHtml = ""
&GxMapPoint.PointVisible = true
&GxMapData.Points.Add(&GxMapPoint)
&GxMapPoint = new GxMap.Point()
&GxMapPoint.PointLat = '-34.906979714721125'
&GxMapPoint.PointLong = '-56.20288968086243'
&GxMapPoint.PointDraggable = true
&GxMapPoint.PointInfowinTit = 'La Pasiva'
&GxMapPoint.PointInfowinDesc = ""
&GxMapPoint.PointInfowinLink = ""
&GxMapPoint.PointInfowinLinkDsc = ""
&GxMapPoint.PointInfowinImg = ""
&GxMapPoint.PointInfowinHtml = "La Pasiva"
&GxMapData.Points.Add(&GxMapPoint)
//Polygons
&GxMapPolygon = new GxMap.Polygon()
&GxMapPolygon.PolygonFill = "#00AAFF"
&GxMapPolygon.PolygonFillOpacity = 0.80
&GxMapPolygon.PolygonStroke ="#FFAA00"
&GxMapPolygon.PolygonStrokeOpacity = 0.50
&GxMapPolygon.PolygonStrokeWeight = 2
&GxMapPolygon.PolygonInfowinHtml = "Plaza de la Independencia"
&GxMapPolyPath = new GxMap.Polygon.Path()
&GxMapPolyPath.PathLat = '-34.90691372574081'
&GxMapPolyPath.PathLong = '-56.198716163635254'
&GxMapPolygon.Paths.Add(&GxMapPolyPath )
&GxMapPolyPath = new GxMap.Polygon.Path()
&GxMapPolyPath.PathLat = "-34.906077860733134"
&GxMapPolyPath.PathLong = "-56.19883418083191"
&GxMapPolygon.Paths.Add(&GxMapPolyPath )
&GxMapPolyPath = new GxMap.Polygon.Path()
&GxMapPolyPath.PathLat = "-34.90617464553802"
&GxMapPolyPath.PathLong = "-56.20078682899475"
&GxMapPolygon.Paths.Add(&GxMapPolyPath )
&GxMapPolyPath = new GxMap.Polygon.Path()
&GxMapPolyPath.PathLat = "-34.90718647984938"
&GxMapPolyPath.PathLong = "-56.200679540634155"
&GxMapPolygon.Paths.Add(&GxMapPolyPath )
&GxMapPolyPath = new GxMap.Polygon.Path()
&GxMapPolyPath.PathLat = "-34.90691372574081"
&GxMapPolyPath.PathLong = "-56.198716163635254"
&GxMapPolygon.Paths.Add(&GxMapPolyPath )
&GxMapData.Polygons.Add(&GxMapPolygon )
Endsub
Event Start
&Address = 'https://maps.googleapis.com/maps/api/place/autocomplete/json?input=Mac Iver 225&types=geocode&language=cl&key=AIzaSyB8PxQRiU_ykpkZdx6cFmqP2cIT2z2MB_0'
Endevent