Monkeybread Software - MBS FileMaker Plugin: MapView Click Polygons

Components	All	New	MacOS		Windows		Linux		iOS
Examples	Mac & Win		Server	Client	Guides	Statistic	FMM	Blog	Deprecated	Old

MBS FileMaker Plugin Example Databases

MapView Click Polygons

All examples are included with download of MBS FileMaker Plugin.

MapView Click Polygons.fmp12

Overview
Tables	2
Relationships	1
Layouts	2
Scripts	10
Value Lists	0
Custom Functions	0
Custom Menus	24

File Options
Default custom menu set	[Standard FileMaker Menus]
When opening file
Minimum allowed version	12.0
Login using	Account Name; Account= Admin
Allow user to save password	Off
Require iOS passcode	Off
Switch to layout	Off
Hide all toolbars	Off
Script triggers
OnFirstWindowOpen	Script: Clear
OnLastWindowClose	Off
OnWindowOpen	Off
OnWindowClose	Off
OnFileAVPlayerChange	Off
Thumbnail Settings
Generate Thumbnails	On; Temporary

Tables

Table Name	Statistics	Occurrences in Relationship Graph
MapView	3 fields defined, 7 records	MapView
Points	4 fields defined, 0 record	Points

Fields

Table Name: MapView - 3 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
Address	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German
MapID	Normal, Text	Auto-Enter: Allow editing Do not replace existing value for field (if any) Context table: MapView Calculation: Get(UUID) Validation: Only during data entry Storage: Repetitions: 1 Indexing: Minimal Automatically create indexes as needed Index Language: German		MapView	MapView=Points	Clicked
Clicked	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		MapView		Clear Clicked

Table Name: Points - 4 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
PointID	Normal, Text	Auto-Enter: Allow editing Do not replace existing value for field (if any) Context table: Points Calculation: Get(UUID) Validation: Only during data entry Storage: Repetitions: 1 Indexing: Minimal Automatically create indexes as needed Index Language: German		Points		Clicked
Latitude	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		MapView Points		Clicked Update Polygon
Longitude	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		MapView Points		Clicked Update Polygon
MapID	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: Minimal Automatically create indexes as needed Index Language: German		Points	MapView=Points	Clicked

Layout Objects: MapView

Regular Fields

Field Name: Points::Latitude

Layout Name:

MapView

Top: 62 pt
Left: 900 pt
Bottom: 83 pt
Right: 1014 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Points::Longitude

Layout Name:

MapView

Top: 62 pt
Left: 1016 pt
Bottom: 83 pt
Right: 1129 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: MapView::Clicked

Layout Name:

MapView

Top: 418 pt
Left: 897 pt
Bottom: 522 pt
Right: 1129 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: MapView::MapID

Layout Name:

MapView

Top: 535 pt
Left: 72 pt
Bottom: 556 pt
Right: 325 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Type:

Text: Create MapView

Layout Name:

MapView

Top: 14 pt
Left: 53 pt
Bottom: 44 pt
Right: 188 pt

Anchoring: Left, Top

Perform Script [ “Create with Control” ]

Scripts:

Create with Control

Button Properties

Coordinates

Script/Script Step

Type:

Text: Clear

Layout Name:

MapView

Top: 536 pt
Left: 900 pt
Bottom: 558 pt
Right: 1002 pt

Anchoring: Left, Top

Perform Script [ “Clear” ]

Scripts:

Clear

Table:

Points

Layout Name:

MapView

Top: 59 pt
Left: 897 pt
Bottom: 411 pt
Right: 1132 pt

Anchoring: Left, Top

Field Objects

Points::Latitude at (62, 900, 83, 1014)
Points::Longitude at (62, 1016, 83, 1129)

Sort records: Off
Filter calculation: None
Initial Row: 1
Number of Rows: 14

Graphic Objects

Graphic Object Properties

Coordinates

Object Name:

PlaceHolder

Type:

Rectangle

Layout Name:

MapView

Hide Condition:

Top: 59 pt
Left: 16 pt
Bottom: 522 pt
Right: 886 pt

Anchoring: Left, Top

Layout Objects: Points

Regular Fields

Field Name: Points::PointID

Layout Name:

Points

Top: 54 pt
Left: 7 pt
Bottom: 75 pt
Right: 260 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Points::Latitude

Layout Name:

Points

Top: 54 pt
Left: 267 pt
Bottom: 75 pt
Right: 373 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Points::Longitude

Layout Name:

Points

Top: 54 pt
Left: 380 pt
Bottom: 75 pt
Right: 486 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Points::MapID

Layout Name:

Points

Top: 54 pt
Left: 493 pt
Bottom: 75 pt
Right: 746 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Next Script: [Show USA]

Script Name	Create with Control
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	MapView
Scripts that use this script
Script Definition
Script Steps	#Create MapView with a control called "PlaceHolder" Set Variable [ $$MapView; Value:MBS("MapView.CreateWithControl"; 0; "PlaceHolder") ] #Set the scripttrigger. If you click into the Mapview the script "Clicked" will be called Set Variable [ $r; Value:MBS("MapView.SetScript"; $$MapView; Get(FileName); "Clicked") ] #show USA Set Variable [ $r; Value:MBS( "MapView.SetCoordinate"; $$MapView; 39,5; -101,5; 3; 1 ) ]
Fields used in this script
Scripts used in this script
Layouts used in this script
Tables used in this script
Table occurrences used by this script
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Create with Control]

Next Script: [Close]

Script Name	Show USA
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	#Set the coordinates of the area you want to see (here USA) Set Variable [ $r; Value:MBS( "MapView.SetCoordinate"; $$MapView; 39,5; -101,5; 4; 1 ) ]
Fields used in this script
Scripts used in this script
Layouts used in this script
Tables used in this script
Table occurrences used by this script
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Show USA]

Next Script: [Clear]

Script Name	Close
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	#Release of the MapView If [ Length ( $$MapView) > 0 ] Set Variable [ $r; Value:MBS("MapView.Release"; $$MapView) ] Set Variable [ $$MapView; Value:"" ] End If
Fields used in this script
Scripts used in this script
Layouts used in this script
Tables used in this script
Table occurrences used by this script
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Close]

Next Script: [Close All]

Script Name	Clear
Run script with full access privileges	Off
Include In Menu	No
Layouts that use this script	MapView
Scripts that use this script
Script Definition
Script Steps	#Delete all points we have save in our list and remove all pins and the overlay from the map Truncate Table [ No dialog; Table: “Points” ] If [ Length ( $$MapView ) > 0 ] Set Variable [ $r; Value:MBS( "MapView.RemoveAnnotations"; $$MapView ) ] Set Variable [ $r; Value:MBS( "MapView.RemoveOverlays"; $$MapView ) ] End If Set Variable [ $$Polygon; Value:"" ] #remove the last JSON from a click Set Field [ MapView::Clicked; "" ] Commit Records/Requests [ No dialog ]
Fields used in this script	MapView::Clicked
Scripts used in this script
Layouts used in this script
Tables used in this script	MapView
Table occurrences used by this script	MapView
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Clear]

Next Script: [Hide]

Script Name	Close All
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	#Release all MapViews in our solution Set Variable [ $r; Value:MBS("MapView.ReleaseAll") ] Set Variable [ $$MapView; Value:"" ]
Fields used in this script
Scripts used in this script
Layouts used in this script
Tables used in this script
Table occurrences used by this script
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Close All]

Next Script: [Show]

Script Name	Hide
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	Set Variable [ $r; Value:MBS("MapView.SetVisible"; $$MapView; 0) ] #Hide the Mapview
Fields used in this script
Scripts used in this script
Layouts used in this script
Tables used in this script
Table occurrences used by this script
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Hide]

Next Script: [Remove Annotations]

Script Name	Show
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	#Set the Mapview if it was hide visible Set Variable [ $r; Value:MBS("MapView.SetVisible"; $$MapView; 1) ]
Fields used in this script
Scripts used in this script
Layouts used in this script
Tables used in this script
Table occurrences used by this script
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Show]

Next Script: [Clicked]

Script Name	Remove Annotations
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	#Remove all annotations and overlays in our Mapview Set Variable [ $r; Value:MBS( "MapView.RemoveAnnotations"; $$MapView ) ] Set Variable [ $r; Value:MBS( "MapView.RemoveOverlays"; $$MapView ) ]
Fields used in this script
Scripts used in this script
Layouts used in this script
Tables used in this script
Table occurrences used by this script
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Remove Annotations]

Next Script: [Update Polygon]

Script Name	Clicked
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	#Script called by mouse clicks in map Set Variable [ $json; Value:Get(ScriptParameter) ] #With every click we got a JSON with informations about the click, we seperate this informations and save it in Variabels Set Field [ MapView::Clicked; $json ] If [ Length ( $json ) = "" ] #run without parameter? Exit Script [ ] End If #clicked on something? Set Variable [ $latitude; Value:JSONGetElement ( $json ; "latitude" ) ] Set Variable [ $longitude; Value:JSONGetElement ( $json ; "longitude" ) ] Set Variable [ $reason; Value:JSONGetElement ( $json ; "reason" ) ] Set Variable [ $annotationIdentifier; Value:JSONGetElement ( $json ; "annotationIdentifier" ) ] #If we moved the annotaion this part will run If [ $reason = "AnnotationMoved" ] #update a coordinate Set Variable [ $r; Value:MBS( "FM.UpdateRecord"; Get(FileName); "Points"; "PointID"; $AnnotationIdentifier; "Latitude"; $latitude; "Longitude"; $longitude ) ] If [ Length ( $$polygon ) > 0 ] Perform Script [ “Update Polygon” ] End If Exit Script [ ] Else If [ $reason = "AnnotationSelected" ] #do nothing? Exit Script [ ] Else If [ $reason = "Click" or $reason = "Touch" ] #add new point to record. We use a card window to avoid layout being changed New Window [ Style: Card; Using layout: <Current Layout>; Close: Yes; Minimize: No; Maximize: No; Resize: No; Menu Bar: No; Dim parent window: Yes; Toolbars: No ] Set Variable [ $mapID; Value:MapView::MapID ] Go to Layout [ “Points” (Points) ] New Record/Request Set Field [ Points::Latitude; $latitude ] Set Field [ Points::Longitude; $longitude ] Set Field [ Points::MapID; $mapID ] Commit Records/Requests [ No dialog ] Set Variable [ $annotationUUID; Value:Points::PointID ] Go to Layout [ original layout ] Close Window [ Current Window ] #add new point Set Variable [ $j; Value:"{}" ] Set Variable [ $j; Value:JSONSetElement ( $j ; "longitude" ; $longitude; JSONNumber ) ] Set Variable [ $j; Value:JSONSetElement ( $j ; "latitude" ; $latitude; JSONNumber ) ] Set Variable [ $j; Value:JSONSetElement ( $j ; "draggable" ; 1; JSONNumber ) ] Set Variable [ $j; Value:JSONSetElement ( $j ; "identifier" ; $annotationUUID; JSONString ) ] Set Variable [ $annotationIdentifier; Value:MBS( "MapView.AddPoint"; $$MapView; $j ) ] #add new polygon Set Variable [ $n; Value:"{}" ] Set Variable [ $n; Value:JSONSetElement ( $n ; "longitude" ; $longitude; JSONNumber ) ] Set Variable [ $n; Value:JSONSetElement ( $n ; "latitude" ; $latitude; JSONNumber ) ] If [ Length ( $$polygon ) = 0 ] #create polygon Set Variable [ $a; Value:"[]" ] Set Variable [ $a; Value:MBS( "JSON.AddItemToArray"; $a; $n ) ] Set Variable [ $j; Value:"{ \"strokeColor\": \"#FF000077\" }" ] Set Variable [ $j; Value:MBS( "JSON.AddItemToObject"; $j; "coordinates"; $a ) ] Set Variable [ $$polygon; Value:MBS( "MapView.AddPolygon"; $$MapView; $j ) ] Else #update points Set Variable [ $j; Value:MBS( "MapView.GetOverlayPoints"; $$MapView; $$polygon) ] If [ MBS("IsError") = 0 ] Set Variable [ $j; Value:JSONGetElement ( $j ; "points" ) ] Set Variable [ $j; Value:MBS( "JSON.AddItemToArray"; $j; $n ) ] Set Variable [ $r; Value:MBS( "MapView.SetOverlayPoints"; $$MapView; $$polygon; $j ) ] End If End If End If
Fields used in this script	MapView::Clicked MapView::MapID Points::Latitude Points::Longitude Points::MapID Points::PointID
Scripts used in this script	Update Polygon
Layouts used in this script	Points
Tables used in this script	MapView Points
Table occurrences used by this script	MapView Points
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Clicked]

Script Name	Update Polygon
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script	Clicked
Script Definition
Script Steps	#update polygon from records Set Variable [ $a; Value:"[]" ] Go to Related Record [ From table: “Points”; Using layout: “Points” (Points) ] Go to Record/Request/Page [ First ] Loop Set Variable [ $j; Value:"{}" ] Set Variable [ $j; Value:JSONSetElement ( $j ; "longitude" ; Points::Longitude; JSONNumber ) ] Set Variable [ $j; Value:JSONSetElement ( $j ; "latitude" ; Points::Latitude; JSONNumber ) ] Set Variable [ $a; Value:MBS( "JSON.AddItemToArray"; $a; $j ) ] Go to Record/Request/Page [ Next; Exit after last ] End Loop Go to Layout [ original layout ] Set Variable [ $r; Value:MBS( "MapView.SetOverlayPoints"; $$MapView; $$polygon; $a ) ]
Fields used in this script	Points::Longitude Points::Latitude
Scripts used in this script
Layouts used in this script	Points
Tables used in this script	Points
Table occurrences used by this script	Points
Custom Functions used by this script
Custom menu set used by this script

Download example: MapView Click Polygons

Used functions: