请教 VFP菜单颜色

[gxlzhr]

DEFINE MENU example BAR COLOR SCHEME 2 AT LINE 1 加上AT LINE 可以改变颜色，否则颜色设置没用，请教怎么改颜色？

不用修改注册表重启电脑，不要影响到整个 WINXP

*** 该程序名为 DEFIMENU.PRG ***
CLEAR
*!* FOR I=1 TO 24
*!* IF I<10 OR I>15
SET COLOR OF SCHEME 4 TO rgb(0,0,0,83,169,255),rgb(243,0,255,8,55,255),rgb(110,110,192,0,98,177),rgb(252,222,26,83,169,255),,rgb(0,255,255,0,98,177)
*!* ENDI
*!* ENDF
*!* SET SYSMENU SAVE
SET SYSMENU TO
SET SYSMENU AUTOMATIC
ON KEY LABEL ESC KEYBOARD CHR(13)
DEFINE MENU example BAR COLOR SCHEME 2 AT LINE 1
DEFINE PAD convpad OF example PROMPT '\<Conversions' COLOR SCHEME 3 ;
KEY ALT+C, ''
DEFINE PAD cardpad OF example PROMPT 'Card \<Info' COLOR SCHEME 3 ;
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 IN defimenu 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 IN defimenu WITH PROMPT( ), POPUP( )

ACTIVATE MENU example
*!* DEACTIVATE MENU example
*!* RELEASE MENU example EXTENDED
*!* SET SYSMENU TO DEFAULT
*!* ON KEY LABEL ESC
*!* PROCEDURE choice
*!* PARAMETERS mprompt, mpopup
*!* WAIT WINDOW '您选择了' + mprompt + ;
*!* ' 来自菜单 ' + mpopup NOWAIT
*!* *!*