paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 00:30:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt5: fixed doubled menu items in IDE.issue #39364

Browse Source 
(cherry picked from commit 515da22427)
This commit is contained in:
Željan Rikalo 2021-09-14 12:03:56 +02:00 committed by Maxim Ganetsky
parent 944ed82c30
commit de2c5d0f91
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt5/qtwsmenus.pp
View File

@ -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 }