MBS FileMaker Plugin Example Databases

Create Text

All examples are included with download of MBS FileMaker Plugin.

Create Text.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
Create Text
1 field defined, 1 record
Create Text

Fields

Table Name: Create Text - 1 Fields
Field NameTypeOptionsCommentsOn LayoutsIn RelationshipsIn ScriptsIn Value Lists
PDFNormal, BinaryAuto-Enter:
  • Allow editing
Validation:
  • Only during data entry
Storage:
  • Repetitions: 1

      Layout Objects: Create Text

      Regular Fields

      Field Name: Create Text::PDF
      Field PropertiesCoordinatesField FormatField BehaviorQuick Find
      • Top: 24 pt
      • Left: 138 pt
      • Bottom: 758 pt
      • Right: 877 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: Run Script
        Additional Properties:
      • Change to hand cursor over button
      • Rectangular
      • Top: 36 pt
      • Left: 12 pt
      • Bottom: 61 pt
      • Right: 115 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\dynapdf64.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 dynapdf64.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. ]
        • 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
                        • Set Variable [ $r; Value:MBS("Trace") ]
                        • #Initialize DynaPDF if needed
                        • If [ MBS("DynaPDF.IsInitialized") ≠ 1 ]
                        • Perform Script [ “InitDynaPDF” ]
                        • End If
                        • #Clear current PDF document
                        • Set Variable [ $pdf; Value:MBS("DynaPDF.New") ]
                        • #Add page
                        • Set Variable [ $r; Value:MBS("DynaPDF.AppendPage"; $pdf) ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.SetFont"; $pdf; "Helvetica"; 0; 12) ]
                        • #Write some text
                        • Set Variable [ $x; Value:MBS("DynaPDF.GetPageHeight"; $pdf)-100 ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 0; 0; 0) ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.WriteText"; $pdf; 100; $x; "Some black text") ]
                        • #Write some text
                        • Set Variable [ $x; Value:$x - 30 ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 1; 0; 0) ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.WriteText"; $pdf; 100; $x; "Some red text") ]
                        • #Write some invisible text
                        • Set Variable [ $x; Value:$x - 30 ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.SaveGraphicState"; $pdf) ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.SetAlpha"; $pdf; 0; 0) ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.WriteText"; $pdf; 100; $x; "Invisible text") ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.SetAlpha"; $pdf; 1; 1) ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.RestoreGraphicState"; $pdf) ]
                        • #Write some text
                        • Set Variable [ $x; Value:$x - 30 ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 0; 0; 1) ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.WriteText"; $pdf; 100; $x; "You see invisible text above?") ]
                        • #Write some formatted text
                        • Set Variable [ $text; Value:"Left aligned text, this is left aligned text, this is left aligned text...\ju#\FC[255]This is justified text, this is justified text, this is justified text, this is justified text, this is justified text, this is justified text, this is justified text, this is justified text...\re#\FC[165536]This is right aligned text, this is right aligned text, this is right aligned text...\le#\FC[233512]Back to left aligned text, we go back to left aligned text..." ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.SetTextRect"; $pdf; 200; 200; 150; -1) ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.WriteFText"; $pdf; "left"; $text) ]
                        • Set Variable [ $height; Value:200 - MBS("DynaPDF.GetLastTextPosY"; $pdf) ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.Rectangle"; $pdf; 200; 200-$height; 150; $height; "Stroke") ]
                        • #Write some continued text
                        • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 0; 0; 0) ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.BeginContinueText"; $pdf; 50; $x-30) ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.AddContinueText"; $pdf; "Hello World") ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.ChangeFontStyle"; $pdf; 4) ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.AddContinueText"; $pdf; "Underlined Text") ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.ChangeFontStyle"; $pdf; 0) ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.AddContinueText"; $pdf; "Normal Text") ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.ChangeFontStyle"; $pdf; 8) ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.AddContinueText"; $pdf; "Strikout Text") ]
                        • #Write some text
                        • Set Variable [ $r; Value:MBS("DynaPDF.ChangeFontStyle"; $pdf; 0) ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 0; 0; 1) ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.WriteText"; $pdf; 100; 0; "In PDF the coordinate system is bottom up, so zero is on the bottom.") ]
                        • #End page
                        • Set Variable [ $r; Value:MBS("DynaPDF.EndPage"; $pdf) ]
                        • #Set title
                        • Set Variable [ $r; Value:MBS("DynaPDF.SetDocInfo"; $pdf; "Title"; "Test PDF") ]
                        • #Render one page as Picture
                        • Set Variable [ $PDFData; Value:MBS("DynaPDF.Save"; $pdf; "hello.pdf") ]
                        • Set Variable [ $r; Value:MBS("DynaPDF.Release"; $pdf) ]
                        • #Put in Container
                        • Set Field [ Create Text::PDF; $PDFData ]
                        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: Create Text

                              Used functions:




                              Links
                              MBS Xojo tutorial videos