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

MBS FileMaker Plugin Example Databases

PDF Crop

All examples are included with download of MBS FileMaker Plugin.

PDF Crop.fmp12

Overview
Tables1
Relationships0
Layouts1
Scripts2
Value Lists0
Custom Functions0
Custom Menus0
File Options
Default custom menu set[Standard FileMaker Menus]
When opening file
Minimum allowed version12.0
Login usingAccount Name; Account= Admin
Allow user to save passwordOff
Require iOS passcodeOff
Switch to layoutOff
Hide all toolbarsOff
Script triggers
OnFirstWindowOpenOff
OnLastWindowCloseOff
OnWindowOpenOff
OnWindowCloseOff
OnFileAVPlayerChangeOff
Thumbnail Settings
Generate ThumbnailsOn; Temporary

 

Tables

Table Name
Statistics
Occurrences in Relationship Graph
PDF_Crop
6 fields defined, 1 record
PDF_Crop

Fields

Table Name: PDF_Crop - 6 Fields
Field NameTypeOptionsCommentsOn LayoutsIn RelationshipsIn ScriptsIn Value Lists
Contariner PDF InputNormal, BinaryAuto-Enter:
  • Allow editing
Validation:
  • Only during data entry
Storage:
  • Repetitions: 1
      Crop LeftNormal, NumberAuto-Enter:
      • Allow editing
      Validation:
      • Only during data entry
      Storage:
      • Repetitions: 1
      • Indexing: None
      • Automatically create indexes as needed
      • Index Language: German
          Crop TopNormal, NumberAuto-Enter:
          • Allow editing
          Validation:
          • Only during data entry
          Storage:
          • Repetitions: 1
          • Indexing: None
          • Automatically create indexes as needed
          • Index Language: German
              Crop WidthNormal, NumberAuto-Enter:
              • Allow editing
              Validation:
              • Only during data entry
              Storage:
              • Repetitions: 1
              • Indexing: None
              • Automatically create indexes as needed
              • Index Language: German
                  Crop HeightNormal, NumberAuto-Enter:
                  • Allow editing
                  Validation:
                  • Only during data entry
                  Storage:
                  • Repetitions: 1
                  • Indexing: None
                  • Automatically create indexes as needed
                  • Index Language: German
                      Contariner PDF OutputNormal, BinaryAuto-Enter:
                      • Allow editing
                      Validation:
                      • Only during data entry
                      Storage:
                      • Repetitions: 1

                          Layout Objects: PDF_Crop

                          Regular Fields

                          Field Name: PDF_Crop::Contariner PDF Input
                          Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                          • Top: 47 pt
                          • Left: 225 pt
                          • Bottom: 172 pt
                          • Right: 478 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
                          No

                          Field Name: PDF_Crop::Contariner PDF Output
                          Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                          • Top: 289 pt
                          • Left: 228 pt
                          • Bottom: 414 pt
                          • Right: 481 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
                          No

                          Field Name: PDF_Crop::Crop Width
                          Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                          • Top: 228 pt
                          • Left: 227 pt
                          • Bottom: 250 pt
                          • Right: 306 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: PDF_Crop::Crop Height
                          Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                          • Top: 252 pt
                          • Left: 227 pt
                          • Bottom: 274 pt
                          • Right: 306 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: PDF_Crop::Crop Left
                          Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                          • Top: 179 pt
                          • Left: 227 pt
                          • Bottom: 201 pt
                          • Right: 306 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: PDF_Crop::Crop Top
                          Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                          • Top: 203 pt
                          • Left: 227 pt
                          • Bottom: 225 pt
                          • Right: 306 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

                          Buttons

                          Button PropertiesCoordinatesScript/Script Step
                            Type:
                          • Text: Crop PDF
                          • Top: 397 pt
                          • Left: 557 pt
                          • Bottom: 432 pt
                          • Right: 711 pt
                          • Anchoring: Left, Top
                          Perform Script [ “Run” ]

                          Scripts:


                          Script Hierarchy

                          InitDynaPDF
                          Run

                          Next Script: [Run]
                          Script NameInitDynaPDF
                          Run script with full access privilegesOff
                          Include In MenuNo
                          Layouts that use this script
                            Scripts that use this script
                            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]
                                          Script NameRun
                                          Run script with full access privilegesOff
                                          Include In MenuYes
                                          Layouts that use this script
                                          Scripts that use this script
                                            Script Definition
                                            Script Steps
                                            • #Initialize DynaPDF if needed
                                            • If [ MBS("DynaPDF.IsInitialized") ≠ 1 ]
                                            • Perform Script [ “InitDynaPDF” ]
                                            • End If
                                            • Set Variable [ $r; Value:MBS("Trace") ]
                                            • #run
                                            • #Clear current PDF document
                                            • Set Variable [ $pdf; Value:MBS("DynaPDF.New") ]
                                            • #Import pages
                                            • Set Variable [ $r; Value:MBS("DynaPDF.OpenPDFFromContainer"; $pdf; PDF_Crop::Contariner PDF Input) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.ImportPDFFile"; $pdf; 1) ]
                                            • #Check page count
                                            • Set Variable [ $pageCount; Value:MBS("DynaPDF.GetPageCount"; $pdf) ]
                                            • Set Variable [ $pageIndex; Value:1 ]
                                            • #Convert from mm to points
                                            • Set Variable [ $w; Value:PDF_Crop::Crop Width / 25,4 * 72 ]
                                            • Set Variable [ $h; Value:PDF_Crop::Crop Height / 25,4 * 72 ]
                                            • Set Variable [ $l; Value:PDF_Crop::Crop Left / 25,4 * 72 ]
                                            • Set Variable [ $t; Value:PDF_Crop::Crop Top / 25,4 * 72 ]
                                            • Loop
                                            • #Edit page
                                            • Set Variable [ $result; Value:MBS( "DynaPDF.EditPage"; $pdf; $pageIndex) ]
                                            • #Query page width, first crop if existant and than fall back to media box
                                            • Set Variable [ $pageHeight; Value:MBS( "DynaPDF.GetBBox"; $pdf; "crop"; "height") ]
                                            • Set Variable [ $pageWidth; Value:MBS( "DynaPDF.GetBBox"; $pdf; "crop"; "width") ]
                                            • If [ $pageHeight = "" ]
                                            • Set Variable [ $pageHeight; Value:MBS( "DynaPDF.GetBBox"; $pdf; "media"; "height") ]
                                            • Set Variable [ $pageWidth; Value:MBS( "DynaPDF.GetBBox"; $pdf; "media"; "width") ]
                                            • End If
                                            • #Calculate crop area
                                            • Set Variable [ $ct; Value:$pageHeight - $t ]
                                            • Set Variable [ $cr; Value:$w + $l ]
                                            • Set Variable [ $cb; Value:$pageHeight - $h - $t ]
                                            • #Make sure we are not too big
                                            • If [ $cr > $pageWidth ]
                                            • Set Variable [ $cr; Value:$pageWidth ]
                                            • End If
                                            • If [ $cr > $pageHeight ]
                                            • Set Variable [ $cb; Value:$pageHeight ]
                                            • End If
                                            • If [ $ct < 0 ]
                                            • Set Variable [ $ct; Value:0 ]
                                            • End If
                                            • #Apply crop box
                                            • Set Variable [ $result; Value:MBS( "DynaPDF.SetBBox"; $pdf; "crop"; $l; $ct; $cr; $cb ) ]
                                            • Set Variable [ $result; Value:MBS( "DynaPDF.EndPage"; $pdf; $pageIndex) ]
                                            • Set Variable [ $pageIndex; Value:$pageIndex + 1 ]
                                            • Exit Loop If [ $pageIndex > $pageCount ]
                                            • End Loop
                                            • Set Field [ PDF_Crop::Contariner PDF Output; MBS("DynaPDF.Save"; $pdf) ]
                                            • #Cleanup
                                            • Set Variable [ $r; Value:MBS( "DynaPDF.Release"; $pdf ) ]
                                            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: PDF Crop

                                                  Used functions: