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
        • 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) ]
        • If [ $r ≠ "OK" ]
        • Show Custom Dialog [ Title: "DynaPDF failed to initialize"; Message: $r; Default Button: “OK”, Commit: “No”; Button 2: “Abbrechen”, Commit: “No” ]
        • Else
        • Set Variable [ $$DynaPDFInited; Value:1 ]
        • 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