I would like to display a few waypoints on a map, some of them being draggable. The map does not cover the whole screen of the mobile and there are a few controls above the map rectangle.
Everything works fine as long as I don't move any waypoint, I can show or hide the map as desired. However if I move one waypoint, the controls related to the map or the waypoints are still working, but the rest of the screen seems to be frozen and any control becomes disabled.
I've been unable to attach a stack to this post, but I can describe it as follows:
One card only, with one btn "showHideMap" and one field "Waypoints".
Script of btn "showHideMap":
Code: Select all
on mouseUp
if the environment is not "mobile" then exit mouseUp
switch
case the label of me is "Show Map"
showMap
wait 10 ticks
showWaypoints
set the label of me to "Hide Map"
break
default
hideMap
hideWaypoints
set the label of me to "Show Map"
end switch
end mouseUp
Code: Select all
local tMapCreated,tAnnotationID
on preOpenCard
if the environment is mobile then
set the loc of btn "showHideMap" to item 3 of the screenRect/2,item 2 of the loc of btn "showHideMap"
set the loc of fld "Waypoints" to item 3 of the screenRect/2,item 2 of the loc of fld "Waypoints"
end if
end preOpenCard
on showMap
if tMapCreated is true then mergMKSet "visible",true else createMap
end showMap
on createMap
put "47,-2" into pMapCenter
put "850000,850000" into pRegion
mergMKCreate
mergMKSet "rect",(0,the bottom of btn "showHideMap"+26,item 3 of the screenRect ,item 4 of the screenRect)
mergMKSet "map type",satellite
mergMKSet "zoom enabled",true
-- Earlier versions only ? It seems to be ESSENTIAL that the "region" is set before the "center coordinate"
mergMKSet "region",pRegion
mergMKSet "center coordinate",item 1 of pMapCenter &","& item 2 of pMapCenter
mergMKSet "shows user location",false
wait 10 ticks
mergMKSet "visible",true
put true into tMapCreated
end createMap
on hideMap
mergMKSet "visible",false
end hideMap
on showWaypoints
set the itemDel to tab
repeat with i=1 to the number of lines of fld "Waypoints"
put item 1 of line i of fld "Waypoints" &","& item 2 of line i of fld "Waypoints" into pLoc
put "Waypoint"&&i into pTitle
if item 3 of line i of fld "Waypoints"=0 then put false into pDragPty else put true into pDragPty
put item 4 of line i of fld "Waypoints" into pPinColor
put mergMKAddAnnotation(pLoc,pTitle," ","true","false",pPinColor,pDragPty,,"true") into line i of tAnnotationID
end repeat
end showWaypoints
on hideWaypoints
repeat with i=1 to the number of lines of tAnnotationID
mergMKDeleteAnnotation line i of tAnnotationID
end repeat
put empty into tAnnotationID
end hideWaypoints
- 46 -2 0 red
48.5 -5.5 1 green
50 0 0 red
Is there anything wrong in my card script, is this a bug, is there any workaround ?
Thanks for any assistance !
I am currently using LC Business 8.1.7 and cannot use a more recent version due to a rather old Mac running MacOSX 10.11.6 and XCode 8.2.1