VFP的下拉菜单的标题如何把字体变大？

[script007]

VFP的下拉菜单的标题如何把字体变大？（菜单的字可以变大，但标题怎么变不大？）

[zhongyj]

Define POPUP shortcut shortcut RELATIVE MARGIN FONT "Courier New",18 FROM MROW(),MCOL()
Define BAR 1 OF shortcut PROMPT " ´_­ì(\<U) " MESSAGE "´_­ì¤W¦¸ªº¾Þ§@."

Activate POPUP shortcut
Release POPUP shortcut

*FONT "Courier New",18
*改變18,就能調整字體大小

[zhongyj]

1.
clear
oform=createobject("tbform1")
oform.addobject("close1","closecmd1")
oform.visible=.T.
oform.controlbox=.F.
oform.close1.visible=.T.

define menu example in (oform.name)
define pad convpad of example prompt '\<conversions' color scheme 3 FONT "Courier New",18 ;
key alt+c, ''
define pad cardpad of example prompt 'card \<info' color scheme 3 FONT "Courier New",8 ;
key alt+i, ''
on pad convpad of example activate popup conversion
on pad cardpad of example activate popup cardinfo
define popup conversion margin relative color scheme 4
define bar 1 of conversion prompt 'ar\<ea' ;
key ctrl+e, '^e'
define bar 2 of conversion prompt '\<length' ;
key ctrl+l, '^l'
define bar 3 of conversion prompt 'ma\<ss' ;
key ctrl+s, '^s'
define bar 4 of conversion prompt 'spee\<d' ;
key ctrl+d, '^d'
define bar 5 of conversion prompt '\<temperature' ;
key ctrl+t, '^t'
define bar 6 of conversion prompt 't\<ime' ;
key ctrl+i, '^i'
define bar 7 of conversion prompt 'volu\<me' ;
key ctrl+m, '^m'
on selection popup conversion do choice with prompt( ), popup( )
define popup cardinfo margin relative color scheme 4
define bar 1 of cardinfo prompt '\<view charges' ;
key alt+v, ''
define bar 2 of cardinfo prompt 'view \<payments' ;
key alt+p, ''
define bar 3 of cardinfo prompt 'vie\<w users' ;
key alt+w, ''
define bar 4 of cardinfo prompt '\-'
define bar 5 of cardinfo prompt '\<charges '
on selection popup cardinfo;
do choice with prompt( ), popup( )

activate menu example
read event
oform.release

Define CLASS tbform1 AS form
Height=250
Width=350
AutoCenter=.T.
Caption="Sample"
Enddefine
procedure exit1
clear event
endproc
procedure choice
parameters mprompt, mpopup
wait window 'you chose ' + mprompt + ;
' from popup ' + mpopup nowait
Define CLASS closecmd1 AS commandbutton
Top=226
Left=0
Width=60
Height=24
Caption="Close"
Procedure click

Clear event
Endproc
Enddefine
添加到 Visual FoxPro 系统菜单 _MSYSMENU 中的菜单标题忽略 FONT
子句。注意菜单设计器使用的是 Visual FoxPro 系统菜单。
2.
我想hnpyz說的能夠實現應該是通過windows api

[xiolig]

To zhongyj，你让我知道：
1、菜单也可以放入普通表单（不一定是顶层表单）；
2、如果用菜单设计器来完成，还可以动手修改生成后的MPR文件。
（也许还可以考虑重新设计一个菜单设计器，给它增加更多的功能）

[script007]

谢谢！！标题还是没变？

[zhongyj]

你說的标题是指什麼?

[wbf420]

我只能鼓励你了！加油啊！朋友！你终会成功的！

[hnpyz]

问问”炳哥“吧，他做的已经实现。

[script007]

谢谢各位，感动的痛苦流涕……