diff --git a/lcl/interfaces/win32/win32themes.pas b/lcl/interfaces/win32/win32themes.pas
index 928a1245c0..6fcdc60a29 100644
--- a/lcl/interfaces/win32/win32themes.pas
+++ b/lcl/interfaces/win32/win32themes.pas
@@ -511,7 +511,7 @@ var
   begin
     Result :=
       ((Details.Element = teTreeview) and (Details.Part = TVP_TREEITEM)) or
-      (Details.Element = teToolTip);
+      (Details.Element = teToolTip) or (Details.Element = teMenu);
   end;
 
 begin