|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
tccvincent
註冊時間: 2003-05-26 文章: 50 來自: TAIPEI
第 1 樓
|
發表於: 星期日 四月 24, 2005 11:28 pm 文章主題: MENU 的問題 HELP |
|
|
用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
註冊時間: 2004-08-27 文章: 462
第 2 樓
|
發表於: 星期一 四月 25, 2005 6:58 am 文章主題: |
|
|
不會
你應該是在專案中執行MENU 它沒有變更字型的選項
VER 5.0是這樣
產生的MENU程式檔為*.MPR或是沒有COMP
但如果用DO *.MPR ,應該會再COMP一次
搞不好你自己也明白問題出在那邊 |
|
回頂端 |
|
|
tccvincent
註冊時間: 2003-05-26 文章: 50 來自: TAIPEI
第 3 樓
|
發表於: 星期一 四月 25, 2005 12:22 pm 文章主題: |
|
|
我是在FORM INI 中下 DO AA.MPR WITH THIS,.T.
但MENU 字型大小就是不會變更成我所修改AA.MPR 的字型大小 |
|
回頂端 |
|
|
tccvincent
註冊時間: 2003-05-26 文章: 50 來自: TAIPEI
第 4 樓
|
發表於: 星期一 四月 25, 2005 12:36 pm 文章主題: |
|
|
在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
註冊時間: 2004-08-27 文章: 462
第 5 樓
|
發表於: 星期一 四月 25, 2005 2:28 pm 文章主題: |
|
|
參照你的想法,將menu 寫至form中
代碼: |
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
|
確定可以,而且很好玩咧 |
|
回頂端 |
|
|
tccvincent
註冊時間: 2003-05-26 文章: 50 來自: TAIPEI
第 6 樓
|
發表於: 星期三 四月 27, 2005 9:58 am 文章主題: |
|
|
我有照您此程式碼執行
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
註冊時間: 2004-08-27 文章: 462
第 7 樓
|
發表於: 星期三 四月 27, 2005 10:21 am 文章主題: |
|
|
不曉得你在說什麼
自己看吧
有些事物還真是邊做邊學習 |
|
回頂端 |
|
|
chingting
註冊時間: 2005-05-27 文章: 18
第 8 樓
|
發表於: 星期五 七月 29, 2005 8:48 am 文章主題: |
|
|
tccvincent, 請問你如何將menu嵌入form中,而不要在_msysmenu中顯示? _________________ allen |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|