diff --git a/lcl/interfaces/win32/win32wsmenus.pp b/lcl/interfaces/win32/win32wsmenus.pp
index 5c2e779465..509e987d3e 100644
--- a/lcl/interfaces/win32/win32wsmenus.pp
+++ b/lcl/interfaces/win32/win32wsmenus.pp
@@ -841,7 +841,7 @@ begin
   begin
     // 3d menu bar always have standard color
     if aIsInMenuBar then
-      Result := GetSysColor(COLOR_3DFACE)
+      Result := GetSysColor(COLOR_MENU)
     else
     if (ItemState and ODS_SELECTED) <> 0 then
       Result := GetSysColor(COLOR_HIGHLIGHT)