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

IDE: Check for valid source editor when opening Project menu.

Browse Source 
git-svn-id: trunk@30402 -
This commit is contained in:
juha 2011-04-20 14:07:54 +00:00
parent 47e46eae59
commit 8c68272871
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -3953,9 +3953,13 @@ procedure TMainIDE.mnuProjectClicked(Sender: TObject);
var
ASrcEdit: TSourceEditor;
AnUnitInfo: TUnitInfo;
PartOfProj: Boolean;
begin
PartOfProj:=False;
GetCurrentUnit(ASrcEdit,AnUnitInfo);
MainIDEBar.itmProjectAddTo.Enabled:=not AnUnitInfo.IsPartOfProject;
if Assigned(ASrcEdit) then
PartOfProj:=AnUnitInfo.IsPartOfProject;
MainIDEBar.itmProjectAddTo.Enabled:=not PartOfProj;
end;
procedure TMainIDE.mnuPackageClicked(Sender: TObject);