property fmBundleID : ""

set fmBundleID to getBundleID() of me

–DB側から画像化するテキストを取得する
using terms from application "FileMaker Pro"
　　tell application ID fmBundleID
　　　　tell window 1
　　　　　　tell current record
　　　　　　　　set aText to field "originalString"
　　　　　　end tell
　　　　end tell
　　end tell
end using terms from

set aWidth to 500.0 –幅
set aHeight to 200.0 –高さ

set fillColor to current application’s NSColor’s blackColor –塗り色
set drawColor to current application’s NSColor’s whiteColor –文字色

set {xPos, yPos} to {1, 5}

–新規画像を作成して背景を塗る
set aImage1 to makeImageWithFilledColor(aWidth, aHeight, fillColor) of me

–画像に文字を塗る
set aImage2 to drawStringsOnImage(aImage1, aText, "HiraKakuStd-W8", 36.0, drawColor, xPos, yPos) of me

(my restoreClipboard:{aImage2})
using terms from scripting additions
　　set tmpImg to the clipboard as JPEG picture
end using terms from

–DBに画像を設定する
using terms from application "FileMaker Pro"
　　tell application ID fmBundleID
　　　　tell window 1
　　　　　　tell current record
　　　　　　　　set field "imageStore" to tmpImg
　　　　　　end tell
　　　　end tell
　　end tell
end using terms from

–画像のうえに指定の文字を描画して画像を返す
on drawStringsOnImage(anImage, aText, aFontName, aPoint, drawColor, xPos, yPos)
　　set aString to current application’s NSString’s stringWithString:aText
　　set aDict to current application’s NSDictionary’s dictionaryWithObjects:{current application’s NSFont’s fontWithName:aFontName |size|:aPoint, drawColor} forKeys:{current application’s NSFontAttributeName, current application’s NSForegroundColorAttributeName}
　　
　　–文字描画開始
　　anImage’s lockFocus()
　　aString’s drawAtPoint:(current application’s NSMakePoint(xPos, yPos)) withAttributes:aDict
　　anImage’s unlockFocus()
　　–文字描画ここまで
　　
　　return anImage
end drawStringsOnImage

–指定サイズの画像を作成し、背景を指定色で塗る
on makeImageWithFilledColor(aWidth, aHeight, fillColor)
　　–Imageの作成　　
　　set anImage to current application’s NSImage’s alloc()’s initWithSize:(current application’s NSMakeSize(aWidth, aHeight))
　　
　　–描画開始
　　anImage’s lockFocus()
　　
　　set theRect to {{x:0, y:0}, {width:aWidth, height:aHeight}}
　　set theNSBezierPath to current application’s NSBezierPath’s bezierPath
　　theNSBezierPath’s appendBezierPathWithRect:theRect
　　
　　fillColor’s |set|() –色設定
　　theNSBezierPath’s fill() –ぬりつぶし
　　
　　anImage’s unlockFocus()
　　–描画ここまで
　　
　　return anImage –画像を返す
end makeImageWithFilledColor

on getBundleID()
　　–FileMaker Pro 18
　　set fmProID to "com.filemaker.client.pro12"
　　
　　–FileMaker Pro 18 Advanced
　　set fmProADVID to "com.filemaker.client.advanced12"
　　
　　using terms from application "FileMaker Pro"
　　　　tell current application
　　　　　　set aName to name
　　　　end tell
　　end using terms from
　　
　　if aName contains "Advanced" then
　　　　return fmProADVID
　　else
　　　　return fmProID
　　end if
end getBundleID

–クリップボードに内容を設定する
on restoreClipboard:theArray
　　— get pasteboard
　　set thePasteboard to current application’s NSPasteboard’s generalPasteboard()
　　
　　— clear it, then write new contents
　　thePasteboard’s clearContents()
　　thePasteboard’s writeObjects:theArray
end restoreClipboard: