Pop up menu:デフォルトの選択位置

Product :4D - 4D Server
4D : v15以降
OS : Windows

macではデフォルト位置が選択された状態で表示されますが
windowsでは反映されていない様です。

初歩的ミス? :doubt:

簡単な例題を作成してMacとWindowsで動かしてみましたが(v17)

https://forums.4d.com/4DBB_Main/x_User/298210/files/28213957.zip

現象を再現することはできませんでした。

ポップアップメニューのデータソースは,デフォルト値やテキスト配列(ORDAに対応していないので・・・)
ではなく,v14で拡張されたリストの値(文字列)に関連付ける方法と,
従来どおりリストの参照番号(倍長整数)に関連付ける方法で作成しました。

[]28213974;“Your comment here…”[/]

そっちじゃなくてこっちです。
pop up menuと書かないといけないのかな。スペース抜けてました。すみません。

[]28214027;“Your comment here…”[/]

<code 4D>
case of
:(form event = on clicked)
pop up menu(“1;2;3;4;5;6;7;8;9;10”;5)
end case
</code 4D>

Pop up menuですね,失礼いたしました。

確かにMacはdefaultはハイライトされた状態になりますが,
マウスの真下にメニューが表示される格好になるので,
はたしてこれで合っているのか?な気もします:
[]28214171;“Your comment here…”[/]

こうではないでしょうか:
[]28214177;“Your comment here…”[/]

<code 4D>
GET MOUSE($MouseX;$MouseY;$MouseB)

$items:=“1;2;3;4;5;6;7;8;9;10”
$default:=7

$select:=Pop up menu($items;$default;$MouseX+50;$MouseY)

//workaround
$menu:=Create menu
$item:=""
For each ($item;(Split string($items;";"))
APPEND MENU ITEM($menu;$item)
If (Count menu items($menu)=$default)
SET MENU ITEM MARK($menu;-1;Char(18))
End if
End for each

$selected:=Dynamic pop up menu($menu)
RELEASE MENU($menu)
</code 4D>

なるほどmacの方も間違っている可能性があるんですね。

できればデフォルトで指定した位置をあらかじめ反転させた状態で表示したいのですが
どの様にすればよいでしょうか?このコマンドにこだわらず代替案でもOKです。 :pray:

ACI0099160: The command ‘Pop up menu’ ignores the ‘default’ argument on Windows

記録のために :pray:

デフォルト項目の件(ACI0099160)も17.1後のNightly Buildで修正されている,とのことです。

c.f. https://forums.4d.com/Post/JP/28215036/0/0/

リリース版の前は,数週間の運用検証期間があり,その間はバグ修正が保留になるため,17.1には間に合いませんでした。