MBS FileMaker Plugin Example Databases

Picture to PDF

All examples are included with download of MBS FileMaker Plugin.

Picture to PDF.fmp12

Overview
Tables1
Relationships0
Layouts1
Scripts5
Value Lists0
Custom Functions0
Custom Menus33
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
Merge PDFs
3 fields defined, 1 record
Merge PDFs

Fields

Table Name: Merge PDFs - 3 Fields
Field NameTypeOptionsCommentsOn LayoutsIn RelationshipsIn ScriptsIn Value Lists
DynaPDF LicenseKeyNormal, TextAuto-Enter:
  • Allow editing
Validation:
  • Only during data entry
Storage:
  • Global
  • Repetitions: 1
  • Index Language: German
      FinalPDFNormal, BinaryAuto-Enter:
      • Allow editing
      Validation:
      • Only during data entry
      Storage:
      • Global
      • Repetitions: 1
          InputImageNormal, BinaryAuto-Enter:
          • Allow editing
          Validation:
          • Only during data entry
          Storage:
          • Repetitions: 1

              Layout Objects: Merge PDFs

              Regular Fields

              Field Name: Merge PDFs::DynaPDF LicenseKey
              Field PropertiesCoordinatesField FormatField BehaviorQuick Find
              • Top: 6 pt
              • Left: 132 pt
              • Bottom: 20 pt
              • Right: 385 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
              No

              Field Name: Merge PDFs::FinalPDF
              Field PropertiesCoordinatesField FormatField BehaviorQuick Find
              • Top: 24 pt
              • Left: 132 pt
              • Bottom: 263 pt
              • Right: 385 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
              No

              Field Name: Merge PDFs::InputImage
              Field PropertiesCoordinatesField FormatField BehaviorQuick Find
              • Top: 270 pt
              • Left: 132 pt
              • Bottom: 527 pt
              • Right: 385 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
              No

              Group Buttons

              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Export file...
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 186 pt
              • Left: 396 pt
              • Bottom: 211 pt
              • Right: 529 pt
              • Anchoring: Left, Top
              Export Field Contents [ Merge PDFs::FinalPDF ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Import file...
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 270 pt
              • Left: 396 pt
              • Bottom: 295 pt
              • Right: 529 pt
              • Anchoring: Left, Top
              Insert File [ Merge PDFs::InputImage ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Merge Original Images
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 60 pt
              • Left: 396 pt
              • Bottom: 85 pt
              • Right: 619 pt
              • Anchoring: Left, Top
              Perform Script [ “Run”; Parameter: 1 ]

              Scripts:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Merge Original Images with Border
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 90 pt
              • Left: 396 pt
              • Bottom: 115 pt
              • Right: 619 pt
              • Anchoring: Left, Top
              Perform Script [ “Run”; Parameter: 2 ]

              Scripts:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Merge Images with JPEG Compression
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 120 pt
              • Left: 396 pt
              • Bottom: 145 pt
              • Right: 619 pt
              • Anchoring: Left, Top
              Perform Script [ “Run”; Parameter: 3 ]

              Scripts:


              Script Hierarchy

              InitDynaPDF
              Run
              AddPictureOriginalBorder
              AddPictureOriginal
              AddPictureJPEG

              Next Script: [Run]
              Script NameInitDynaPDF
              Run script with full access privilegesOff
              Include In MenuYes
              Layouts that use this script
                Scripts that use this script
                Script Definition
                Script Steps
                • #Locate DynaPDF library
                • 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" ) ]
                • Else
                • Set Variable [ $path; Value:Substitute ( $databasePath ; $databaseName ; "dynapdf.dylib" ) ]
                • End If
                • #Initialize DynaPDF
                • Set Variable [ $r; Value:MBS( "DynaPDF.Initialize"; $path; Merge PDFs::DynaPDF LicenseKey) ]
                • Set Variable [ $$DynaPDFInited; Value:1 ]
                • If [ $r ≠ "OK" ]
                • Show Custom Dialog [ Title: "DynaPDF failed to initialize"; Message: $r; Default Button: “OK”, Commit: “No”; Button 2: “Abbrechen”, Commit: “No” ]
                • 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: [AddPictureOriginalBorder]
                        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 [ $$DynaPDFInited ≠ 1 ]
                          • Perform Script [ “InitDynaPDF” ]
                          • End If
                          • #Clear current PDF document
                          • Set Variable [ $pdf; Value:MBS("DynaPDF.New") ]
                          • #Load PDF from container
                          • Go to Record/Request/Page [ First ]
                          • Set Variable [ $destPage; Value:1 ]
                          • Loop
                          • If [ Get(ScriptParameter) = 1 ]
                          • Perform Script [ “AddPictureOriginal”; Parameter: $pdf ]
                          • Else If [ Get(ScriptParameter) = 2 ]
                          • Perform Script [ “AddPictureOriginalBorder”; Parameter: $pdf ]
                          • Else If [ Get(ScriptParameter) = 3 ]
                          • Perform Script [ “AddPictureJPEG”; Parameter: $pdf ]
                          • End If
                          • Go to Record/Request/Page [ Next; Exit after last ]
                          • End Loop
                          • Set Field [ Merge PDFs::FinalPDF; MBS("DynaPDF.Save"; $pdf; "Merged.pdf") ]
                          • 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

                                Previous Script: [Run]Next Script: [AddPictureOriginal]
                                Script NameAddPictureOriginalBorder
                                Run script with full access privilegesOff
                                Include In MenuNo
                                Layouts that use this script
                                  Scripts that use this script
                                  Script Definition
                                  Script Steps
                                  • Set Variable [ $pdf; Value:Get(ScriptParameter) ]
                                  • Set Variable [ $r; Value:MBS("DynaPDF.AppendPage"; $pdf) ]
                                  • Set Variable [ $r; Value:MBS("DynaPDF.ReadImageResolution"; $pdf; Merge PDFs::InputImage) ]
                                  • Set Variable [ $resX; Value:GetAsNumber (LeftValues ( $r ; 1 )) ]
                                  • Set Variable [ $resY; Value:GetAsNumber (MiddleValues ( $r ; 2; 1 )) ]
                                  • If [ $resX <= 0 ]
                                  • Set Variable [ $resX; Value:72 ]
                                  • End If
                                  • If [ $resY <= 0 ]
                                  • Set Variable [ $resY; Value:72 ]
                                  • End If
                                  • Set Variable [ $r; Value:MBS("DynaPDF.ReadImageFormat"; $pdf; Merge PDFs::InputImage) ]
                                  • Set Variable [ $ImageWidth; Value:GetAsNumber (LeftValues ( $r ; 1 )) ]
                                  • Set Variable [ $imageHeight; Value:GetAsNumber (MiddleValues ( $r ; 2; 1 )) ]
                                  • Set Variable [ $BitsPerPixel; Value:GetAsNumber (MiddleValues ( $r ;3; 1 )) ]
                                  • #no recompression!
                                  • Set Variable [ $r; Value:MBS("DynaPDF.SetSaveNewImageFormat"; $pdf; 0) ]
                                  • Set Variable [ $x; Value:50 ]
                                  • Set Variable [ $y; Value:50 ]
                                  • Set Variable [ $w; Value:$ImageWidth * 72 / $ResX ]
                                  • Set Variable [ $h; Value:$ImageHeight * 72 / $ResY ]
                                  • Set Variable [ $r; Value:MBS("DynaPDF.SetPageHeight"; $pdf; $h + 2*$y) ]
                                  • Set Variable [ $r; Value:MBS("DynaPDF.SetPageWidth"; $pdf; $w + 2*$x) ]
                                  • Set Variable [ $r; Value:MBS("DynaPDF.InsertImage"; $pdf; Merge PDFs::InputImage; $x; $y; $w; $h) ]
                                  • Set Variable [ $r; Value:MBS("DynaPDF.EndPage"; $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

                                          Previous Script: [AddPictureOriginalBorder]Next Script: [AddPictureJPEG]
                                          Script NameAddPictureOriginal
                                          Run script with full access privilegesOff
                                          Include In MenuNo
                                          Layouts that use this script
                                            Scripts that use this script
                                            Script Definition
                                            Script Steps
                                            • Set Variable [ $pdf; Value:Get(ScriptParameter) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.AppendPage"; $pdf) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.ReadImageResolution"; $pdf; Merge PDFs::InputImage) ]
                                            • Set Variable [ $resX; Value:GetAsNumber (LeftValues ( $r ; 1 )) ]
                                            • Set Variable [ $resY; Value:GetAsNumber (MiddleValues ( $r ; 2; 1 )) ]
                                            • If [ $resX <= 0 ]
                                            • Set Variable [ $resX; Value:72 ]
                                            • End If
                                            • If [ $resY <= 0 ]
                                            • Set Variable [ $resY; Value:72 ]
                                            • End If
                                            • Set Variable [ $r; Value:MBS("DynaPDF.ReadImageFormat"; $pdf; Merge PDFs::InputImage) ]
                                            • Set Variable [ $ImageWidth; Value:GetAsNumber (LeftValues ( $r ; 1 )) ]
                                            • Set Variable [ $imageHeight; Value:GetAsNumber (MiddleValues ( $r ; 2; 1 )) ]
                                            • Set Variable [ $BitsPerPixel; Value:GetAsNumber (MiddleValues ( $r ;3; 1 )) ]
                                            • #no recompression!
                                            • Set Variable [ $r; Value:MBS("DynaPDF.SetSaveNewImageFormat"; $pdf; 0) ]
                                            • Set Variable [ $x; Value:0 ]
                                            • Set Variable [ $y; Value:0 ]
                                            • Set Variable [ $w; Value:$ImageWidth * 72 / $ResX ]
                                            • Set Variable [ $h; Value:$ImageHeight * 72 / $ResY ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.SetPageHeight"; $pdf; $h) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.SetPageWidth"; $pdf; $w) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.InsertImage"; $pdf; Merge PDFs::InputImage; $x; $y; $w; $h) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.EndPage"; $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

                                                    Previous Script: [AddPictureOriginal]
                                                    Script NameAddPictureJPEG
                                                    Run script with full access privilegesOff
                                                    Include In MenuNo
                                                    Layouts that use this script
                                                      Scripts that use this script
                                                      Script Definition
                                                      Script Steps
                                                      • Set Variable [ $pdf; Value:Get(ScriptParameter) ]
                                                      • Set Variable [ $r; Value:MBS("DynaPDF.AppendPage"; $pdf) ]
                                                      • Set Variable [ $r; Value:MBS("DynaPDF.ReadImageResolution"; $pdf; Merge PDFs::InputImage) ]
                                                      • Set Variable [ $resX; Value:GetAsNumber (LeftValues ( $r ; 1 )) ]
                                                      • Set Variable [ $resY; Value:GetAsNumber (MiddleValues ( $r ; 2; 1 )) ]
                                                      • If [ $resX <= 0 ]
                                                      • Set Variable [ $resX; Value:72 ]
                                                      • End If
                                                      • If [ $resY <= 0 ]
                                                      • Set Variable [ $resY; Value:72 ]
                                                      • End If
                                                      • Set Variable [ $r; Value:MBS("DynaPDF.ReadImageFormat"; $pdf; Merge PDFs::InputImage) ]
                                                      • Set Variable [ $ImageWidth; Value:GetAsNumber (LeftValues ( $r ; 1 )) ]
                                                      • Set Variable [ $imageHeight; Value:GetAsNumber (MiddleValues ( $r ; 2; 1 )) ]
                                                      • Set Variable [ $BitsPerPixel; Value:GetAsNumber (MiddleValues ( $r ;3; 1 )) ]
                                                      • #Recompress as JPEG with 75% Quality and maximum 150 DPI
                                                      • Set Variable [ $r; Value:MBS("DynaPDF.SetSaveNewImageFormat"; $pdf; 1) ]
                                                      • Set Variable [ $r; Value:MBS("DynaPDF.SetJPEGQuality"; $pdf; 75) ]
                                                      • Set Variable [ $r; Value:MBS("DynaPDF.SetCompressionFilter"; $pdf; "JPEG") ]
                                                      • Set Variable [ $r; Value:MBS("DynaPDF.SetResolution"; $pdf; 150) ]
                                                      • #Place image
                                                      • Set Variable [ $x; Value:0 ]
                                                      • Set Variable [ $y; Value:0 ]
                                                      • Set Variable [ $w; Value:$ImageWidth * 72 / $ResX ]
                                                      • Set Variable [ $h; Value:$ImageHeight * 72 / $ResY ]
                                                      • Set Variable [ $r; Value:MBS("DynaPDF.SetPageHeight"; $pdf; $h) ]
                                                      • Set Variable [ $r; Value:MBS("DynaPDF.SetPageWidth"; $pdf; $w) ]
                                                      • Set Variable [ $r; Value:MBS("DynaPDF.InsertImage"; $pdf; Merge PDFs::InputImage; $x; $y; $w; $h) ]
                                                      • Set Variable [ $r; Value:MBS("DynaPDF.EndPage"; $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: Picture to PDF

                                                              Used functions:




                                                              Links
                                                              MBS Xojo Plugins