MBS FileMaker Plugin Example Databases

GraphicsMagick Sample

All examples are included with download of MBS FileMaker Plugin.

GraphicsMagick Sample.fmp12

Overview
Tables1
Relationships0
Layouts1
Scripts0
Value Lists0
Custom Functions0
Custom Menus32
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
GraphicsMagick
2 fields defined, 2 records
GraphicsMagick

Fields

Table Name: GraphicsMagick - 2 Fields
Field NameTypeOptionsCommentsOn LayoutsIn RelationshipsIn ScriptsIn Value Lists
imageNormal, BinaryAuto-Enter:
  • Allow editing
Validation:
  • Only during data entry
Storage:
  • Repetitions: 1
        imagtextNormal, TextAuto-Enter: Validation:
        • Only during data entry
        Storage:
        • Repetitions: 1
        • Indexing: None
        • Automatically create indexes as needed
        • Index Language: German

              Layout Objects: GraphicsMagick

              Regular Fields

              Field Name: GraphicsMagick::image
              Field PropertiesCoordinatesField FormatField BehaviorQuick Find
              • Top: 24 pt
              • Left: 6 pt
              • Bottom: 383 pt
              • Right: 553 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: GraphicsMagick::imagtext
              Field PropertiesCoordinatesField FormatField BehaviorQuick Find
              • Top: 390 pt
              • Left: 6 pt
              • Bottom: 404 pt
              • Right: 553 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
              Yes

              Group Buttons

              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Show Width and Height
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 24 pt
              • Left: 570 pt
              • Bottom: 49 pt
              • Right: 715 pt
              • Anchoring: Left, Top
              Show Custom Dialog [ Title: "Width and Height"; Message: Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $Width = MBS("GMImage.GetWidth";$Image); $Height = MBS("GMImage.GetHeight";$Image); $Error = MBS("GMImage.Destroy";$Image) ]; $Width & " x " & $Height ); Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Rotate right
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 54 pt
              • Left: 570 pt
              • Bottom: 79 pt
              • Right: 715 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $RotateResult = MBS("GMImage.Rotate"; $Image; 90); $Result = MBS("GMImage.WriteToPNGContainer"; $Image); $DestroyResult = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Blur
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 84 pt
              • Left: 570 pt
              • Bottom: 109 pt
              • Right: 715 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $RotateResult = MBS("GMImage.Blur"; $Image; 10; 5); $Result = MBS("GMImage.WriteToPNGContainer"; $Image); $DestroyResult = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Charcoal
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 114 pt
              • Left: 570 pt
              • Bottom: 139 pt
              • Right: 715 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $RotateResult = MBS("GMImage.Charcoal"; $Image; 10; 5); $Result = MBS("GMImage.WriteToPNGContainer"; $Image); $DestroyResult = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Emboss
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 144 pt
              • Left: 570 pt
              • Bottom: 169 pt
              • Right: 715 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $RotateResult = MBS("GMImage.Emboss"; $Image; 10; 5); $Result = MBS("GMImage.WriteToPNGContainer"; $Image); $DestroyResult = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Flip = Mirror Vertical
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 174 pt
              • Left: 570 pt
              • Bottom: 199 pt
              • Right: 715 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $RotateResult = MBS("GMImage.Flip"; $Image); $Result = MBS("GMImage.WriteToPNGContainer"; $Image); $DestroyResult = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Flop = Mirror Horizontal
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 204 pt
              • Left: 570 pt
              • Bottom: 229 pt
              • Right: 715 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $RotateResult = MBS("GMImage.Flop"; $Image); $Result = MBS("GMImage.WriteToPNGContainer"; $Image); $DestroyResult = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Scale 50%
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 54 pt
              • Left: 720 pt
              • Bottom: 79 pt
              • Right: 865 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $Width = MBS("GMImage.GetWidth";$Image); $Height = MBS("GMImage.GetHeight";$Image); $Width = Round ( $Width/2; 0); $Height = Round ( $Height/2; 0); $ScaleResult = MBS("GMImage.Scale";$Image; $Width & "x" & $Height); $Result = MBS("GMImage.WriteToPNGContainer"; $Image); $Error = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Crop to left top quarter
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 84 pt
              • Left: 720 pt
              • Bottom: 109 pt
              • Right: 865 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $Width = MBS("GMImage.GetWidth";$Image); $Height = MBS("GMImage.GetHeight";$Image); $Width = $Width/2; $Height = $Height/2; $ScaleResult = MBS("GMImage.Crop";$Image; $Width & "x" & $Height); $Result = MBS("GMImage.WriteToPNGContainer"; $Image); $Error = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Raise
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 114 pt
              • Left: 720 pt
              • Bottom: 139 pt
              • Right: 865 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $ScaleResult = MBS("GMImage.Raise";$Image); $Result = MBS("GMImage.WriteToPNGContainer"; $Image); $Error = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Sharpen
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 144 pt
              • Left: 720 pt
              • Bottom: 169 pt
              • Right: 865 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $RotateResult = MBS("GMImage.Sharpen"; $Image; 10; 5); $Result = MBS("GMImage.WriteToPNGContainer"; $Image); $DestroyResult = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Frame
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 174 pt
              • Left: 720 pt
              • Bottom: 199 pt
              • Right: 865 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $RotateResult = MBS("GMImage.Frame"; $Image); $Result = MBS("GMImage.WriteToPNGContainer"; $Image); $DestroyResult = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Shave
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 204 pt
              • Left: 720 pt
              • Bottom: 229 pt
              • Right: 865 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $ShaveResult = MBS("GMImage.Shave";$Image; "10x10"); $Result = MBS("GMImage.WriteToPNGContainer"; $Image); $Error = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Extract Red Channel
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 234 pt
              • Left: 720 pt
              • Bottom: 259 pt
              • Right: 865 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $Result = MBS("GMImage.Channel";$Image; 1); $Result = MBS("GMImage.WriteToPNGContainer"; $Image); $Error = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: GrayScale
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 234 pt
              • Left: 570 pt
              • Bottom: 259 pt
              • Right: 715 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $Result = MBS("GMImage.SetType";$Image; 2); $Result = MBS("GMImage.WriteToPNGContainer"; $Image); $Error = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Equalize
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 294 pt
              • Left: 570 pt
              • Bottom: 319 pt
              • Right: 715 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $Result = MBS("GMImage.Equalize";$Image); $Result = MBS("GMImage.WriteToPNGContainer"; $Image); $Error = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Enhance
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 264 pt
              • Left: 570 pt
              • Bottom: 289 pt
              • Right: 715 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $Result = MBS("GMImage.Enhance";$Image); $Result = MBS("GMImage.WriteToPNGContainer"; $Image); $Error = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Implode
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 264 pt
              • Left: 720 pt
              • Bottom: 289 pt
              • Right: 865 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $Result = MBS("GMImage.Implode";$Image; 5); $Result = MBS("GMImage.WriteToPNGContainer"; $Image); $Error = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Negate
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 294 pt
              • Left: 720 pt
              • Bottom: 319 pt
              • Right: 865 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $Result = MBS("GMImage.Negate";$Image); $Result = MBS("GMImage.WriteToPNGContainer"; $Image); $Error = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Make Low Quality JPEG
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 324 pt
              • Left: 570 pt
              • Bottom: 349 pt
              • Right: 715 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $Result = MBS("GMImage.SetQuality";$Image; 5); $Result = MBS("GMImage.WriteToJPEGContainer"; $Image); $Error = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Threshold
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 324 pt
              • Left: 720 pt
              • Bottom: 349 pt
              • Right: 865 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $Result = MBS("GMImage.Threshold";$Image; 127); $Result = MBS("GMImage.WriteToJPEGContainer"; $Image); $Error = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Swirl 90
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 354 pt
              • Left: 720 pt
              • Bottom: 379 pt
              • Right: 865 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $Result = MBS("GMImage.Swirl";$Image; 90); $Result = MBS("GMImage.WriteToJPEGContainer"; $Image); $Error = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Solarize
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 354 pt
              • Left: 570 pt
              • Bottom: 379 pt
              • Right: 715 pt
              • Anchoring: Left, Top
              Set Field [ GraphicsMagick::image; Let ( [ $Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image); $Result = MBS("GMImage.Solarize";$Image); $Result = MBS("GMImage.WriteToJPEGContainer"; $Image); $Error = MBS("GMImage.Destroy";$Image) ]; $Result) ]

              Fields:


              Download example: GraphicsMagick Sample

              Used functions:




              Links
              MBS Xojo PDF Plugins