久世です。
自己レスです。
問題となる項目のfTypeは、MFT_BITMAPでした。
そこで、下記のように書き換えることで回避できました。
変更前
//新規メニューのハンドルを取得.日本語版のみ対応
if (csf_CREATENEW in FMenuOptions) and (ContextMenuNew <> nil) then begin
変更後
//新規メニューのハンドルを取得.日本語版のみ対応
if (csf_CREATENEW in FMenuOptions) and (ContextMenuNew <> nil) and (Info.fType<>MFT_BITMAP) then begin
MENUITEMINFOの説明によると、
Info.fType = MFT_BITMAPに関しては、
「アイテムにビットマップを表示します。
dwTypeData メンバの下位ワードはビットマップハンドルを表します。」
とのことなので、ビットマップ画像を取得したほうが良いのかもしれませんが、
取得しても使い道がわかっていませんので、無視しています。
|