Hello,
I want to display a collection of different polygons in jgooglemaps. So far I´m able to display a polygon. But when I load the second, third and fourth one, all polygons are connected with each other.
I can´t explain to myself where the mistake could be placed. It seems that the addpolyon routine isn´t closed up or a proccess isn´t completly finished.
The displayed data are from different csv-files.
Any idea?
Best
Benedikt
I want to display a collection of different polygons in jgooglemaps. So far I´m able to display a polygon. But when I load the second, third and fourth one, all polygons are connected with each other.
B4X:
Public Sub GPoly_Set1st
Dim test As Int
Dim row(12) As Object
Dim rrow(11) As Object
Dim tc As String
Dim found As Boolean
Dim event,MLabel As String
Dim EVSel As Int
Dim Flag As String
found=False
Main.TVP2.Items.Clear
getCSVP
Log(Main.fCounter)
Main.TVLayer.SelectedRow=Main.RNoC-1 'sf.val(RNo)
test=Main.RNoC-1
Log(Main.rnoc)
row=Main.TVLayer.SelectedRowValues
Log(row(0))
Main.RNo=row(0)
Main.RNoC=Main.sf.Val(Main.RNo)
If Main.MMap(Main.RNoC-1).IsInitialized=False Then
Main.MMap(Main.RNoC-1).Initialize
End If
If Main.MMapCon.IsInitialized=False Then
Main.MMapCon.Initialize
End If
If PolP.IsInitialized=False Then
PolP.IsInitialized
End If
If PolL.IsInitialized=False Then
PolL.Initialize
End If
If Main.MMarkMap(Main.RNoC-1).IsInitialized=False Then
Main.MMarkMap(Main.RNoC-1).Initialize
End If
If Main.MMarkMapCon.IsInitialized=False Then
Main.MMarkMapCon.Initialize
End If
For i=0 To ITCountP-1
Main.TVP2.SelectedRow = i
rrow=Main.TVP2.SelectedRowvalues
Main.llat=rrow(1)
Main.llong=rrow(2)
PolP.Initialize(Main.sf.Val(Main.lLat),Main.sf.Val(Main.llong))
event=Main.REvent
If event="none" Then
MLabel=" "
Else
Select event
'Case "none"
' MLabel=""
Case "Event1"
EVSel= 4
Case "Event2"
EVSel= 5
Case "Event3"
EVSel= 6
End Select
Main.TVLayer.SelectedRow=Main.RNoC-1 'sf.Val(RNo)
row=Main.TVLayer.SelectedRowvalues
MLabel=rrow(EVSel)
rrow=Main.TVP2.SelectedRowvalues
End If
PolL.Add(PolP)
Next
'If Main.llat <> "" And Main.llong <> "" Then
Dim MP As MapPolygon =Main.gmap.AddPolygon(PolL,2,fx.Colors.Yellow,fx.Colors.yellow,0.5)
Main.MMap(Main.RNoC-1).Put(PolCount,MP)
PolCount=PolCount+1
'Dim MMarkLabel As MapPolygon = MP
'' If MLabel=" " Then
'Dim M As Marker =gmap.AddMarker2(llat, llong, "",File.GetUri(File.DirAssets,RMarkTyp))
'MMap.Put(i,M)
'MMap.Put("MMark",gmap.AddMarker2(llat,llong,"",File.GetUri(File.DirAssets,RMarkTyp))) 'MMark)
'' Dim MP As MapPolygon =Main.gmap.AddPolygon(PolP, "",File.GetUri(File.DirAssets,RMarkTyp))
'' MMap(RNoC-1).Put(i,M)
'MMapFl.Put(i,"True")
'' Else
'Label2.Text=RMarkTyp
'If t=1 Then
'If MMap.ContainsKey(i) Then
'Else
'' Dim M As Marker =gmap.AddMarker2(llat, llong, "",File.GetUri(File.DirAssets,RMarkTyp))
'Dim MMarkLabel=
'' Dim MMarkLabel As Marker = M
'SetMarkerLabel(gmap.AddMarker2(llat, llong, "",File.GetUri(File.DirAssets,RMarkTyp)),MLabel,RLColor,"18px")
'' SetMarkerLabel(M,MLabel,RLColor,"8px")
'' MMap(RNoC-1).Put(i,M)
'Main.MMarkMap(Main.RNoC-1).Put(i,MMarkLabel)
'' 'MMap(RNoC-1).Put(i,M)
'' End If
'' Label2.Text=RMarkTyp
'End If
'Next
Main.RFlag="1"
Main.TVLayer.SelectedRow=Main.RNoC-1
row=Main.TVLayer.SelectedRowvalues
row(11)=Main.RFlag
Main.TVLayer.Items.Set(Main.RNoC-1,row)
Main.MMapCon.Put(Main.RNoC-1,Main.MMap(Main.RNoC-1)) '(sf.Val(RNo),MMap)
Main.MMarkMapCon.Put(Main.RNoC-1,Main.MMarkMap(Main.RNoC-1))
''' MMapCon.Put(RNoC-1,MMap(RNoC-1)) '(sf.Val(RNo),MMap)
'MMapFl.Put(RNoC,RFlag) '(sf.Val(RNo),RFlag)
'Log("reihe: " &RNo)
'End If
'Log(fCounter)
'row=TVLayer.SelectedRowvalues
Main.TVLayer.SelectedRowValues=row
Main.TVLayer.Items.Set(Main.RNoC-1,row)
Main.TVP2.Items.Clear
'row(11)=RFlag
'row(10)=MMap
'TVLayer.Items.Set(row(10),MMap)
Log("passpoint")
't=2
End SubI can´t explain to myself where the mistake could be placed. It seems that the addpolyon routine isn´t closed up or a proccess isn´t completly finished.
The displayed data are from different csv-files.
Any idea?
Best
Benedikt
