Как создать свой пункт меню в Lazarus IDE?

[AMD]

В делфи делается так

Код: Выделить всё

{....}

uses ToolsApi, Menus;

{....}

var
item: TMenuItem;
begin
{get reference to delphi's mainmenu. You can handle it like a common TMainMenu}
with (BorlandIDEServices as INTAServices).GetMainMenu do
begin
   item := TMenuItem.Create(nil);
   item.Caption := 'A Mewn caption';
   Items.Add(item);
end;
end;

[Attid]

инструменты-настройка инструментов пользователя

[alexs]

AMD
Смотори исходники компонентов и самой среды. Всёж доступно. Ты дольше ответа в форуме будеш ждать.

[AMD]

инструменты-настройка инструментов пользователя

А теперь как это программно написать?

[Максим]

AMD
См. пример examples/codetools в каталоге Lazarus'а. Там как раз показано добавление своего пункта меню.