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

Qt: removed workaround for darwin TPopupMenu.Close

Browse Source 
git-svn-id: trunk@23587 -
This commit is contained in:
zeljko 2010-01-29 07:09:41 +00:00
parent da9f4b2ed4
commit 2ee917e36f
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8494,15 +8494,7 @@ end;
procedure TQtMenu.DoPopupClose;
begin
if FMenuItem.Menu is TPopupMenu then
begin
{$IFDEF DARWIN}
if Assigned(TPopupMenu(FMenuItem.Menu).OnClose) then
TPopupMenu(FMenuItem.Menu).OnClose(FMenuItem.Menu);
Menus.ActivePopupMenu := nil;
{$ELSE}
TPopupMenu(FMenuItem.Menu).Close;
{$ENDIF}
end;
end;
procedure TQtMenu.SlotDestroy; cdecl;