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

Cocoa/ToolBar: fine-tuning

Browse Source
This commit is contained in:
rich2014 2024-09-08 01:57:29 +08:00
parent b83d086ebd
commit b5a01af355
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/cocoa/cocoatoolbar.pas
View File

@ -450,7 +450,7 @@ var
begin
index:= _itemGroup.selectedIndex;
self.lclSetSelectedIndex( index );
_handler( self.lclGetSelectedItem );
_handler( _itemGroup );
end;
function TCocoaToolBarItemGroupWrapper.lclGetSelectedItem: NSToolBarItem;
@ -732,8 +732,10 @@ begin
if NOT Assigned(_onAction) then
cocoaItem.setAction( nil );
cocoaMenu:= NSMenuItem(_menu.Handle).submenu;
cocoaItem.setMenu( cocoaMenu );
if Assigned(_menu) then begin
cocoaMenu:= NSMenuItem(_menu.Handle).submenu;
cocoaItem.setMenu( cocoaMenu );
end;
cocoaItem.autorelease;
Result:= cocoaItem;