Well I managed to get the First Menu (the top level).
The problem now is creating the children inside it.
in other words, this works:
procedure Register;
begin
RegisterIDEMenuCommand(mnuMain, 'mniJFrameworkMainMenu','&Jota Framework', nil, nil);
end;
Now, I guess that the code above is creating a TIDEMenuCommand whith the name 'mniJFrameworkMainMenu'.
I'm trying to create the children, using the other overloaded method, passing the 'mniJFrameworkMainMenu' as the path parameter.
procedure Register;
begin
RegisterIDEMenuCommand(mnuMain, 'mniJFrameworkMainMenu','&Jota Framework', nil, nil);
RegisterIDEMenuCommand('mniJFrameworkMainMenu', 'mniJFrameworkOpenProjectManager', 'Abrir JFW Manager', nil, @OpenJFWManager);
end;
The second line doesn't work, Lazarus doesn't open. (Err. Msg: IDE Path Menu not found).
Thank you.
I used that documentation to write the code above, but I missed something, because it didn't work.
The top level menu didn't show, and thus, so it's children.