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

cocoa: send activate message (Onclick event) whenever a submenu opens up. #30808

Browse Source 
git-svn-id: trunk@61260 -
This commit is contained in:
dmitry 2019-05-21 17:27:58 +00:00
parent d3116a25f7
commit 79e367e184
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/cocoa/cocoawsmenus.pas
View File

@ -84,6 +84,7 @@ type
procedure attachAppleMenuItems(); message 'attachAppleMenuItems';
function isValidAppleMenu(): LCLObjCBoolean; message 'isValidAppleMenu';
procedure menuNeedsUpdate(AMenu: NSMenu); message 'menuNeedsUpdate:';
procedure menuWillOpen(AMenu: NSMenu); message 'menuWillOpen:';
end;
TCocoaMenuItem_HideApp = objcclass(NSMenuItem)
@ -381,6 +382,16 @@ begin
//todo: call "measureItem"
end;
procedure TCocoaMenuItem.menuWillOpen(AMenu: NSMenu);
var
Msg:TLMessage;
begin
FillChar(Msg{%H-}, SizeOf(Msg), 0);
Msg.msg := LM_ACTIVATE;
// debugln('send LM_Activate');
LCLMessageGlue.DeliverMessage(FMenuItemTarget,Msg);
end;
procedure TCocoaMenuItem_HideApp.lclItemSelected(sender: id);
begin
// Applicaiton.Minimize, calls WidgetSet.AppMinimize;