paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 21:38:27 +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 );
end;
function onGetCommandMenu: TMenuItem;
var
menu: TMenuItem;
procedure onGetCommandMenu( const menu: TMenu );
function createSearchMenuItem: TMenuItem;
begin
Result:= TMenuItem.Create( menu );
@ -83,9 +80,7 @@ var
end;
begin
menu:= TMenuItem.Create( nil );
menu.Add( createSearchMenuItem );
Result:= menu;
menu.Items.Add( createSearchMenuItem );
end;