Spanish [SOLUCIONADO]googlemaps problema al detectar click

mvera

Active Member
Licensed User
Longtime User
hola.

Estoy en mi proyecto que funciona como espera , pero se me ocurrio detectar el evento click de un punto ya cargado , para mi sorpresa no lo toma.

cuando estoy en debug legacy tira un mensaje

InfoWindowAdapter not initialized, no event handling Subs found

no se si tendra relacion directa con mi problema


dentro de mi map_ready incluyo click y drag , peros solo funciona perfecto el drag

¿cuales podrían ser la razones.?

B4X:
Sub Map_Ready


Dim OnInfoWindowClickListener1 As OnInfoWindowClickListener
      OnInfoWindowClickListener1.Initialize("OnInfoWindowClickListener1")

Dim OnMarkerDragListener1 As OnMarkerDragListener
         If OnMarkerDragListener1.IsInitialized Then
         OnMarkerDragListener1.Initialize("OnMarkerDragListener1")
         Else
           Log("NO INICIAMOS DRAG")
         End If



ensub



Sub OnInfoWindowClickListener1_Click(Marker1 As Marker)
   Log("OnInfoWindowClickListener1_Click"&Marker1.Title&" : "&Marker1.Position)
   Log("CLICK")
  
End Sub

Sub OnMarkerDragListener1_Drag(Marker1 As Marker)
   Log("OnMarkerDragListener1_Drag")
   
End Sub
 

mvera

Active Member
Licensed User
Longtime User
por el rato no me sirve tengo 5.02

Pongo el punto en el mapa con

B4X:
  Marker1=gmap.AddMarker2(latitud,longitud,"CODIGO:"&codigo,gmap.HUE_GREEN)

el cual funciona perfecto , cuando hago click sobre el aparece el "CODIGO" y me centra el punto en el mapa.

¿esto quiere decir que si funciona el evento click , pero no lo estoy llamando bien?

Saludos.
 

mvera

Active Member
Licensed User
Longtime User
ahora probe con esto dentro
Sub Map_Ready y me dice "ESTA INICIALIZAD CLICK".


B4X:
 If  OnInfoWindowClickListener1.IsInitialized Then
          Log("ESTA INICIALIZAD CLICK")
      Else
         Log("NO ESTA INICIALIZADO CLICK")
      End If
 

mvera

Active Member
Licensed User
Longtime User
ya supe .

se tiene que agregar simplemente

Sub Map_MarkerClick (SelectedMarker As Marker) As Boolean
Log(SelectedMarker.Title)
Return True
End Sub

Saludos
 
Top