Pop up menu

4D v16.3

Pop up menu


Pop up menu ( contents {; default {; xCoord ; yCoord}} ) -> 戻り値

引数	型	説明
contents	テキスト	定義された項目テキスト
default	倍長整数	デフォルトで選択された項目番号
xCoord	倍長整数	左上角のX座標
yCoord	倍長整数	左上角のY座標
戻り値	倍長整数	選択された項目番号

説明

Pop up menu コマンドは、現在マウスが置かれている場所でポップアップメニューを表示します。

ユーザインタフェースの規則に従い、通常マウスボタンが押されて、かつ押されたままのときにこのコマンドを呼び出します。

以下のように、引数contentsを用いてポップアップメニューの項目を定義します。

各項目をセミコロン (;) で区切ります。例えば、 "ItemText1;ItemText2;ItemText3" のようになります。
項目を無効にするには、項目テキスト内に開いたカッコ (() を指定します。
区切り線を指定するには、項目テキストとして "-" または "(-" を渡します。
行のフォントスタイルを指定するには、項目テキスト内に (<) を指定し、続けて以下の文字の1つを記述します。
<B 太字
<I 斜体
<U アンダーライン
<O アウトライン (Macintoshのみ)
<S シャドウ (Macintoshのみ)

項目にチェックマークをを付けるには、項目テキスト内に疑問符 (!) を指定し、続けてチェックマークとして表示したい文字を記述します。
- Macintoshでは、文字は直接表示されます。システムバージョンおよびランゲージにおいて、標準チェックマークを表示するには、次のステートメントを使用します: Char(18)
- Windowsでは、いかなる文字を渡してもチェックマークが表示されます。
項目にアイコンを付けるには、項目テキスト内にアクセント (^) を置き、続けてMac OSベースのアイコンリソースのリソースIDであるコード +208 を持つ文字を指定します。
項目にショートカットを付けるには、項目テキスト内にスラッシュを (/) 設定し、続けて項目のためのショートカット文字を指定します。この最後のオプションは、純粋に情報提供のためのものであることに注意してください。ショートカットがポップアップメニューをアクティブにすることはありません。ただし、アプリケーションのメインメニューバーにそのポップアップメニュー項目に相当するのものがある場合にショートカットを情報として含めることができるということです。

Tip: 特殊文字 (!, /, etc.) をポップアップメニューに含めるなどのために、ポップアップメニューでこれらの文字を解釈するためのメカニズムを無効にすることが可能です。これを実行するには引数contentsをChar(1)で始め、さらにこのステートメントを区切り文字として使用します。

contents:=Char(1)+"1/4"+Char(1)+"1/2"+Char(1)+"3/4")

このステートメントが実行されると、スタイルおよびショートカットをポップアップメニューに割り当てることができなくなりますので注意してください。

オプション引数 default によって、ポップアップメニューが表示される際にデフォルトで選択されるメニュー項目を指定できます。1からメニュー項目の数までの値を渡します。この引数を省略すると、コマンドはデフォルトで最初のメニュー項目を選択します。

オプション引数 xCoord と yCoord を用いて、表示されるポップアップメニューの位置を指定できます。 xCoord と yCoord には、メニューの左上角の水平座標と垂直座標をそれぞれ渡します。これらの座標は、カレントフォームのローカル座標システムにおいてピクセル形式で表示されなければなりません。これら2つの引数は必ず一緒に渡さなければなりません。1つのみが渡された場合、それは無効となります。
引数 xCoord と yCoord を使用すると、引数 default は無視されます。この場合、マウスは必ずしもポップアップメニューのレベルに置かれてはいません。
これらの引数は、特に、ポップアップメニューと連動する3Dボタンを扱う際に便利です。

メニュー項目を選択すると、コマンドはその番号を返します。その他の場合はゼロ (0) を返します。

Note: 適切な項目数のポップアップメニューを使用してください。50以上もの項目を表示したい場合は、ポップアップメニューではなく、フォーム内のスクロール可能エリアの使用を検討するほうが賢明です。

例題

プロジェクトメソッドMY SPEED MENUは、ナビゲーションスピードメニューをプルダウンします。

  ` MY SPEED MENU プロジェクトメソッド

 GET MOUSE($vlMouseX;$vlMouseY;$vlButton)

 If(Macintosh control down|($vlButton=2))

    $vtItems:="About this database...<I;(-;!-Other Options;(-"

    For($vlTable;1;Get last table number)

       If(Is table number valid($vlTable))

          $vtItems:=$vtItems+";"+Table name($vlTable)

       End if

    End for

    $vlUserChoice:=Pop up menu($vtItems)

    Case of

       :($vlUserChoice=1)

  ` Display Information

       :($vlUserChoice=2)

  `オプションを表示する

       Else

          If($vlUserChoice>0)

  `番号が $vlUserChoice-4 のテーブルに移動する

          End if

    End case

 End if

このプロジェクトメソッドは、以下から呼び出せます。

マウスボタンがリリースされるのを待たずにマウスクリックに反応するフォームオブジェクトのメソッド (透明ボタン)
イベントを "スパイ" し、他のプロセスと通信するプロセス
ON EVENT CALL を用いてインストールされたイベント処理メソッド

最後の2つの場合では、フォームオブジェクトでクリックが行われる必要はありません。これは、Pop up menu コマンドの1つの利点です。一般的にポップアップメニューを表示するためにフォームオブジェクトを使用します。Pop up menu を使用すると、どこにでもメニューを表示することができます。

Windowsでは、マウスの右ボタンを押すことによってポップアップメニューが表示されます。Macintoshでは、Control+ クリックを押すことによって表示されます。ただし、メソッドはマウスクリックが存在するかどうかを実際にチェックをしませんので注意してください。呼び出し側のメソッドがこのテストを実行します。

Windows上 (左) とMacintosh上 (右)で表示されるポップアップメニューは以下のとおりです。 Windowsバージョンの標準チェックマークに注目してください。

参照

Dynamic pop up menu
GET MOUSE