paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 14:20:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: Fixed duplicated menu entries.

Browse Source
This commit is contained in:
zeljan1 2022-09-07 19:24:43 +02:00
parent 787c6de6c0
commit 0348a514b1
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/qt/qtwsmenus.pp
View File

@ -409,8 +409,12 @@ 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 }