MBS FileMaker Plugin Example Databases

Picture to PDF with navigation

All examples are included with download of MBS FileMaker Plugin.

Picture to PDF with navigation.fmp12

Overview
Tables1
Relationships0
Layouts1
Scripts2
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: 539 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: 183 pt
              • Left: 569 pt
              • Bottom: 208 pt
              • Right: 702 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: Create PDF
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 57 pt
              • Left: 569 pt
              • Bottom: 82 pt
              • Right: 703 pt
              • Anchoring: Left, Top
              Perform Script [ “Run”; Parameter: 1 ]

              Scripts:


              Script Hierarchy

              InitDynaPDF
              Run

              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]
                        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") ]
                          • Set Variable [ $ImageCount; Value:Get ( FoundCount ) ]
                          • #Load PDF from container
                          • Go to Record/Request/Page [ First ]
                          • Set Variable [ $page; Value:0 ]
                          • Loop
                          • Set Variable [ $r; Value:MBS("DynaPDF.AppendPage"; $pdf) ]
                          • Set Variable [ $page; Value:$page + 1 ]
                          • 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 )) ]
                          • 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; 200) ]
                          • #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 [ $ph; Value:$h/10 ]
                          • Set Variable [ $pw; Value:$w/20 ]
                          • 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.SetColorSpace"; $PDF; "DeviceRGB") ]
                          • Set Variable [ $r; Value:MBS( "DynaPDF.SetFillColor"; $PDF; ,2; ,2; ,8) ]
                          • Set Variable [ $r; Value:MBS( "DynaPDF.Rectangle"; $PDF; 0; ($h-$ph)/2; $pw; $ph; "fill" ) ]
                          • Set Variable [ $r; Value:MBS( "DynaPDF.Rectangle"; $PDF; $w-$pw; ($h-$ph)/2; $pw; $ph; "fill" ) ]
                          • Set Variable [ $r; Value:MBS( "DynaPDF.PageLink"; $PDF; 0; ($h-$ph)/2; $pw; $ph; If($page = 1; $ImageCount; $page - 1) ) ]
                          • Set Variable [ $r; Value:MBS( "DynaPDF.PageLink"; $PDF; $w-$pw; ($h-$ph)/2; $pw; $ph; If($page = $ImageCount; 1; $page + 1) ) ]
                          • Set Variable [ $i; Value:0 ]
                          • Loop
                          • Set Variable [ $r; Value:MBS( "DynaPDF.DrawCircle"; $pdf; $w/2 - (($ImageCount-1)/2-$i) * $ph; $ph; $pw/2; "fill" ) ]
                          • Set Variable [ $r; Value:MBS( "DynaPDF.PageLink"; $PDF; $w/2 - (($ImageCount-1)/2-$i) * $ph-$pw/2; $ph-$pw/2; $pw; $pw; $i+1 ) ]
                          • Set Variable [ $i; Value:$i + 1 ]
                          • Exit Loop If [ $i = $ImageCount ]
                          • End Loop
                          • Set Variable [ $r; Value:MBS("DynaPDF.EndPage"; $pdf) ]
                          • 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

                                Download example: Picture to PDF with navigation

                                Used functions:




                                Links
                                MBS Xojo Plugins