【小技】ペーストボードにピクチャが含まれているか調べるには

ペーストボードに含まれているデータの一覧（"フレーバー"）はGET PASTEBOARD DATA TYPEで取得することができ，個別のサイズはPasteboard data sizeで調べることができます。

画像をペーストボードにコピーした場合，PNG・JPEG・TIFFなど，さまざまなタイプのデータが含まれるため，これをひとつずつ調べるのは大変です。

実際，ドキュメントには下記のような例題が掲載されています。

Code:

If(Pasteboard data size("com.4d.private.picuture.jpeg")>0)\
   |(Pasteboard data size("com.4d.private.picture.gif")>0))
    GET PICTURE FROM PASTEBOARD([Employees]Photo)
Else
    ALERT("The pasteboard does not contain any pictures.")
End if

http://doc.4d.com/--16/-/GET-PICTURE-FROM-PASTEBOARD.301-3036215.ja.html

Code:

If(Pasteboard data size("com.4d.private.picture.jfif")>0)
    GET PICTURE FROM PASTEBOARD($vPicVariable)
Else
    ALERT("There is no picture in the pasteboard.")
End if

http://doc.4d.com/--16/-/Pasteboard-data-size.301-3036220.ja.html

しかし，Pasteboard data sizeの説明（注）をよく読めば，もっとスマートな方法があることに気づきます。

定数Picture data ("PICT") を使用するという方法です。

Code:

(Pasteboard data size(Picture data)=1)
  GET PICTURE FROM PASTEBOARD($vPicVariable)
Else
  ALERT("There is no picture in the pasteboard.")
End if

このようにすれば，ペーストボードにピクチャが含まれているか，一回のコールで確実に調べることができます。