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

Qt: do not call directly TPopupMenu().Close, since it crashes on MacOsX, set global variable Menus.ActivePopupMenu := nil and use OnClose()

Browse Source 
git-svn-id: trunk@23548 -
This commit is contained in:
zeljko 2010-01-24 17:20:45 +00:00
parent 15f98d8c3f
commit 29758e8f72
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8480,7 +8480,11 @@ end;
procedure TQtMenu.DoPopupClose; procedure TQtMenu.DoPopupClose;
begin begin
if FMenuItem.Menu is TPopupMenu then if FMenuItem.Menu is TPopupMenu then
TPopupMenu(FMenuItem.Menu).Close; begin
if Assigned(TPopupMenu(FMenuItem.Menu).OnClose) then
TPopupMenu(FMenuItem.Menu).OnClose(FMenuItem.Menu);
Menus.ActivePopupMenu := nil;
end;
end; end;
procedure TQtMenu.SlotDestroy; cdecl; procedure TQtMenu.SlotDestroy; cdecl;