回 帖 发 新 帖 刷新版面

主题:如何让VFP的菜单改变字体大小?

在VFP中,控件都可以通过属性改变字体大小,请问各位,菜单如何改变字体大小呢?谢谢!

回复列表 (共8个回复)

沙发

你按这个方法试试看.......


你可把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

板凳


foxdb朋友,好久不见!您上次提供的关于局域网安全的设置方法我一直在用,运行正常!再次郑重致谢!
  关于菜单字体的调整,我照您提供的方法试了一下,字体大小没改变。
  我在VFP的安装目录下找到GENMENU.PRG,按照您的方法作修改后保存。但是不起作用。
  我用的是VFP6.0.
  不知是哪出现问题,请再赐教!

3 楼

VFP6.0中实现改变菜单的字体

使用菜单设计器设计出来的菜单,字体、字号都是相同的,如果需要改变某一菜单中某菜单项的字体和字号,可以作如下操作:

打开菜单设计器,在提示列表中,单击菜单下的一个菜单项,如文件菜单下的打开菜单项,单击该菜单项后面的选项按钮显示提示对话框,选择标题为跳过(K)文本编辑框,并在编辑框中输入以下命令:

.f. FONT "Courier New",16 style "BI"

两次点击确认按钮返回到菜单设计器,这时选择系统菜单中的“菜单”中的“生成”,并运行菜单,现在的文件菜单中的打开菜单项的字体变得更大并且是粗斜体了。

注意:预览看不到的,实际运行时就变了!

4 楼


谢谢!
我照你的方法设置后,点选那个菜单项系统就死锁了。只能三键退出。而且删除掉那个设置也还原不了!请帮帮我!因为系统不能用了!比较着急!谢谢!

5 楼

我用的是VF8.0,测试3楼的方法可行。不过只对菜单下面的选项字体有效。

6 楼

回楼主:
我在VFP6.0中实现改变菜单的字体没有出现你所说的情况!一切正常!


回5楼:
在VFP自带的帮助中可以查到: 
Visual FoxPro 系统菜单 _MSYSMENU 的菜单标题,忽略 FONT 子句。
所以"顶层菜单"即"系统菜单"是不能改的要想其他办法...所以本方法只对菜单下面的选项字体有效。

7 楼

windows下更改很方便
桌面-右键-属性-外观-字体
当然,这把所有的菜单字体都改了

8 楼

系统菜单的字体不是由VFP本身决定,而是WINDOWS的显示属性决定,您可以在WINDOWS桌面按右键,点“属性”->“外观”->“高级”->先在项目中选择"菜单",然后再设置字体的大小,注意是字体后面的"大小",而不是项目的"大小"。然后再运行VFP菜单,看到了吗!VFP的系统菜单已变了...

我来回复

您尚未登录,请登录后再回复。点此登录或注册