Monkeybread Software - MBS FileMaker Plugin: ImageGallery

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

MBS FileMaker Plugin Example Databases

ImageGallery

All examples are included with download of MBS FileMaker Plugin.

ImageGallery.fmp12

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

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
Images	2 fields defined, 0 record	Images
ImageGallery	5 fields defined, 21 records	ImageGallery

Fields

Table Name: Images - 2 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		Images		Import Image Folder
Filename	Normal, Text	Auto-Enter: Allow editing Context table: Images Calculation: GetAsText ( Images::Image ) Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Images

Table Name: ImageGallery - 5 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
Image1	Calculated, Binary	Calculation: Context table: ImageGallery Let ( [ x = 1; w = ImagesCountPerRow ]; If(w >= x ; GetImage ( Get ( RecordNumber ) ; x ; w); "") ) Storage: Repetitions: 1 Do not store calculation results		ImageGallery
Image2	Calculated, Binary	Calculation: Context table: ImageGallery Let ( [ x = 2; w = ImagesCountPerRow ]; If(w >= x ; GetImage ( Get ( RecordNumber ) ; x ; w); "") ) Storage: Repetitions: 1 Do not store calculation results		ImageGallery
Image3	Calculated, Binary	Calculation: Context table: ImageGallery Let ( [ x = 3; w = ImagesCountPerRow ]; If(w >= x ; GetImage ( Get ( RecordNumber ) ; x ; w); "") ) Storage: Repetitions: 1 Do not store calculation results		ImageGallery
Image4	Calculated, Binary	Calculation: Context table: ImageGallery Let ( [ x = 4; w = ImagesCountPerRow ]; If(w >= x ; GetImage ( Get ( RecordNumber ) ; x ; w); "") ) Storage: Repetitions: 1 Do not store calculation results		ImageGallery
Image5	Calculated, Binary	Calculation: Context table: ImageGallery Let ( [ x = 5; w = ImagesCountPerRow ]; If(w >= x ; GetImage ( Get ( RecordNumber ) ; x ; w); "") ) Storage: Repetitions: 1 Do not store calculation results		ImageGallery

Layout Objects: Images

Regular Fields

Field Name: Images::Image

Layout Name:

Images

Top: 52 pt
Left: 138 pt
Bottom: 177 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

Field Name: Images::Filename

Layout Name:

Images

Top: 179 pt
Left: 138 pt
Bottom: 200 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

Type:

Text: Select Folder of Images

Layout Name:

Images

Top: 7 pt
Left: 846 pt
Bottom: 43 pt
Right: 1007 pt

Anchoring: Left, Top

Perform Script [ “Import Image Folder” ]

Scripts:

Import Image Folder

Layout Objects: ImageGallery

Regular Fields

Field Name: ImageGallery::Image1

Layout Name:

ImageGallery

Top: 53 pt
Left: 5 pt
Bottom: 178 pt
Right: 258 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: ImageGallery::Image2

Layout Name:

ImageGallery

Top: 53 pt
Left: 266 pt
Bottom: 178 pt
Right: 519 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: ImageGallery::Image3

Layout Name:

ImageGallery

Top: 53 pt
Left: 527 pt
Bottom: 178 pt
Right: 780 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: ImageGallery::Image4

Layout Name:

ImageGallery

Top: 53 pt
Left: 788 pt
Bottom: 178 pt
Right: 1041 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: ImageGallery::Image5

Layout Name:

ImageGallery

Top: 53 pt
Left: 1049 pt
Bottom: 178 pt
Right: 1302 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

Script Hierarchy

Import Image Folder

Refresh

Next Script: [Refresh]

Script Name	Import Image Folder
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	Images
Scripts that use this script
Script Definition
Script Steps	Go to Layout [ “Images” (Images) ] Set Variable [ $r; Value:MBS("FileDialog.Reset") ] Set Variable [ $r; Value:MBS("FileDialog.SelectFolderDialog") ] If [ $r = "OK" ] Set Variable [ $index; Value:0 ] Set Variable [ $count; Value:MBS("FileDialog.GetPathCount") ] Loop Set Variable [ $path; Value:MBS("FileDialog.GetPath"; $index) ] Set Variable [ $list; Value:MBS( "Files.List"; $path; 1+4 ) ] If [ MBS("IsError") = 0 ] Set Variable [ $FileCount; Value:ValueCount ( $list ) ] Set Variable [ $FileIndex; Value:1 ] Loop Set Variable [ $FileName; Value:GetValue($list; $fileIndex) ] Set Variable [ $FilePath; Value:MBS( "Path.AddPathComponent"; $path; $filename ) ] Set Variable [ $Image; Value:MBS( "Container.ReadFile"; $FilePath; "auto" ) ] If [ MBS("IsError") = 0 ] New Record/Request Set Field [ Images::Image; $Image ] Commit Records/Requests End If #next Set Variable [ $FileIndex; Value:$FileIndex + 1 ] Exit Loop If [ $FileIndex > $FileCount ] End Loop End If #next Set Variable [ $index; Value:$index + 1 ] Exit Loop If [ $index = $count ] End Loop End If
Fields used in this script	Images::Image
Scripts used in this script
Layouts used in this script	Images
Tables used in this script	Images
Table occurrences used by this script	Images
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Import Image Folder]

Script Name	Refresh
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	Refresh Window [ Flush cached join results ]
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

Custom Functions

Function Name	Parameters	Availability	Definition	In Field Definitions	In Scripts
GetImage	nRecord;nField;nFieldCount	All accounts	Let ( [ n = (nRecord-1) * nFieldCount + nField-1; sql = MBS( "FM.SQL.Execute"; ""; "SELECT Image FROM Images OFFSET " & n & " ROWS FETCH FIRST 1 ROWS ONLY" ); error1 = MBS("IsError"); count = If(error1 = 0; MBS( "FM.SQL.RowCount"; sql; n; 0 ); ""); error2 = MBS("IsError"); value = If(error1 = 0 and 0 < count; MBS( "FM.SQL.Field"; sql; 0; 0 ); ""); error3 = MBS("IsError"); r = If(error1 = 0; MBS( "FM.SQL.Release"; sql ); "") ] ; If(error3 = 0 and error2 = 0 and error1 = 0; value; "") )	ImageGallery::Image1 ImageGallery::Image2 ImageGallery::Image3 ImageGallery::Image4 ImageGallery::Image5
ImagesCountPerRow		All accounts	Min( 5; Max ( 1; Round ( Get ( WindowWidth ) / 266 ; 0)))	ImageGallery::Image1 ImageGallery::Image2 ImageGallery::Image3 ImageGallery::Image4 ImageGallery::Image5

Custom Menu Sets

Menu Sets	Menus	In Scripts	In Layouts	Comments
[Standard FileMaker Menus]	All Standard Menus

Download example: ImageGallery

Used functions: