VFP 愛用者社區

[tccvincent]

用VFP GENMENU.PRG 所產生的 MENU 作為頂層表單的MENU 假設為 AA.MPR
打開 AA.MPR 去增加 DEFINE MENU 內的字型大小或 DEFINE PAD 的字型大小 存檔後執行
發現字型大小都不會變
但若變更的是DEFINE POPUP 字型大小,卻是可以變更的

那要如何改變 DEFINE MENU 或 DEFINE PAD 字型大小
例如
DEFINE MENU (m.cMenuName) IN (m.oFormRef.Name) BAR 在後面加上 FONT "細明體",12 但字型卻是原來大小
DEINE POPUP 也一樣

[bin1x]

不會
你應該是在專案中執行MENU 它沒有變更字型的選項
VER 5.0是這樣
產生的MENU程式檔為*.MPR或是沒有COMP
但如果用DO *.MPR ,應該會再COMP一次
搞不好你自己也明白問題出在那邊

[tccvincent]

我是在FORM INI 中下 DO AA.MPR WITH THIS,.T.
但MENU 字型大小就是不會變更成我所修改AA.MPR 的字型大小

[tccvincent]

在FORM INI 中加入 DO AA.MPR WITH THIS,.T.

程式如下 AA.MPR
DEFINE MENU (m.cMenuName) IN (m.oFormRef.Name) BAR FONT "細明體",12

DEFINE PAD _1i60qr2at OF (m.cMenuName) PROMPT "AAAAAA" COLOR SCHEME 3 ;
KEY ALT+A, "" FONT "細明體",12
DEFINE PAD _1i60qr2au OF (m.cMenuName) PROMPT "BBBBBB" COLOR SCHEME 3 ;
KEY ALT+B, "" FONT "細明體",12
DEFINE PAD _1i60qr2av OF (m.cMenuName) PROMPT "CCCCCCC" COLOR SCHEME 3 ;
KEY ALT+C, "" FONT "細明體",12
DEFINE PAD _1i60qr2aw OF (m.cMenuName) PROMPT "DDDDDD" COLOR SCHEME 3 ;
KEY ALT+D, "" FONT "細明體",12


ACTIVATE MENU (m.cMenuName) NOWAIT

IF m.cTypeParm2 = "C"


m.getMenuName = m.cMenuName
m.oFormRef.Name = m.cSaveFormName
ENDIF


但執行FORM 時 MENU 上的字型又會回到WINDOW系統內定字型大小

[bin1x]

參照你的想法,將menu 寫至form中

[tccvincent]

我有照您此程式碼執行
PARA m.ctypeparm1,m.ctypeparm2

SET SYSMENU TO
SET SYSMENU AUTOMATIC
*WITH M.CTYPEPARM1

*DEFINE MENU MENU1
DEFINE MENU MENU1 BAR AT LINE 1 IN WINDOWS (ctypeparm1.name) COLOR SCHEME 7
DEFINE PAD _1i60eh9wd OF MENU1 PROMPT "test" COLOR SCHEME 3 FONT "細明體",20;
KEY ALT+T, ""
DEFINE PAD _1i60eh9we OF MENU1 PROMPT "test2" COLOR SCHEME 3 FONT "細明體",40;
KEY ALT+T, ""
ON PAD _1i60eh9wd OF MENU1 ACTIVATE POPUP test

DEFINE POPUP test MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF test PROMPT "test" FONT "細明體",20
DEFINE BAR 2 OF test PROMPT "test" FONT "細明體",20

ACTIVATE MENU MENU1 NOWAIT

IF TYPE("m.cTypeParm2") = "C"
m.getMenuName = m.cMenuName
m.oFormRef.Name = m.cSaveFormName
ENDIF
*ENDWITH

但出現MENU 無法像VFP MENU 一樣好看且無法在FORM最頂端上
因為 AT LINE 1 關悉
但若不下 AL LINE 參數就又跟我原來問題一樣
不知識哪有誤 請指教

[bin1x]

不曉得你在說什麼
自己看吧
有些事物還真是邊做邊學習

[chingting]

tccvincent, 請問你如何將menu嵌入form中，而不要在_msysmenu中顯示?