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

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

Browse Source
This commit is contained in:
Željan Rikalo 2021-09-14 12:03:56 +02:00
parent 0f5ed91814
commit 515da22427
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

@ -408,7 +408,11 @@ begin
if not WSCheckMenuItem(AMenuItem, 'UpdateMenuIcon') then if not WSCheckMenuItem(AMenuItem, 'UpdateMenuIcon') then
Exit; Exit;
if AMenuItem.HasParent then if AMenuItem.HasParent then
begin
if Assigned(TQtMenu(AMenuItem.handle).actionHandle) then
QAction_setVisible(TQtMenu(AMenuItem.handle).actionHandle, False);
AMenuItem.RecreateHandle; AMenuItem.RecreateHandle;
end;
end; end;
{ TQtWSMenu } { TQtWSMenu }