paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-25 22:42:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

project groups: toolbar items

Browse Source 
git-svn-id: trunk@54384 -
This commit is contained in:
mattias 2017-03-11 09:48:00 +00:00
parent 2037baa360
commit c91d2e4491
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/projectgroups/regprojectgroup.pp
View File

@ -5,7 +5,7 @@ unit RegProjectGroup;
interface
uses
Classes, SysUtils, ProjectGroupIntf, MenuIntf, IDECommands,
Classes, SysUtils, ProjectGroupIntf, MenuIntf, IDECommands, ToolBarIntf,
ProjectGroupStrConst, ProjectGroup, ProjectGroupEditor;
procedure RegisterProjectGroupEditorMenuItems;
@ -77,6 +77,7 @@ procedure Register;
begin
Cmd:=RegisterIDECommand(PGCmdCategory,Name,Caption,OnExecuteMethod);
MenuCmd:=RegisterIDEMenuCommand(Section,Name,Caption,nil,nil,Cmd);
RegisterIDEButtonCommand(Cmd);
end;
begin
@ -86,16 +87,16 @@ begin
PGCmdCategory:=RegisterIDECommandCategory(nil,ProjectGroupCmdCategoryName,lisProjectGroups);
RegisterMnuCmd(CmdNewProjectGroup,MnuCmdNewProjectGroup,itmProjectNewSection,
'NewProjectGroup',lisNewProjectGroupMenuC,@IDEProjectGroupManager.DoNewClick);
'New Project Group',lisNewProjectGroupMenuC,@IDEProjectGroupManager.DoNewClick);
RegisterMnuCmd(CmdOpenProjectGroup,MnuCmdOpenProjectGroup,itmProjectOpenSection,
'OpenProjectGroup',lisOpenProjectGroup,@IDEProjectGroupManager.DoOpenClick);
'Open Project Group',lisOpenProjectGroup,@IDEProjectGroupManager.DoOpenClick);
PGOpenRecentSubMenu:=RegisterIDESubMenu(itmProjectOpenSection,
'OpenRecentProjectGroup',lisOpenRecentProjectGroup);
'Open recent Project Group',lisOpenRecentProjectGroup);
RegisterMnuCmd(CmdSaveProjectGroup,MnuCmdSaveProjectGroup,itmProjectSaveSection,
'SaveProjectGroup',lisSaveProjectGroup,@IDEProjectGroupManager.DoSaveClick);
'Save Project Group',lisSaveProjectGroup,@IDEProjectGroupManager.DoSaveClick);
MnuCmdSaveProjectGroup.Enabled:=false;
RegisterMnuCmd(CmdSaveProjectGroupAs,MnuCmdSaveProjectGroupAs,itmProjectSaveSection,
'SaveProjectGroupAs',lisSaveProjectGroupAs,@IDEProjectGroupManager.DoSaveAsClick);
'Save Project Group as',lisSaveProjectGroupAs,@IDEProjectGroupManager.DoSaveAsClick);
MnuCmdSaveProjectGroupAs.Enabled:=false;
RegisterProjectGroupEditorMenuItems;