Для главного меню использую темы:

Скрытый текст

PROCEDURE SetThemes(type)
LOCAL aColors := GetMenuColors()

DEFAULT type TO 0

SWITCH type

CASE 0
aColors[ MNUCLR_MENUBARBACKGROUND1 ] := GetSysColor( 15 )
aColors[ MNUCLR_MENUBARBACKGROUND2 ] := GetSysColor( 15 )
aColors[ MNUCLR_MENUBARTEXT ] := RGB( 0, 0, 0 )
aColors[ MNUCLR_MENUBARSELECTEDTEXT ] := RGB( 0, 0, 0 )
aColors[ MNUCLR_MENUBARGRAYEDTEXT ] := RGB( 192, 192, 192 )
aColors[ MNUCLR_MENUBARSELECTEDITEM1 ]:= RGB( 255, 252, 248 )
aColors[ MNUCLR_MENUBARSELECTEDITEM2 ]:= RGB( 136, 133, 116 )

aColors[ MNUCLR_MENUITEMTEXT ] := RGB( 0, 0, 0 )
aColors[ MNUCLR_MENUITEMSELECTEDTEXT ]:= RGB( 0, 0, 0 )
aColors[ MNUCLR_MENUITEMGRAYEDTEXT ] := RGB( 192, 192, 192 )

aColors[ MNUCLR_MENUITEMBACKGROUND1 ] := RGB( 255, 255, 255 )
aColors[ MNUCLR_MENUITEMBACKGROUND2 ] := RGB( 255, 255, 255 )

aColors[ MNUCLR_MENUITEMSELECTEDBACKGROUND1 ] := RGB( 182, 189, 210 )
aColors[ MNUCLR_MENUITEMSELECTEDBACKGROUND2 ] := RGB( 182, 189, 210 )
aColors[ MNUCLR_MENUITEMGRAYEDBACKGROUND1 ] := RGB( 255, 255, 255 )
aColors[ MNUCLR_MENUITEMGRAYEDBACKGROUND2 ] := RGB( 255, 255, 255 )

aColors[ MNUCLR_IMAGEBACKGROUND1 ] := RGB( 246, 245, 244 )
aColors[ MNUCLR_IMAGEBACKGROUND2 ] := RGB( 207, 210, 200 )

aColors[ MNUCLR_SEPARATOR1 ] := RGB( 168, 169, 163 )
aColors[ MNUCLR_SEPARATOR2 ] := RGB( 255, 255, 255 )

aColors[ MNUCLR_SELECTEDITEMBORDER1 ] := RGB( 10, 36, 106 )
aColors[ MNUCLR_SELECTEDITEMBORDER2 ] := RGB( 10, 36, 106 )
aColors[ MNUCLR_SELECTEDITEMBORDER3 ] := RGB( 10, 36, 106 )
aColors[ MNUCLR_SELECTEDITEMBORDER4 ] := RGB( 10, 36, 106 )

SET MENUCURSOR FULL
SET MENUSEPARATOR SINGLE RIGHTALIGN
SET MENUITEM BORDER 3DSTYLE
EXIT
CASE 1
aColors[ MNUCLR_MENUBARBACKGROUND1 ] := GetSysColor( 15 )
aColors[ MNUCLR_MENUBARBACKGROUND2 ] := GetSysColor( 15 )
aColors[ MNUCLR_MENUBARTEXT ] := GetSysColor( 7 )
aColors[ MNUCLR_MENUBARSELECTEDTEXT ] := GetSysColor( 14 )
aColors[ MNUCLR_MENUBARGRAYEDTEXT ] := GetSysColor( 17 )
aColors[ MNUCLR_MENUBARSELECTEDITEM1 ]:= GetSysColor( 13 )
aColors[ MNUCLR_MENUBARSELECTEDITEM2 ]:= GetSysColor( 13 )

aColors[ MNUCLR_MENUITEMTEXT ] := GetSysColor( 7 )
aColors[ MNUCLR_MENUITEMSELECTEDTEXT ]:= GetSysColor( 14 )
aColors[ MNUCLR_MENUITEMGRAYEDTEXT ] := GetSysColor( 17 )

aColors[ MNUCLR_MENUITEMBACKGROUND1 ] := IF( _HMG_IsXP, GetSysColor( 4 ), RGB( 255, 255, 255 ) )
aColors[ MNUCLR_MENUITEMBACKGROUND2 ] := IF( _HMG_IsXP, GetSysColor( 4 ), RGB( 255, 255, 255 ) )

aColors[ MNUCLR_MENUITEMSELECTEDBACKGROUND1 ] := GetSysColor( 13 )
aColors[ MNUCLR_MENUITEMSELECTEDBACKGROUND2 ] := GetSysColor( 13 )
aColors[ MNUCLR_MENUITEMGRAYEDBACKGROUND1 ] := IF( _HMG_IsXP, GetSysColor( 4 ), RGB( 255, 255, 255 ) )
aColors[ MNUCLR_MENUITEMGRAYEDBACKGROUND2 ] := IF( _HMG_IsXP, GetSysColor( 4 ), RGB( 255, 255, 255 ) )

aColors[ MNUCLR_IMAGEBACKGROUND1 ] := GetSysColor( 15 )
aColors[ MNUCLR_IMAGEBACKGROUND2 ] := GetSysColor( 15 )

aColors[ MNUCLR_SEPARATOR1 ] := GetSysColor( 17 )
aColors[ MNUCLR_SEPARATOR2 ] := GetSysColor( 14 )

aColors[ MNUCLR_SELECTEDITEMBORDER1 ] := GetSysColor( 13 )
aColors[ MNUCLR_SELECTEDITEMBORDER2 ] := GetSysColor( 13 )
aColors[ MNUCLR_SELECTEDITEMBORDER3 ] := GetSysColor( 17 )
aColors[ MNUCLR_SELECTEDITEMBORDER4 ] := GetSysColor( 14 )

SET MENUCURSOR FULL
SET MENUSEPARATOR DOUBLE RIGHTALIGN
SET MENUITEM BORDER FLAT
EXIT
CASE 2
aColors[ MNUCLR_MENUBARBACKGROUND1 ] := GetSysColor( 15 )
aColors[ MNUCLR_MENUBARBACKGROUND2 ] := GetSysColor( 15 )
aColors[ MNUCLR_MENUBARTEXT ] := RGB( 0, 0, 0 )
aColors[ MNUCLR_MENUBARSELECTEDTEXT ] := RGB( 0, 0, 0 )
aColors[ MNUCLR_MENUBARGRAYEDTEXT ] := RGB( 128, 128, 128 )
aColors[ MNUCLR_MENUBARSELECTEDITEM1 ]:= GetSysColor(15)
aColors[ MNUCLR_MENUBARSELECTEDITEM2 ]:= GetSysColor(15)

aColors[ MNUCLR_MENUITEMTEXT ] := RGB( 0, 0, 0 )
aColors[ MNUCLR_MENUITEMSELECTEDTEXT ]:= RGB( 255, 255, 255 )
aColors[ MNUCLR_MENUITEMGRAYEDTEXT ] := RGB( 128, 128, 128 )

aColors[ MNUCLR_MENUITEMBACKGROUND1 ] := RGB( 212, 208, 200 )
aColors[ MNUCLR_MENUITEMBACKGROUND2 ] := RGB( 212, 208, 200 )

aColors[ MNUCLR_MENUITEMSELECTEDBACKGROUND1 ] := RGB( 10, 36, 106 )
aColors[ MNUCLR_MENUITEMSELECTEDBACKGROUND2 ] := RGB( 10, 36, 106 )
aColors[ MNUCLR_MENUITEMGRAYEDBACKGROUND1 ] := RGB( 212, 208, 200 )
aColors[ MNUCLR_MENUITEMGRAYEDBACKGROUND2 ] := RGB( 212, 208, 200 )

aColors[ MNUCLR_IMAGEBACKGROUND1 ] := RGB( 212, 208, 200 )
aColors[ MNUCLR_IMAGEBACKGROUND2 ] := RGB( 212, 208, 200 )

aColors[ MNUCLR_SEPARATOR1 ] := RGB( 128, 128, 128 )
aColors[ MNUCLR_SEPARATOR2 ] := RGB( 255, 255, 255 )

aColors[ MNUCLR_SELECTEDITEMBORDER1 ] := RGB( 10, 36, 106 )
aColors[ MNUCLR_SELECTEDITEMBORDER2 ] := RGB( 128, 128, 128 )
aColors[ MNUCLR_SELECTEDITEMBORDER3 ] := RGB( 10, 36, 106 )
aColors[ MNUCLR_SELECTEDITEMBORDER4 ] := RGB( 255, 255, 255 )

SET MENUCURSOR SHORT
SET MENUSEPARATOR DOUBLE LEFTALIGN
SET MENUITEM BORDER 3D
END

SetMenuColors(aColors)

RETURN

Иногда требуется делать пункты меню неактивными и тогда этот неактивный пункт
получает фон отличный от остальных и выглядит это некрасиво. Не разобрался какой
элемент отвечает за фон неактивного пункта,

может кто-то подскажет?