Вопрос про MAIM NENU

Форум » GUI » Вопрос про MAIM NENU » Ответить

Вопрос про MAIM NENU

alex_II: Для главного меню использую темы: [more]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[/more] Иногда требуется делать пункты меню неактивными и тогда этот неактивный пункт получает фон отличный от остальных и выглядит это некрасиво. Не разобрался какой элемент отвечает за фон неактивного пункта, может кто-то подскажет?

Ответов - 0

полная версия страницы