mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-29 05:02:46 +02:00
project groups: toolbar items
git-svn-id: trunk@54384 -
This commit is contained in:
parent
2037baa360
commit
c91d2e4491
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user