From de2c5d0f91d679a82ae63b47eee20ebf94fbc459 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C5=BDeljan=20Rikalo?= <zeljko@lazarus-ide.org>
Date: Tue, 14 Sep 2021 12:03:56 +0200
Subject: [PATCH] Qt5: fixed doubled menu items in IDE.issue #39364

(cherry picked from commit 515da224274c1666e41a25ac87891524cccd79f9)
---
 lcl/interfaces/qt5/qtwsmenus.pp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lcl/interfaces/qt5/qtwsmenus.pp b/lcl/interfaces/qt5/qtwsmenus.pp
index 660fc56183..a43de0788d 100644
--- a/lcl/interfaces/qt5/qtwsmenus.pp
+++ b/lcl/interfaces/qt5/qtwsmenus.pp
@@ -400,7 +400,11 @@ begin
   if not WSCheckMenuItem(AMenuItem, 'UpdateMenuIcon') then
     Exit;
   if AMenuItem.HasParent then
+  begin
+    if Assigned(TQtMenu(AMenuItem.handle).actionHandle) then
+      QAction_setVisible(TQtMenu(AMenuItem.handle).actionHandle, False);
     AMenuItem.RecreateHandle;
+  end;
 end;
 
 { TQtWSMenu }