 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 1 樓
|
 發表於: 星期日 八月 24, 2003 5:07 pm 文章主題: 改變Menu字體大小(轉貼) |
 |
|
請參考：
1、本來功能表生成器中是沒有字體的選項的。
2、利用功能表生成器的 選項中 跳過(K) 即SKIP FOR 中編寫代碼
代碼為： .F. FONT '宋體',12
3、實際上，生成的代碼為： skip for .f. FONT '宋體',12
這樣就達到了改變功能表子項字體的目的。
但頂層功能表的字體是不會改變的。
4、功能表生成後，您可以modi menu mymenu1.mpr
5、如果想完全解決問題,可以利用API。
在進入系統時改變解析度，使用戶操作環境與開發環境匹配。
可以參考有關vb的文章。
作 者: wangjd (wxfox) 1999.09.18 修改 刪除 轉貼 打包 回復 加至精華區
【 在 yztjjf (老雲) 的大作中提到: 】
: 各位大俠：
: 如何改變功能表的字體大小,多謝！
你可把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 |
_________________
#############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
#############################
Ruey 在 星期一 九月 01, 2003 6:36 pm 作了第 3 次修改 |
|
| 回頂端 |
|
 |
奔跑的愛情
註冊時間: 2003-08-28
文章: 27
第 2 樓
|
| 發表於: 星期四 八月 28, 2003 4:38 pm 文章主題: |
|
|
我收！謝謝
_________________
delphi vf sql |
|
| 回頂端 |
|
|
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 3 樓
|
| 發表於: 星期一 九月 01, 2003 6:28 pm 文章主題: |
|
|
作者：James
最後檢查日期: February 19, 1998
文號: Q130657
本文資訊應用於:
Microsoft Visual FoxPro for Windows, versions 3.0, 5.0
概述
要修改功能表項的字體(例如, 檔功能表中的打開), 用適當的字體資訊添加一個 SKIP FOR 子句. 功能表板的字體 (例如, 檔功能表板) 不能通過功能表設計器修改.
更多資訊
逐步過程
要修改一個功能表項的字體, 按以下步驟:
打開功能表設計器, 選擇“快速功能表”.
在提示列中, 單擊檔功能表下的一個功能表項(例如, 打開).
單擊選項按鈕來顯示提示選項對話方塊.
選擇 Skip For 文本框來顯示運算式生成器.
在 Skip For 文本框中, 打入以下命令:
.f. FONT "Courier New", 14 style "BI"
選擇確認兩次返回到功能表設計器.
選擇系統功能表中的“功能表”中的“生成”, 並運行功能表.
現在檔功能表中的打開功能表項的字體變得更大並且是粗斜體了.
警告: 該功能是 VFP 的一個未編檔功能, 因此它可能在 Visual FoxPro 以後的版本中被改變或忽略.
注:可以為不同的功能表項選擇不同的字體字型大小，以達到醒目和提示用戶注意的效果。
_________________
#############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
