paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: added package -> New package ... menu option based on patch from Samuel Herzog (bug #11161)

Browse Source 
git-svn-id: trunk@14877 -
This commit is contained in:
vincents 2008-04-18 13:21:47 +00:00
parent c81003eefa
commit 543413cdd4
6 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/keymapping.pp
View File

@ -521,6 +521,7 @@ begin
ecAddWatch: SetResult(VK_F5,[ssCtrl],VK_UNKNOWN,[]);
// components menu
ecNewPackage: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecOpenPackage: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecOpenPackageFile: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecOpenPackageOfCurUnit: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
@ -844,6 +845,7 @@ begin
ecAddWatch: SetResult(VK_F7,[ssCtrl],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
// components menu
ecNewPackage: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecOpenPackage: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecOpenPackageFile: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecOpenPackageOfCurUnit: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
@ -1493,6 +1495,7 @@ begin
ecAddWatch : Result:= srkmecAddWatch;
// components menu
ecNewPackage : Result:= lisKMNewPackage;
ecOpenPackage : Result:= lisMenuOpenPackage;
ecOpenPackageFile : Result:= lisMenuOpenPackageFile;
ecOpenPackageOfCurUnit : Result:= lisMenuOpenPackageOfCurUnit;
@ -2496,6 +2499,7 @@ begin
// components menu
C:=Categories[AddCategory('Components',srkmCatPackageMenu,nil)];
AddDefault(C, 'New package', lisKMNewPackage, ecNewPackage);
AddDefault(C, 'Open package', lisCompPalOpenPackage, ecOpenPackage);
AddDefault(C, 'Open package file', lisKMOpenPackageFile, ecOpenPackageFile);
AddDefault(C, 'Open package of current unit', lisMenuOpenPackageOfCurUnit,

3
ide/lazarusidestrconsts.pas
View File

@ -340,7 +340,7 @@ resourcestring
lisMenuAddBreakpoint = 'Add breakpoint';
lisMenuAddBpSource = 'Source breakpoint';
lisMenuNewPackage = 'New package ...';
lisMenuOpenPackage = 'Open loaded package ...';
lisMenuOpenRecentPkg = 'Open recent package ...';
lisMenuOpenPackageFile = 'Open package file (.lpk) ...';
@ -2559,6 +2559,7 @@ resourcestring
lisProjAddMaximumVersionOptional = 'Maximum Version (optional):';
// component palette
lisKMNewPackage = 'New package';
lisCompPalOpenPackage = 'Open package';
lisKMOpenPackageFile = 'Open package file';
lisCPOpenPackage = 'Open Package %s';

1
ide/mainbar.pas
View File

@ -266,6 +266,7 @@ type
// components menu
//mnuComponents: TIDEMenuSection;
//itmPkgOpening: TIDEMenuSection;
itmPkgNewPackage: TIDEMenuCommand;
itmPkgOpenPackage: TIDEMenuCommand;
itmPkgOpenPackageFile: TIDEMenuCommand;
itmPkgOpenPackageOfCurUnit: TIDEMenuCommand;

2
ide/mainbase.pas
View File

@ -645,6 +645,7 @@ begin
CreateMenuSeparatorSection(mnuComponent,itmPkgOpening,'itmPkgOpening');
ParentMI:=itmPkgOpening;
CreateMenuItem(ParentMI,itmPkgNewPackage,'itmPkgNewPackage',lisMenuNewPackage);
CreateMenuItem(ParentMI,itmPkgOpenPackage,'itmPkgOpenPackage',lisMenuOpenPackage,'pkg_installed');
CreateMenuItem(ParentMI,itmPkgOpenPackageFile,'itmPkgOpenPackageFile',lisMenuOpenPackageFile,'pkg_open');
CreateMenuItem(ParentMI,itmPkgOpenPackageOfCurUnit,'itmPkgOpenPackageOfCurUnit',lisMenuOpenPackageOfCurUnit);
@ -922,6 +923,7 @@ begin
itmRunMenuConfigBuildFile.Command:=GetCommand(ecConfigBuildFile);
// components menu
itmPkgNewPackage.Command:=GetCommand(ecNewPackage);
itmPkgOpenPackage.Command:=GetCommand(ecOpenPackage);
itmPkgOpenPackageFile.Command:=GetCommand(ecOpenPackageFile);
itmPkgOpenPackageOfCurUnit.Command:=GetCommand(ecOpenPackageOfCurUnit);

1
ideintf/idecommands.pas
View File

@ -247,6 +247,7 @@ const
ecPackageGraph = ecFirstLazarus + 604;
ecEditInstallPkgs = ecFirstLazarus + 605;
ecConfigCustomComps = ecFirstLazarus + 606;
ecNewPackage = ecFirstLazarus + 607;
// custom tools menu
ecExtToolFirst = ecFirstLazarus + 700;

7
packager/pkgmanager.pas
View File

@ -131,6 +131,7 @@ type
procedure MainIDEitmConfigCustomCompsClicked(Sender: TObject);
procedure MainIDEitmOpenRecentPackageClicked(Sender: TObject);
procedure MainIDEitmPkgOpenPackageClicked(Sender: TObject);
procedure MainIDEitmPkgNewPackageClick(Sender: TObject);
procedure MainIDEViewPackageLinksClicked(Sender: TObject);
// component palette
@ -974,6 +975,11 @@ begin
ShowConfigureCustomComponents;
end;
procedure TPkgManager.MainIDEitmPkgNewPackageClick(Sender: TObject);
begin
DoNewPackage;
end;
procedure TPkgManager.MainIDEitmPkgOpenPackageClicked(Sender: TObject);
begin
DoShowOpenInstalledPckDlg;
@ -1840,6 +1846,7 @@ end;
procedure TPkgManager.ConnectMainBarEvents;
begin
with MainIDEBar do begin
itmPkgNewPackage.OnClick :=@MainIDEitmPkgNewPackageClick;
itmPkgOpenPackage.OnClick :=@MainIDEitmPkgOpenPackageClicked;
itmPkgOpenPackageFile.OnClick:=@MainIDEitmPkgOpenPackageFileClick;
itmPkgOpenPackageOfCurUnit.OnClick :=@MainIDEitmPkgOpenPackageOfCurUnitClicked;