diff --git a/Contrib/Modern UI/Readme.html b/Contrib/Modern UI/Readme.html
index df4be6a8..b71c1697 100644
--- a/Contrib/Modern UI/Readme.html
+++ b/Contrib/Modern UI/Readme.html
@@ -468,6 +468,24 @@ descriptions.
MUI_COMPONENTSPAGE_NODESC
No description area.
+
Directory Page Interface
+Settings
+
+
MUI_DIRECTORYPAGE_BGCOLOR (color: RRGGBB hexadecimal)
+The background color for the directory textbox.
+
+
Startmenu Page Interface
+Settings
+
+
MUI_STARTMENUPAGE_BGCOLOR (color: RRGGBB hexadecimal)
+The background color for the startmenu directory list and textbox.
+
Installation Page
diff --git a/Contrib/Modern UI/System.nsh b/Contrib/Modern UI/System.nsh
index e98f68fb..9bc51523 100644
--- a/Contrib/Modern UI/System.nsh
+++ b/Contrib/Modern UI/System.nsh
@@ -866,6 +866,7 @@ Var /GLOBAL MUI_TEMP2
!undef MUI_DIRECTORYPAGE_TEXT_TOP
!undef MUI_DIRECTORYPAGE_TEXT_DESTINATION
+ !insertmacro MUI_UNSET MUI_DIRECTORYPAGE_BGCOLOR
!insertmacro MUI_UNSET MUI_DIRECTORYPAGE_VARIABLE
!insertmacro MUI_UNSET MUI_DIRECTORYPAGE_VERIFYONLEAVE
@@ -922,6 +923,7 @@ Var /GLOBAL MUI_TEMP2
!insertmacro MUI_UNSET MUI_STARTMENUPAGE_REGISTRY_ROOT
!insertmacro MUI_UNSET MUI_STARTMENUPAGE_REGISTRY_KEY
!insertmacro MUI_UNSET MUI_STARTMENUPAGE_REGISTRY_VALUENAME
+ !insertmacro MUI_UNSET MUI_STARTMENUPAGE_BGCOLOR
!verbose pop
@@ -1341,6 +1343,12 @@ Var /GLOBAL MUI_TEMP2
FunctionEnd
Function "${SHOW}"
+ !ifdef MUI_DIRECTORYPAGE_BGCOLOR
+ FindWindow $MUI_TEMP1 "#32770" "" $HWNDPARENT
+ GetDlgItem $MUI_TEMP1 $MUI_TEMP1 1019
+ SetCtlColors $MUI_TEMP1 "" "0x${MUI_DIRECTORYPAGE_BGCOLOR}"
+ !endif
+
!insertmacro MUI_PAGE_FUNCTION_CUSTOM SHOW
FunctionEnd
@@ -1367,7 +1375,7 @@ Var /GLOBAL MUI_TEMP2
!endif
!insertmacro MUI_HEADER_TEXT_PAGE $(MUI_TEXT_STARTMENU_TITLE) $(MUI_TEXT_STARTMENU_SUBTITLE)
-
+
StrCmp $(^RTL) 0 mui.startmenu_nortl
!ifndef MUI_STARTMENUPAGE_NODISABLE
StartMenu::Init /NOUNLOAD /rtl /noicon /autoadd /text "${MUI_STARTMENUPAGE_TEXT_TOP}" /lastused "${MUI_STARTMENUPAGE_VARIABLE}" /checknoshortcuts "${MUI_STARTMENUPAGE_TEXT_CHECKBOX}" "${MUI_STARTMENUPAGE_DEFAULTFOLDER}"
@@ -1384,6 +1392,13 @@ Var /GLOBAL MUI_TEMP2
mui.startmenu_initdone:
Pop $MUI_HWND
+
+ !ifdef MUI_STARTMENUPAGE_BGCOLOR
+ GetDlgItem $MUI_TEMP1 $MUI_HWND 1002
+ SetCtlColors $MUI_TEMP1 "" "0x${MUI_STARTMENUPAGE_BGCOLOR}"
+ GetDlgItem $MUI_TEMP1 $MUI_HWND 1004
+ SetCtlColors $MUI_TEMP1 "" "0x${MUI_STARTMENUPAGE_BGCOLOR}"
+ !endif
!insertmacro MUI_PAGE_FUNCTION_CUSTOM SHOW