Spanish ¿Marcadores (Marker) con multilinea?

[Heppy]

Hola.

Estoy con los marcadores y no hay forma de hacer un multilinea.
Ni con CRLF, ni <br>, ni con Chr(13)&Chr(10), ni con \n
¿Alguien lo ha realizado alguna vez?

MiCM="Primera linea"&CRLF&"segunda linea"
Dim miMark As Marker=gmap.AddMarker2(Main.Latitud,Main.Longitud,Main.MiCM,gmap.HUE_ORANGE)

Gracias

 

[bgsoft]

Hola Heppy

Igual lo que te digo es una tonteria y ya lo hiciste, pero supongo que tienes la libreria de Google Play Services, la biblioteca GoogleMaps, y has creado el “Private Sign Key” con la clave que te dio al crearlo en google. Si no lo hiciste asi es por eso por lo que no te aparecen los marcadores, y no por que te falte o te sobre un CR o LF.
Tambien podria ser la versión de Android que estes utilizando en el dispositivo donde corres la aplicación, si la versión de Android es inferior 3.0 (API 10 o inferior) tendras que emplear código diferente.

Aqui hay un tutorial al respecto de los pasos a seguir:

http://www.b4x.com/android/forum/threads/google-maps-android-v2-tutorial.24415/



Saludos

 

[Heppy]

Gracias Jesús.

Los marcadores se ven perfectamente.

El problema es que quiero introducir en el texto del Window del Title varias lineas y solo me sale una.

Tengo que investigar googlemapsextras.

 

[bgsoft]

Hola Heppy

Añade esto y veras dos lineas, una de titulo en negrita y la segunda de comentarios

Dim MarkerOptions1 As MarkerOptions
MarkerOptions1.Initialize
MarkerOptions1.Position2(Lat, Lng).Snippet("Comentarios (2ª linea)").Title("Titulo").Visible(True)
Dim MyMarker As Marker=GoogleMapsExtras1.AddMarker(GMap, MarkerOptions1)

Te adjunto una captura especial para ti

 

[Heppy]

Jajaja. Buena imagen con currada incluida.

Muchas gracias Jesús. En cuanto termine el programa PC me pongo a modificar el de Android.

 

[Heppy]

Funciona perfectamente con dos lineas. La del título y el snippet.

Gracias Jesús.

 

[bgsoft]

Hola Heppy

Rizando el rizo, te adjunto como poner todas las lineas que quieras, color de fondo y color de letra , las lineas se crean poniendo simplemente un CRLF

 Dim InfoWindowAdapter1 As InfoWindowAdapter
 InfoWindowAdapter1.Initialize("InfoWindowAdapter1")    
 GoogleMapsExtras1.SetInfoWindowAdapter(GoogleMap1, InfoWindowAdapter1)

Sub InfoWindowAdapter1_GetInfoWindow(Marker1 As Marker) As View
  ' se utilizará la etiqueta (marcador) de información por defecto si este evento no está definido o si se devuelve Null
  Log("InfoWindowAdapter1_GetInfoWindow")    
  Dim InfoWindowLabel As Label
  InfoWindowLabel.Initialize("")
  InfoWindowLabel.Color=Colors.Red
  InfoWindowLabel.TextColor=Colors.White    
  InfoWindowLabel.Text= Marker1.Title & CRLF & Marker1.Snippet  ' aqui las lineas que quieras
  Return InfoWindowLabel
End Sub

Saludos

 

[Heppy]

Muchísimas gracias.

Una pasada tenerte activo en este foro.