VFP 愛用者社區

[jtcom01]

如標題請教，無限感謝[/code]

[syntech]

GOOGLE "VISUAL FOXPRO MENU BAR FONT SIZE"

https://www.tek-tips.com/faqs.cfm?fid=6328


https://www.tek-tips.com/viewthread.cfm?qid=544705

[jtcom01]

感謝 syntech 大大
依您指導的網址試做發現只有子目錄字體會放大主目錄字體依舊,麻煩大大再進一步指導感激不盡.

[syntech]

Errrr.......

如果後來OS沒改過的話,
我印象中,MENU 字型及SIZE 受系統限制,
這也就是你動不了的原因.


WIN10 要另外動手腳找回WIN7 時代的"視窗色彩及外觀"設定.
GOOGLE 一下

而WIN 7 的話,但是改了就會所有程式執行時通通都會變,
請看下圖:

[jtcom01]

感謝先進
好像也只能這樣了,謝謝您

[ckp6250]

DEFINE PAD MenuTitle1 OF MenuBarName PROMPT cMenuTitleText
[AT nRow, nColumn] [BEFORE MenuName2 | AFTER MenuName3]
[NEGOTIATE cContainerPosition [, cObjectPosition]]
[FONT cFontName [, nFontSize [, nFontCharSet]]] [STYLE cFontStyle]
[KEY KeyLabel [, cKeyText]] [MARK cMarkCharacter]
[SKIP [FOR lExpression]] [MESSAGE cMessageText]
[COLOR SCHEME nSchemeNumber | COLOR ColorPairList]



DEFINE BAR nMenuItemNumber1 | SystemItemName OF MenuName
PROMPT cMenuItemText [PICTURE cFileName] [PICTRES cMenubarName]
[BEFORE nMenuItemNumber2 | AFTER nMenuItemNumber3]
[FONT cFontName [, nFontSize [, nFontCharSet]]] [STYLE cFontStyle]
[KEY KeyLabel [, cKeyText]] [MARK cMarkCharacter]
[MESSAGE cMessageText] [SKIP [FOR lExpression]]
[COLOR SCHEME nSchemeNumber | COLOR ColorPairList]
[MRU] [INVERT]


DEFINE POPUP MenuName [FROM nRow1, nColumn1] [TO nRow2, nColumn2]
[IN [WINDOW] WindowName | IN SCREEN]
[FONT cFontName [, nFontSize] [, nFontCharSet]] [STYLE cFontStyle]
[FOOTER cFooterText] [KEY KeyLabel] [MARGIN]
[MARK cMarkCharacter] [MESSAGE cMessageText] [MOVER] [MULTISELECT]
[PROMPT FIELD FieldName | PROMPT FILES [LIKE FileSkeleton]
| PROMPT STRUCTURE] [RELATIVE] [SCROLL] [SHORTCUT]
[TITLE cMenuTitleText] [RTLJUSTIFY]
[COLOR SCHEME nSchemeNumber | COLOR ColorPairList]

功能表主要由這些構成，應該可以改才對。

[syntech]

如果應該可以改,就是改 ckp6250 兄說的地方.
我改過多國系統中"越文翻譯"版的,
就是把上面的FONTNAME,FONTCHARSET等等改掉
(其實還要處理 genmenu.prg )

如果程式內不能改或是改了沒用,那就是改OS

[CPS0204]

選單字體也可上色

color ,RGB(255,0,0,128,128,255)

注:RGB(前三個數字為前色,後三個數字為背景色)