Monkeybread Software - MBS FileMaker Plugin: Click Points

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

MBS FileMaker Plugin Example Databases

Click Points

All examples are included with download of MBS FileMaker Plugin.

Click Points.fmp12

Overview
Tables	2
Relationships	1
Layouts	2
Scripts	5
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	Off
OnLastWindowClose	Off
OnWindowOpen	Off
OnWindowClose	Off
OnFileAVPlayerChange	Off
Thumbnail Settings
Generate Thumbnails	On; Temporary

Tables

Table Name	Statistics	Occurrences in Relationship Graph
Image	6 fields defined, 1 record	Image
Dot	5 fields defined, 0 record	Dot

Fields

Table Name: Image - 6 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
Image	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1		Image		Refresh Convert PDF to Image Clear
Mouse X	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Image		Click
Mouse Y	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Image		Click
Original Image	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1		Image		Refresh Convert PDF to Image Clear
ImageID	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: All Index Language: German		Image	Dot=Image	Click
PDF	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1		Image		Convert PDF to Image

Table Name: Dot - 5 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
Name	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Image Dot		Click
X	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Image Dot		Click Refresh
Y	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Image Dot		Click Refresh
Color	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Image Dot		Click Refresh
ImageID	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: All Index Language: German		Dot	Dot=Image	Click

Layout Objects: Image

Regular Fields

Field Name: Image::Image

Layout Name:

Image

Top: 62 pt
Left: 148 pt
Bottom: 542 pt
Right: 788 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

Field Name: Image::Mouse X

Layout Name:

Image

Top: 255 pt
Left: 64 pt
Bottom: 276 pt
Right: 148 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: Image::Mouse Y

Layout Name:

Image

Top: 278 pt
Left: 64 pt
Bottom: 299 pt
Right: 148 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: Image::Original Image

Layout Name:

Image

Top: 511 pt
Left: 805 pt
Bottom: 558 pt
Right: 912 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

Field Name: Dot::Name

Layout Name:

Image

Top: 64 pt
Left: 805 pt
Bottom: 85 pt
Right: 852 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

Layout Name:

Image

Top: 64 pt
Left: 854 pt
Bottom: 85 pt
Right: 901 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

Layout Name:

Image

Top: 64 pt
Left: 903 pt
Bottom: 85 pt
Right: 950 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: Dot::Color

Layout Name:

Image

Top: 64 pt
Left: 952 pt
Bottom: 85 pt
Right: 999 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: Image::ImageID

Layout Name:

Image

Top: 90 pt
Left: 59 pt
Bottom: 111 pt
Right: 138 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: Image::PDF

Layout Name:

Image

Top: 431 pt
Left: 805 pt
Bottom: 478 pt
Right: 912 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:

Rectangle

Layout Name:

Image

Additional Properties:

Rectangular

Top: 62 pt
Left: 148 pt
Bottom: 542 pt
Right: 788 pt

Anchoring: Left, Top

Perform Script [ “Click” ]

Scripts:

Click

Type:

Text: Convert to Image

Layout Name:

Image

Top: 436 pt
Left: 924 pt
Bottom: 478 pt
Right: 1014 pt

Anchoring: Left, Top

Perform Script [ “Convert PDF to Image” ]

Scripts:

Convert PDF to Image

Table:

Dot

Layout Name:

Image

Top: 61 pt
Left: 802 pt
Bottom: 388 pt
Right: 1002 pt

Anchoring: Left, Top

Field Objects

Dot::Name at (64, 805, 85, 852)
Dot::X at (64, 854, 85, 901)
Dot::Y at (64, 903, 85, 950)
Dot::Color at (64, 952, 85, 999)

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

Layout Objects: Dot

Regular Fields

Field Name: Dot::Name

Layout Name:

Top: 52 pt
Left: 138 pt
Bottom: 73 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: Default for Data Type
Go to next field using: Tab key

Layout Name:

Top: 75 pt
Left: 138 pt
Bottom: 96 pt
Right: 217 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

Layout Name:

Top: 98 pt
Left: 138 pt
Bottom: 119 pt
Right: 217 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: Dot::Color

Layout Name:

Top: 121 pt
Left: 138 pt
Bottom: 142 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: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Dot::ImageID

Layout Name:

Top: 144 pt
Left: 138 pt
Bottom: 165 pt
Right: 217 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: [Refresh]

Script Name	Click
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	Image
Scripts that use this script
Script Definition
Script Steps	#Find position of container on layout Set Variable [ $pos; Value:FieldBounds ( Get(FileName) ; Get(LayoutName) ; "Image" ) ] Set Variable [ $cx; Value:MiddleWords($pos; 1;1) ] Set Variable [ $cy; Value:MiddleWords($pos; 2;1) ] Set Variable [ $fx; Value:Get ( WindowLeft ) ] Set Variable [ $fy; Value:Get ( WindowTop ) + 130 // 130 = height of toolbar with menubar ] Set Variable [ $dx; Value:$cx + $fx ] Set Variable [ $dy; Value:$cy + $fy ] #Calculate position of mouse on screen relative to display Set Variable [ $x; Value:MBS("RemoteControl.MouseX") - $dx ] Set Variable [ $y; Value:MBS("RemoteControl.MouseY") - $dy ] Set Field [ Image::Mouse X; $x ] Set Field [ Image::Mouse Y; $y ] #Create new record for point Set Variable [ $planID; Value:Image::ImageID ] Go to Layout [ “Dot” (Dot) ] New Record/Request Set Field [ Dot::Name; "neu" ] Set Field [ Dot::ImageID; $planID ] Set Field [ Dot::X; $x ] Set Field [ Dot::Y; $y ] Set Field [ Dot::Color; "#FF0000" ] Commit Records/Requests [ Skip data entry validation; No dialog ] Go to Layout [ “Image” (Image) ] Perform Script [ “Refresh” ]
Fields used in this script	Image::Mouse X Image::Mouse Y Image::ImageID Dot::Name Dot::ImageID Dot::X Dot::Y Dot::Color
Scripts used in this script	Refresh
Layouts used in this script	Dot Image
Tables used in this script	Dot Image
Table occurrences used by this script	Dot Image
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Click]

Next Script: [InitDynaPDF]

Script Name	Refresh
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script	Click
Script Definition
Script Steps	#Query size of container on layout Set Variable [ $pos; Value:FieldBounds ( Get(FileName) ; Get(LayoutName) ; "Image" ) ] Set Variable [ $cx; Value:MiddleWords($pos; 1;1) ] Set Variable [ $cy; Value:MiddleWords($pos; 2;1) ] Set Variable [ $cr; Value:MiddleWords($pos; 3;1) ] Set Variable [ $cu; Value:MiddleWords($pos; 4;1) ] Set Variable [ $cw; Value:$cr-$cx ] Set Variable [ $ch; Value:$cu-$cy ] #Load image and draw points Set Variable [ $img; Value:MBS("GMImage.NewFromContainer"; Image::Original Image) ] Set Variable [ $i; Value:1 ] Set Variable [ $pw; Value:MBS("GMImage.GetWidth"; $img) ] Set Variable [ $ph; Value:MBS("GMImage.GetHeight"; $img) ] Go to Related Record [ From table: “Dot”; Using layout: “Dot” (Dot) ] [ Show only related records ] Go to Record/Request/Page [ First ] Loop #Draw one point Set Variable [ $x; Value:Dot::X * $pw / $cw ] Set Variable [ $y; Value:Dot::Y * $ph / $ch ] Set Variable [ $r; Value:MBS("GMImage.SetStrokeColor"; $img; "#00000000") ] Set Variable [ $r; Value:MBS("GMImage.SetFillColor"; $img; Dot::Color) ] Set Variable [ $r; Value:MBS("GMImage.SetLineWidth"; $img; 0) ] Set Variable [ $r; Value:MBS("GMImage.DrawCircle"; $img; $x; $y; $x+5; $y+5) ] Set Variable [ $i; Value:$i + 1 ] Go to Record/Request/Page [ Next; Exit after last ] End Loop #Save result Go to Related Record [ From table: “Image”; Using layout: “Image” (Image) ] [ Show only related records ] Set Field [ Image::Image; MBS("GMImage.WriteToPNGContainer"; $img; "test.png") ] Set Variable [ $r; Value:MBS("GMImage.Destroy"; $img) ]
Fields used in this script	Image::Original Image Dot::X Dot::Y Dot::Color Image::Image
Scripts used in this script
Layouts used in this script	Dot Image
Tables used in this script	Dot Image
Table occurrences used by this script	Dot Image
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Refresh]

Next Script: [Convert PDF to Image]

Script Name	InitDynaPDF
Run script with full access privileges	Off
Include In Menu	No
Layouts that use this script
Scripts that use this script	Convert PDF to Image
Script Definition
Script Steps	#Locate DynaPDF library #you can have libraries in container and export at runtime to folder of your choice. #Or install library somewhere and pass path. #If library is in same folder as plugin, you can only pass only file name. If [ MBS("IsServer") ] #Put the path you use for your server here: If [ Get(SystemPlatform) = -2 ] #Server on Windows Set Variable [ $path; Value:"C:\Programs\FileMaker Server\dynapdf.dll" ] Else If [ MBS("IsLinux") ] #Server on Linux for FileMaker Cloud Set Variable [ $path; Value:"/opt/FileMaker/FileMaker Server/dynapdf.linux.so" ] Else #Server on Mac Set Variable [ $path; Value: "/Library/FileMaker Server/dynapdf.dylib" ] End If Else #For desktop and our examples we look in same folder as database: Set Variable [ $databasePath; Value:Get(FilePath) ] Set Variable [ $databasePath; Value:MBS("Path.FilemakerPathToNativePath"; $databasePath) ] Set Variable [ $databasePath; Value:Substitute ( $databasePath ; ".fp7" ; ".fmp12") ] Set Variable [ $databaseName; Value:Get(FileName) & ".fmp12" ] If [ Get(SystemPlatform) = -2 ] Set Variable [ $path; Value:Substitute ( $databasePath ; $databaseName ; "dynapdf.dll" ) ] #plugin will look for dynapdf.dll and if not found also for dynapdf.dll (64-bit) and dynapdf32.dll (32-bit). Else Set Variable [ $path; Value:Substitute ( $databasePath ; $databaseName ; "dynapdf.dylib" ) ] #Mac dylib is usually 32 and 64 bit together. End If End If #You can test for free. #If you like to get a dynapdf license, please follow links on our pricing page: #https://www.monkeybreadsoftware.de/filemaker/pricing.shtml Set Variable [ $LicenseKey; Value:"" // put your key here or leave empty for demo. // Use e.g. "Lite", "Pro" or "Starter" to use demo mode for just that mode. ] Set Variable [ $r; Value:MBS( "DynaPDF.Initialize"; $path; $LicenseKey) ] If [ $r ≠ "OK" ] Show Custom Dialog [ Title: "Error"; Message: $r; Default Button: “OK”, Commit: “No”; Button 2: “Cancel”, Commit: “No” ] Halt Script 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: [InitDynaPDF]

Next Script: [Clear]

Script Name	Convert PDF to Image
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	Image
Scripts that use this script
Script Definition
Script Steps	#Initialize DynaPDF if needed If [ MBS("DynaPDF.IsInitialized") ≠ 1 ] Perform Script [ “InitDynaPDF” ] End If If [ IsEmpty ( Image::PDF ) ] Show Custom Dialog [ Title: "No PDF?"; Message: "Please import PDF first."; Default Button: “OK”, Commit: “Yes” ] Exit Script [ ] End If #Clear current PDF document Set Variable [ $pdf; Value:MBS("DynaPDF.New") ] #Render one page as Picture Set Variable [ $r; Value:MBS("DynaPDF.OpenPDFFromContainer"; $pdf; Image::PDF) ] Set Variable [ $r; Value:MBS("DynaPDF.ImportPDFPage"; $pdf; 1) ] #Put in Container Set Variable [ $image; Value:MBS("DynaPDF.RenderPage"; $pdf; 1; 0; 640; 480; 0; "RGB"; ""; "png") ] Set Field [ Image::Original Image; $image ] Set Field [ Image::Image; $image ] Set Variable [ $r; Value:MBS("DynaPDF.Release"; $pdf) ]
Fields used in this script	Image::PDF Image::Original Image Image::Image
Scripts used in this script	InitDynaPDF
Layouts used in this script
Tables used in this script	Image
Table occurrences used by this script	Image
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Convert PDF to Image]

Script Name	Clear
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 Field [ Image::Original Image; "" ] Set Field [ Image::Image; "" ] Truncate Table [ No dialog; Table: “Dot” ]
Fields used in this script	Image::Original Image Image::Image
Scripts used in this script
Layouts used in this script
Tables used in this script	Image
Table occurrences used by this script	Image
Custom Functions used by this script
Custom menu set used by this script

Download example: Click Points

Used functions: