paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 15:48:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add IDE command for pas2js webserver dialog, so IDE spotter can find it

Browse Source 
git-svn-id: trunk@59260 -
This commit is contained in:
michael 2018-10-07 08:25:04 +00:00
parent 10690a117f
commit 71e00d6853
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/pas2js/pjsdsgnregister.pas
View File

@ -92,7 +92,7 @@ uses
frmpas2jsnodejsprojectoptions,
frmpas2jsbrowserprojectoptions,
pjsprojectoptions,
pjscontroller, strpas2jsdesign, MenuIntf;
pjscontroller, strpas2jsdesign, IDECommands, ToolbarIntf, MenuIntf;
procedure ShowServerDialog(Sender: TObject);
begin
@ -100,8 +100,15 @@ begin
TPasJSWebserverProcessesForm.Instance.BringToFront;
end;
Const
sPas2JSWebserversName = 'Pas2JSWebservers';
procedure Register;
Var
ViewCategory : TIDECommandCategory;
IDECommand : TIDECommand;
begin
PJSOptions:=TPas2jsOptions.Create;
PJSOptions.Load;
@ -112,7 +119,15 @@ begin
// add IDE options frame
PJSOptionsFrameID:=RegisterIDEOptionsEditor(GroupEnvironment,TPas2jsOptionsFrame,
PJSOptionsFrameID)^.Index;
RegisterIdeMenuCommand(itmViewDebugWindows,'Pas2JSWebservers',SPasJSWebserversCaption,nil,@ShowServerDialog);
ViewCategory := IDECommandList.FindCategoryByName(CommandCategoryViewName);
if ViewCategory <> nil then
begin
IDECommand := RegisterIDECommand(ViewCategory,SPas2JSWebserversName,SPasJSWebserversCaption,
CleanIDEShortCut,CleanIDEShortCut,Nil,@ShowServerDialog);
if IDECommand <> nil then
RegisterIDEButtonCommand(IDECommand);
end;
RegisterIdeMenuCommand(itmViewDebugWindows,SPas2JSWebserversName,SPasJSWebserversCaption,nil,@ShowServerDialog);
// Add project options frame
RegisterIDEOptionsEditor(GroupProject,TPas2JSProjectOptionsFrame, Pas2JSOptionsIndex);
end;