Как добавить пункт меню в Lazarus

[Climber]

Хочу сделать небольшую доработку.
Нашел пример тут: http://wiki.lazarus.freepascal.org/Exte ... _menu_item
Но есть подозрение, что я что-то не так понял.
Я сделал пакет (это код, который Lazarus генерирует автоматически):

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

unit DBhelper;

interface

uses
  BaseDBHelper, LazarusPackageIntf;

implementation

procedure Register;
begin
  RegisterUnit('BaseDBHelper', @BaseDBHelper.Register);
end;

initialization
  RegisterPackage('DBhelper', @Register);
end.

И собственно свой модуль для того, чтобы мой пункт меню работал:

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

unit BaseDBHelper;
interface
uses
  Classes, SysUtils, IDECommands, MenuIntf,
  Dialogs;

procedure Register;

implementation

procedure StartMyTool(Sender: TObject);
begin
  //...executed when menu item is clicked...
  ShowMessage('Мой пакет');
end;

procedure Register;
begin
  RegisterIDEMenuCommand(mnuTools, 'MyTool', 'Start my tool', nil, @StartMyTool);
end;

initialization

  Register;

end.

Я так понимаю, в меню "Сервис" должен появиться новый пункт меню с названием "Start my tool". Сделал пакет, скомпилировал, пересобрал Lazarus. После пересборки пакет появился в списке установленных,а пункта меню нет. Что не так?

[alexs]

Посмотри как реализованов пакете LazSVN или в lazwebextra

[Climber]

Посмотрел реализацию пакета leakview (он тоже меню добавляет). Там написано то же самое, что и у меня. Только проблема похоже в другом: у меня установлены пакеты leakview и мой пакет, а в меню пунктов нет! Попробовал установить lazsvn - то же самое, пакет появился в списке установленных, а в меню ничего не появилось.