{ Registers a keyboard shortcut and menu item in Lazarus}
procedure Register;
var
Key1,Key2: TIDEShortCut;
Cat: TIDECommandCategory;
begin
Key1 := IDEShortCut(VK_M, [ssCtrl], VK_UNKNOWN, []);
Key2 := IDEShortCut(VK_UNKNOWN, [], VK_UNKNOWN, []);
Cat := IDECommandList.CreateCategory(Nil, cMessageComposer,
SMessageComposerCaption,
IDECmdScopeSrcEditOnly);
CmdMessageComposer := RegisterIDECommand(Cat, cMessageComposer,
SMessageComposerCaption,
Key1, Key2,nil,
@ExecuteMessagesComposer);
RegisterIDEMenuCommand(itmSourceTools, cMessageComposer,
SMessageComposerMenuCaption,
nil, nil, CmdMessageComposer);
end;