更改VFP菜单的背景色
更改VFP菜单背景颜色 上网看了很多的关于VFP的资料，对于配色方案，仅仅是寥寥数语，没有更深刻的解释。昨天在书店买了本书，仅有一个例子，更改快捷菜单颜色的。仔细琢磨了一下，有以下体会：
对于VFP的菜单，如果用按照向导来建立的话，只能更改其中子项的文字大小，不能更改颜色
只有自己做出一个PRG程序，才能更改文字大小以及子项的颜色
其中要用到关键语句：
*!* 指定菜单失效子项，有效子项的前景色与背景色
set color of scheme 4 to rgb(0,0,0,83,169,255),rgb(250,0,0,165,215,240)
*!* 更改菜单子项的前景色与背景色
SET COLOR OF SCHEME 2 TO SCHEME 1
具体方法如下：
第一步，使用菜单设计器，向导方式创建一个菜单，
在创建结束以后，执行［菜单］→［生成］，可以获得一个以 .MPR 为扩展名的菜单程序。
第二步，在VFP的命令窗口中，写入如下的代码
MODIFY COMM 菜单1.MPR
执行之，将打开刚才的菜单程序，把它另存，另存为 菜单1.PRG
第三步，双击，重新打开 菜单1.PRG
开头 添加三句话
*!* 指定菜单失效项，有效项的前景色与背景色
set color of scheme 4 to rgb(0,0,0,83,169,255),rgb(250,0,0,165,215,240)
*!* 更改菜单子项的前景色与背景色
SET COLOR OF SCHEME 2 TO SCHEME 1
DEFINE MENU YSMENU IN SCREEN
中间，所有的 _MSYSMENU 替换为 YSMENU
最后，添加一句话 ACTIVATE MENU YSMENU
*下面是完整的PRG程序例子
*_MSYSMENU系统菜单名，通过向导创建时默认
*!* 指定菜单失效项，有效项的前景色与背景色
set color of scheme 4 to rgb(0,0,0,83,169,255),rgb(250,0,0,165,215,240)
*!* 更改菜单子项的前景色与背景色
SET COLOR OF SCHEME 2 TO SCHEME 1
DEFINE MENU YSMENU IN SCREEN
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _57m0wkhwo OF YSMENU PROMPT "文件" COLOR SCHEME 3 FONT "宋体",14
DEFINE PAD _57m0wkhwp OF YSMENU PROMPT "编辑" COLOR SCHEME 3 FONT "宋体",14
ON PAD _57m0wkhwo OF YSMENU ACTIVATE POPUP 文件
ON PAD _57m0wkhwp OF YSMENU ACTIVATE POPUP 编辑
DEFINE POPUP 文件 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 文件 PROMPT "新建" FONT "宋体",14
DEFINE BAR 2 OF 文件 PROMPT "打开" FONT "宋体",14
DEFINE BAR 3 OF 文件 PROMPT "退出" FONT "宋体",14
ON SELECTION BAR 1 OF 文件 ?"NEW"
ON SELECTION BAR 2 OF 文件 ?"OPEN"
ON SELECTION BAR 3 OF 文件 QUIT
DEFINE POPUP 编辑 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 编辑 PROMPT "剪切" FONT "宋体",14
DEFINE BAR 2 OF 编辑 PROMPT "复制" FONT "宋体",14
ON SELECTION BAR 1 OF 编辑 messagebox("OK")
ON SELECTION BAR 2 OF 编辑 messagebox("AA")
ACTIVATE MENU YSMENU
