paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-29 05:02:46 +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 interface
uses uses
Classes, SysUtils, ProjectGroupIntf, MenuIntf, IDECommands, Classes, SysUtils, ProjectGroupIntf, MenuIntf, IDECommands, ToolBarIntf,
ProjectGroupStrConst, ProjectGroup, ProjectGroupEditor; ProjectGroupStrConst, ProjectGroup, ProjectGroupEditor;
procedure RegisterProjectGroupEditorMenuItems; procedure RegisterProjectGroupEditorMenuItems;
@ -77,6 +77,7 @@ procedure Register;
begin begin
Cmd:=RegisterIDECommand(PGCmdCategory,Name,Caption,OnExecuteMethod); Cmd:=RegisterIDECommand(PGCmdCategory,Name,Caption,OnExecuteMethod);
MenuCmd:=RegisterIDEMenuCommand(Section,Name,Caption,nil,nil,Cmd); MenuCmd:=RegisterIDEMenuCommand(Section,Name,Caption,nil,nil,Cmd);
RegisterIDEButtonCommand(Cmd);
end; end;
begin begin
@ -86,16 +87,16 @@ begin
PGCmdCategory:=RegisterIDECommandCategory(nil,ProjectGroupCmdCategoryName,lisProjectGroups); PGCmdCategory:=RegisterIDECommandCategory(nil,ProjectGroupCmdCategoryName,lisProjectGroups);
RegisterMnuCmd(CmdNewProjectGroup,MnuCmdNewProjectGroup,itmProjectNewSection, RegisterMnuCmd(CmdNewProjectGroup,MnuCmdNewProjectGroup,itmProjectNewSection,
'NewProjectGroup',lisNewProjectGroupMenuC,@IDEProjectGroupManager.DoNewClick); 'New Project Group',lisNewProjectGroupMenuC,@IDEProjectGroupManager.DoNewClick);
RegisterMnuCmd(CmdOpenProjectGroup,MnuCmdOpenProjectGroup,itmProjectOpenSection, RegisterMnuCmd(CmdOpenProjectGroup,MnuCmdOpenProjectGroup,itmProjectOpenSection,
'OpenProjectGroup',lisOpenProjectGroup,@IDEProjectGroupManager.DoOpenClick); 'Open Project Group',lisOpenProjectGroup,@IDEProjectGroupManager.DoOpenClick);
PGOpenRecentSubMenu:=RegisterIDESubMenu(itmProjectOpenSection, PGOpenRecentSubMenu:=RegisterIDESubMenu(itmProjectOpenSection,
'OpenRecentProjectGroup',lisOpenRecentProjectGroup); 'Open recent Project Group',lisOpenRecentProjectGroup);
RegisterMnuCmd(CmdSaveProjectGroup,MnuCmdSaveProjectGroup,itmProjectSaveSection, RegisterMnuCmd(CmdSaveProjectGroup,MnuCmdSaveProjectGroup,itmProjectSaveSection,
'SaveProjectGroup',lisSaveProjectGroup,@IDEProjectGroupManager.DoSaveClick); 'Save Project Group',lisSaveProjectGroup,@IDEProjectGroupManager.DoSaveClick);
MnuCmdSaveProjectGroup.Enabled:=false; MnuCmdSaveProjectGroup.Enabled:=false;
RegisterMnuCmd(CmdSaveProjectGroupAs,MnuCmdSaveProjectGroupAs,itmProjectSaveSection, RegisterMnuCmd(CmdSaveProjectGroupAs,MnuCmdSaveProjectGroupAs,itmProjectSaveSection,
'SaveProjectGroupAs',lisSaveProjectGroupAs,@IDEProjectGroupManager.DoSaveAsClick); 'Save Project Group as',lisSaveProjectGroupAs,@IDEProjectGroupManager.DoSaveAsClick);
MnuCmdSaveProjectGroupAs.Enabled:=false; MnuCmdSaveProjectGroupAs.Enabled:=false;
RegisterProjectGroupEditorMenuItems; RegisterProjectGroupEditorMenuItems;