インテル® Fortran コンパイラー 14.0 ユーザー・リファレンス・ガイド
QuickWin Function: Modifies a menu item's state.
result = MODIFYMENUFLAGSQQ (menuID,itemID,flag)
The result type is LOGICAL(4). The result is .TRUE. if successful; otherwise, .FALSE..
The constants available for flags can be combined with an inclusive OR where reasonable, for example $MENUCHECKED .OR. $MENUENABLED. Some combinations do not make sense, such as $MENUENABLED and $MENUDISABLED, and lead to undefined behavior.
USE IFQWIN
LOGICAL(4) result
CHARACTER(20) str
! Append item to the bottom of the first (FILE) menu
str = '&Add to File Menu'C
result = APPENDMENUQQ(1, $MENUENABLED, str, WINSTATUS)
! Gray out and disable the first two menu items in the
! first (FILE) menu
result = MODIFYMENUFLAGSQQ (1, 1, $MENUGRAYED)
result = MODIFYMENUFLAGSQQ (1, 2, $MENUGRAYED)
END