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

Qt: Systrayicon popup menu fix. Fixes #12586

Browse Source 
git-svn-id: trunk@17266 -
This commit is contained in:
zeljko 2008-11-07 15:48:44 +00:00
parent 1f638cd4e4
commit 69db61d5a6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/qt/qtwidgets.pas
View File

@ -7639,7 +7639,8 @@ end;
procedure TQtMenu.DoPopupClose;
begin
TPopupMenu(FMenuItem.Menu).Close;
if Assigned(TPopupMenu(FMenuItem.Menu).OnClose) then
TPopupMenu(FMenuItem.Menu).OnClose(TPopupMenu(FMenuItem.Menu));
end;
procedure TQtMenu.SlotDestroy; cdecl;