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

MG: added new project from file

Browse Source 
git-svn-id: trunk@3316 -
This commit is contained in:
lazarus 2002-09-10 18:17:31 +00:00
parent 9d3a802e24
commit 10a697c44d
3 changed files with 28 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
ide/keymapping.pp
View File

@ -126,13 +126,14 @@ const
ecExtToolLast = ecUserFirst + 599;
ecNewProject = ecUserFirst + 700;
ecOpenProject = ecUserFirst + 701;
ecSaveProject = ecUserFirst + 702;
ecSaveProjectAs = ecUserFirst + 703;
ecAddCurUnitToProj = ecUserFirst + 704;
ecRemoveFromProj = ecUserFirst + 705;
ecViewProjectSource = ecUserFirst + 706;
ecProjectOptions = ecUserFirst + 707;
ecNewProjectFromFile = ecUserFirst + 701;
ecOpenProject = ecUserFirst + 702;
ecSaveProject = ecUserFirst + 703;
ecSaveProjectAs = ecUserFirst + 704;
ecAddCurUnitToProj = ecUserFirst + 705;
ecRemoveFromProj = ecUserFirst + 706;
ecViewProjectSource = ecUserFirst + 707;
ecProjectOptions = ecUserFirst + 708;
ecRunParameters = ecUserFirst + 800;
ecCompilerOptions = ecUserFirst + 801;
@ -534,6 +535,17 @@ begin
ecFindBlockOtherEnd: Result:='find block other end';
ecFindBlockStart: Result:='find block start';
// project
ecNewProject: Result:='New project';
ecNewProjectFromFile: Result:='New project from file';
ecOpenProject: Result:='Open project';
ecSaveProject: Result:='Save project';
ecSaveProjectAs: Result:='Save project as';
ecAddCurUnitToProj: Result:='Add active unit to project';
ecRemoveFromProj: Result:='Remove active unit from project';
ecViewProjectSource: Result:='View project source';
ecProjectOptions: Result:='View project options';
// run menu
ecBuild: Result:= 'build program/project';
ecBuildAll: Result:= 'build all files of program/project';
@ -1274,6 +1286,7 @@ begin
// project menu
C:=Categories[AddCategory('ProjectMenu','Project menu commands',caAll)];
Add(C,'New project',ecNewProject,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'New project from file',ecNewProjectFromFile,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Open project',ecOpenProject,VK_F11,[ssCtrl],VK_UNKNOWN,[]);
Add(C,'Save project',ecSaveProject,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Save project as',ecSaveProjectAs,VK_UNKNOWN,[],VK_UNKNOWN,[]);

1
ide/lazarusidestrconsts.pas
View File

@ -148,6 +148,7 @@ ResourceString
lisMenuViewCallStack = 'Call Stack';
lisMenuViewDebugOutput = 'Debug output';
lisMenuNewProject = 'New Project';
lisMenuNewProjectFromFile = 'New Project from file';
lisMenuOpenProject = 'Open Project';
lisMenuOpenRecentProject = 'Open Recent Project';
lisMenuSaveProject = 'Save Project';

7
ide/mainbar.pas
View File

@ -181,6 +181,7 @@ type
itmViewToggleFormUnit: TMenuItem;
itmProjectNew: TMenuItem;
itmProjectNewFromFile: TMenuItem;
itmProjectOpen: TMenuItem;
itmProjectRecentOpen: TMenuItem;
itmProjectSave: TMenuItem;
@ -663,6 +664,11 @@ begin
itmProjectNew.Caption := lisMenuNewProject;
mnuProject.Add(itmProjectNew);
itmProjectNewFromFile := TMenuItem.Create(Self);
itmProjectNewFromFile.Name:='itmProjectNewFromFile';
itmProjectNewFromFile.Caption := lisMenuNewProjectFromFile;
mnuProject.Add(itmProjectNewFromFile);
itmProjectOpen := TMenuItem.Create(Self);
itmProjectOpen.Name:='itmProjectOpen';
itmProjectOpen.Caption := lisMenuOpenProject;
@ -897,6 +903,7 @@ begin
itmViewMessage.ShortCut:=CommandToShortCut(ecToggleMessages);
itmProjectNew.ShortCut:=CommandToShortCut(ecNewProject);
itmProjectNewFromFile.ShortCut:=CommandToShortCut(ecNewProjectFromFile);
itmProjectOpen.ShortCut:=CommandToShortCut(ecOpenProject);
//itmProjectRecentOpen.ShortCut:=CommandToShortCut(ec);
itmProjectSave.ShortCut:=CommandToShortCut(ecSaveProject);