主题:如何让VFP的菜单改变字体大小?
有约故人来
[专家分:50] 发布于 2009-04-26 20:13:00
在VFP中,控件都可以通过属性改变字体大小,请问各位,菜单如何改变字体大小呢?谢谢!
回复列表 (共8个回复)
沙发
foxdb [专家分:1830] 发布于 2009-04-26 21:28:00
你按这个方法试试看.......
你可把VFP自带的菜单生成程序改一下,(genmenu.prg,改之前最好备份一下)
具体是将GENMENU。PRG中 FUNCTION defbars 函数改一下
FUNCTION defbars
PARAMETER m.popname, m.howmany, m.newname
IF EMPTY(m.newname)
m.newname = m.popname
ENDIF
PRIVATE m.itemno, m.prompt,m.name, m.cPopExpr
SCAN FOR objtype=c_item AND LOWER(levelname)=m.popname
m.itemno = ALLTRIM(itemnum)
m.cPopExpr = IIF(m.g_inform, "(a_menupops["+ALLTRIM(STR(ASCAN(g_apo
ps,LOWER(m.newname))))+"])", LOWER(m.newname))
IF NOT EMPTY(ALLTRIM(name))
m.name = name
\DEFINE BAR <<m.name>> OF <<m.cPopExpr>>
ELSE
\DEFINE BAR <<m.itemno>> OF <<m.cPopExpr>>
ENDIF
m.prompt = SUBSTR(PROMPT, 1,LEN(PROMPT))
**********************************************************************
* \\ PROMPT "<<m.prompt>>" &&原来语句
\\ PROMPT "<<m.prompt>>" FONT "宋体",12 STYLE 'BI' &&改过之后,这里的
"12"就是字体大小
** 以后自动生成的菜单字体大小就是你需要的
**********************************************************************
DO addmark
DO addkey
DO addskipfor
DO addmessage
IF VAL(m.itemno)=m.howmany
RETURN
ENDIF
ENDSCAN
板凳
有约故人来 [专家分:50] 发布于 2009-04-27 11:38:00
foxdb朋友,好久不见!您上次提供的关于局域网安全的设置方法我一直在用,运行正常!再次郑重致谢!
关于菜单字体的调整,我照您提供的方法试了一下,字体大小没改变。
我在VFP的安装目录下找到GENMENU.PRG,按照您的方法作修改后保存。但是不起作用。
我用的是VFP6.0.
不知是哪出现问题,请再赐教!
3 楼
foxdb [专家分:1830] 发布于 2009-04-27 16:15:00
VFP6.0中实现改变菜单的字体
使用菜单设计器设计出来的菜单,字体、字号都是相同的,如果需要改变某一菜单中某菜单项的字体和字号,可以作如下操作:
打开菜单设计器,在提示列表中,单击菜单下的一个菜单项,如文件菜单下的打开菜单项,单击该菜单项后面的选项按钮显示提示对话框,选择标题为跳过(K)文本编辑框,并在编辑框中输入以下命令:
.f. FONT "Courier New",16 style "BI"
两次点击确认按钮返回到菜单设计器,这时选择系统菜单中的“菜单”中的“生成”,并运行菜单,现在的文件菜单中的打开菜单项的字体变得更大并且是粗斜体了。
注意:预览看不到的,实际运行时就变了!
4 楼
有约故人来 [专家分:50] 发布于 2009-04-27 19:50:00
谢谢!
我照你的方法设置后,点选那个菜单项系统就死锁了。只能三键退出。而且删除掉那个设置也还原不了!请帮帮我!因为系统不能用了!比较着急!谢谢!
5 楼
qjbzjp [专家分:8830] 发布于 2009-04-27 20:06:00
我用的是VF8.0,测试3楼的方法可行。不过只对菜单下面的选项字体有效。
6 楼
foxdb [专家分:1830] 发布于 2009-04-27 21:26:00
回楼主:
我在VFP6.0中实现改变菜单的字体没有出现你所说的情况!一切正常!
回5楼:
在VFP自带的帮助中可以查到:
Visual FoxPro 系统菜单 _MSYSMENU 的菜单标题,忽略 FONT 子句。
所以"顶层菜单"即"系统菜单"是不能改的要想其他办法...所以本方法只对菜单下面的选项字体有效。
7 楼
zhaoyufei [专家分:550] 发布于 2009-04-27 21:47:00
windows下更改很方便
桌面-右键-属性-外观-字体
当然,这把所有的菜单字体都改了
8 楼
foxdb [专家分:1830] 发布于 2009-04-27 21:53:00
系统菜单的字体不是由VFP本身决定,而是WINDOWS的显示属性决定,您可以在WINDOWS桌面按右键,点“属性”->“外观”->“高级”->先在项目中选择"菜单",然后再设置字体的大小,注意是字体后面的"大小",而不是项目的"大小"。然后再运行VFP菜单,看到了吗!VFP的系统菜单已变了...
我来回复