Monkeybread Software - MBS FileMaker Plugin: Popup Menu

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

MBS FileMaker Plugin Example Databases

Popup Menu

All examples are included with download of MBS FileMaker Plugin.

Popup Menu.fmp12

Overview
Tables	1
Relationships	0
Layouts	1
Scripts	3
Value Lists	0
Custom Functions	0
Custom Menus	33

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	Off
OnLastWindowClose	Off
OnWindowOpen	Off
OnWindowClose	Off
OnFileAVPlayerChange	Off
Thumbnail Settings
Generate Thumbnails	On; Temporary

Tables

Table Name	Statistics	Occurrences in Relationship Graph
Popup Menu	2 fields defined, 1 record	Popup Menu

Fields

Table Name: Popup Menu - 2 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
logo	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1		Popup Menu		BuildMenu
FormattedText	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Popup Menu		BuildMenu

Layout Objects: Popup Menu

Regular Fields

Field Name: Popup Menu::logo

Layout Name:

Popup Menu

Top: 144 pt
Left: 138 pt
Bottom: 269 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Field Name: Popup Menu::FormattedText

Layout Name:

Popup Menu

Top: 270 pt
Left: 138 pt
Bottom: 284 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Type:

Text: Show Popup Menu

Layout Name:

Popup Menu

Additional Properties:

Change to hand cursor over button
Rectangular

Top: 108 pt
Left: 270 pt
Bottom: 139 pt
Right: 409 pt

Anchoring: Left, Top

Perform Script [ “ShowMenu” ]

Scripts:

ShowMenu

Next Script: [BuildMenu]

Script Name	ShowMenu
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	Popup Menu
Scripts that use this script
Script Definition
Script Steps	Set Variable [ $m; Value:MBS("Menu.ReleaseAll") ] Perform Script [ “BuildMenu” ] Set Variable [ $menu; Value:Get(ScriptResult) ] Set Variable [ $m; Value:MBS("Menu.PopUp"; $Menu; "mouse") ] // Set Variable [ $m; Value:MBS("Menu.Release"; $Menu; 1) ]
Fields used in this script
Scripts used in this script	BuildMenu
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: [ShowMenu]

Next Script: [MenuScript]

Script Name	BuildMenu
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script	ShowMenu
Script Definition
Script Steps	# create menu Set Variable [ $menu; Value:MBS("Menu.CreateMenu") ] # create menu items... Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "Hello World") ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "Disabled item") ] Set Variable [ $r; Value:MBS("MenuItem.SetEnabled"; $item; 0) ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "Call script") ] Set Variable [ $r; Value:MBS("MenuItem.SetScriptAction"; $item; Get(FileName); "MenuScript") ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "With Image") ] Set Variable [ $r; Value:MBS("MenuItem.SetImage"; $item; Popup Menu::logo) ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $item; Value:MBS("MenuItem.CreateSeparator") ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "With Tooltip") ] Set Variable [ $r; Value:MBS("MenuItem.SetToolTip"; $item; "This is sample tooltip.") ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "With Special Font") ] Set Variable [ $r; Value:MBS("MenuItem.ApplyFont"; $item; "Zapfino"; 13) ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "With Key Equivalent") ] Set Variable [ $r; Value:MBS("MenuItem.SetKeyEquivalent"; $item; "T") ] Set Variable [ $ShiftKeyMask; Value:131072 ] Set Variable [ $ControlKeyMask; Value:262144 ] Set Variable [ $AlternateKeyMask; Value:524288 ] Set Variable [ $CommandKeyMask; Value:1048576 ] Set Variable [ $r; Value:MBS("MenuItem.SetKeyEquivalentModifierMask"; $item; $ShiftKeyMask + $CommandKeyMask) ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "") ] Set Variable [ $r; Value:MBS("MenuItem.SetAttributedTitle"; $item; Popup Menu::FormattedText) ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "With State Off") ] Set Variable [ $r; Value:MBS("MenuItem.SetState"; $item; "off") ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "With State Mixed") ] Set Variable [ $r; Value:MBS("MenuItem.SetState"; $item; "mixed") ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "With State On") ] Set Variable [ $r; Value:MBS("MenuItem.SetState"; $item; "on") ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "With State Bullet") ] Set Variable [ $r; Value:MBS("MenuItem.SetState"; $item; "bullet") ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "With State Diamond") ] Set Variable [ $r; Value:MBS("MenuItem.SetState"; $item; "diamond") ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "Bold item") ] Set Variable [ $r; Value:MBS("MenuItem.SetBold"; $item; 1) ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "Italic item") ] Set Variable [ $r; Value:MBS("MenuItem.Setitalic"; $item; 1) ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "Underline item") ] Set Variable [ $r; Value:MBS("MenuItem.SetUnderline"; $item; 1) ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "Font Size 9") ] Set Variable [ $r; Value:MBS("MenuItem.SetFontSize"; $item; 9) ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "Red Color") ] Set Variable [ $r; Value:MBS("MenuItem.SetFontColor"; $item; "#FF0000") ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Set Variable [ $submenu; Value:MBS("Menu.CreateMenu") ] Set Variable [ $r; Value:MBS("Menu.SetScriptAction"; $submenu; Get(FileName); "MenuScript") ] Set Variable [ $subitem; Value:MBS("MenuItem.CreateMenuItem"; "This is inside submenu") ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $submenu; $subitem) ] Set Variable [ $r; Value:MBS("Menu.AddItems"; $submenu; "1" & ¶ & "2" & ¶ & "3" & ¶ & "4" & ¶ & "5") ] Set Variable [ $item; Value:MBS("MenuItem.CreateMenuItem"; "With Submenu") ] Set Variable [ $r; Value:MBS("MenuItem.SetSubmenu"; $item; $submenu) ] Set Variable [ $r; Value:MBS("Menu.AddItem"; $menu; $item) ] Exit Script [ Result: $menu ]
Fields used in this script	Popup Menu::logo Popup Menu::FormattedText
Scripts used in this script
Layouts used in this script
Tables used in this script	Popup Menu
Table occurrences used by this script	Popup Menu
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [BuildMenu]

Script Name	MenuScript
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 [ $item; Value:Get(ScriptParameter) ] Show Custom Dialog [ Title: "Menu Item Selected"; Message: "You selected: " & MBS("MenuItem.GetTitle"; $item); Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ]
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

Download example: Popup Menu

Used functions: