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

IDE/Cocoa: adapt to the new API of Modern Form Style Tool Bar

Browse Source
This commit is contained in:
rich2014 2024-10-31 21:24:40 +08:00
parent 8f2d7ca2b5
commit fc0fe67716
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/cocoaideformconfig.inc
View File

@ -70,10 +70,7 @@ begin
SourceEditorManager.JumpForwardClicked( nil ); SourceEditorManager.JumpForwardClicked( nil );
end; end;
function onGetCommandMenu: TMenuItem; procedure onGetCommandMenu( const menu: TMenu );
var
menu: TMenuItem;
function createSearchMenuItem: TMenuItem; function createSearchMenuItem: TMenuItem;
begin begin
Result:= TMenuItem.Create( menu ); Result:= TMenuItem.Create( menu );
@ -83,9 +80,7 @@ var
end; end;
begin begin
menu:= TMenuItem.Create( nil ); menu.Items.Add( createSearchMenuItem );
menu.Add( createSearchMenuItem );
Result:= menu;
end; end;