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

IDE: disable "Add Editor File to Project" when the file belongs to current project already

Browse Source 
git-svn-id: trunk@30371 -
This commit is contained in:
juha 2011-04-18 11:56:23 +00:00
parent a592146c7c
commit 16f0a62783
3 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/keymapping.pp
View File

@ -2772,7 +2772,7 @@ begin
AddDefault(C, 'Save project as', lisKMSaveProjectAs, ecSaveProjectAs);
AddDefault(C, 'Publish project', lisKMPublishProject, ecPublishProject);
AddDefault(C, 'Project Inspector', lisMenuProjectInspector, ecProjectInspector);
AddDefault(C, 'Add active unit to project', lisKMAddActiveUnitToProject, ecAddCurUnitToProj);
AddDefault(C, 'Add editor file to Project', lisMenuAddToProject, ecAddCurUnitToProj);
AddDefault(C, 'Remove active unit from project', lisKMRemoveActiveUnitFromProject, ecRemoveFromProj);
AddDefault(C, 'View Units', lisHintViewUnits, ecViewProjectUnits);
AddDefault(C, 'View Forms', lisHintViewForms, ecViewProjectForms);

1
ide/lazarusidestrconsts.pas
View File

@ -322,7 +322,6 @@ resourcestring
lisMenuSaveProjectAs = 'Save Project As ...';
lisMenuPublishProject = 'Publish Project ...';
lisMenuProjectInspector = 'Project Inspector';
lisKMAddActiveUnitToProject = 'Add active unit to project';
lisKMRemoveActiveUnitFromProject = 'Remove active unit from project';
lisKMViewProjectSource = 'View project source';
lisMenuAddToProject = 'Add editor file to Project';

16
ide/main.pp
View File

@ -333,6 +333,9 @@ type
procedure mnuRunFileClicked(Sender: TObject);
procedure mnuConfigBuildFileClicked(Sender: TObject);
// project menu
procedure mnuProjectClicked(Sender: TObject);
// package menu
procedure mnuPackageClicked(Sender: TObject);
// see pkgmanager.pas
@ -2571,6 +2574,7 @@ end;
procedure TMainIDE.SetupProjectMenu;
begin
inherited SetupProjectMenu;
mnuProject.OnClick:=@mnuProjectClicked;
with MainIDEBar do begin
itmProjectNew.OnClick := @mnuNewProjectClicked;
itmProjectNewFromFile.OnClick := @mnuNewProjectFromFileClicked;
@ -3945,6 +3949,18 @@ begin
end;
end;
procedure TMainIDE.mnuProjectClicked(Sender: TObject);
var
ASrcEdit: TSourceEditor;
AnUnitInfo: TUnitInfo;
PartOfProj: Boolean;
begin
PartOfProj:=False;
if BeginCodeTool(ASrcEdit,AnUnitInfo,[]) then
PartOfProj:=AnUnitInfo.IsPartOfProject;
MainIDEBar.itmProjectAddTo.Enabled:=not PartOfProj;
end;
procedure TMainIDE.mnuPackageClicked(Sender: TObject);
var
ASrcEdit: TSourceEditor;