diff --git a/Files/layout.bal b/Files/layout.bal index 583078f..c148cb0 100644 Binary files a/Files/layout.bal and b/Files/layout.bal differ diff --git a/Pusher.b4a b/Pusher.b4a index a241d73..34141c3 100644 --- a/Pusher.b4a +++ b/Pusher.b4a @@ -177,6 +177,10 @@ Sub Globals Private rutaSeleccionada As String = "" Private p_contenedor1 As Panel Private cb_puntosIntermedios As CheckBox + Private p_addGeofence As Panel + Private et_gc_nombre As EditText + Private b_gc_cancelar As Button + Private b_gc_ok As Button End Sub Sub Activity_Create(FirstTime As Boolean) 'ignore @@ -524,6 +528,13 @@ Sub MapFragment1_Ready ' Subs.mueveCamaraMapa(MapFragment1, latmarker, longmarker) End Sub +Sub MapFragment2_LongClick(Point As LatLng) + Log("LONG: " & Point) + p_addGeofence.BringToFront + p_addGeofence.Left = (Activity.Width / 2) - (p_addGeofence.Width / 2) + p_addGeofence.Visible = True +End Sub + Sub InfoWindowAdapter1_GetInfoContents(Marker1 As Marker) As View ' the default InfoContent will be used if this event Sub is not defined or if it returns Null ' Log("InfoWindowAdapter1_GetInfoContents") @@ -769,4 +780,15 @@ End Sub Private Sub s_rutas_ItemClick (Position As Int, Value As Object) rutaSeleccionada = Value +End Sub + +Private Sub p_addGeofence_Click +End Sub + +Private Sub b_gc_ok_Click + p_addGeofence.Visible = False +End Sub + +Private Sub b_gc_cancelar_Click + p_addGeofence.Visible = False End Sub \ No newline at end of file