paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 17:01:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: disable Package->"Add active file to package" when the file belongs to a project.

Browse Source 
git-svn-id: trunk@32616 -
This commit is contained in:
juha 2011-10-02 10:36:19 +00:00
parent a725ba2564
commit 4544f7b6e8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/main.pp
View File

@ -3968,7 +3968,8 @@ begin
PkgFile:=PackageGraph.FindFileInAllPackages(AUnitInfo.Filename,true, PkgFile:=PackageGraph.FindFileInAllPackages(AUnitInfo.Filename,true,
not AUnitInfo.IsPartOfProject); not AUnitInfo.IsPartOfProject);
OpenPkgCurF:=Assigned(PkgFile); OpenPkgCurF:=Assigned(PkgFile);
AddCurF:=(not AUnitInfo.IsVirtual) and FileExistsUTF8(AUnitInfo.Filename); AddCurF:=(not AUnitInfo.IsVirtual) and FileExistsUTF8(AUnitInfo.Filename)
and not AUnitInfo.IsPartOfProject;
end; end;
MainIDEBar.itmPkgOpenPackageOfCurUnit.Enabled:=OpenPkgCurF; MainIDEBar.itmPkgOpenPackageOfCurUnit.Enabled:=OpenPkgCurF;
MainIDEBar.itmPkgAddCurFileToPkg.Enabled:=AddCurF; MainIDEBar.itmPkgAddCurFileToPkg.Enabled:=AddCurF;