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

project groups: new group: add current project

Browse Source 
git-svn-id: trunk@50358 -
This commit is contained in:
mattias 2015-11-17 11:48:36 +00:00
parent 68baa62193
commit c97a53a9ba
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/projectgroups/projectgroup.pp
View File

@ -206,11 +206,20 @@ begin
end; end;
procedure TIDEProjectGroupManager.DoNewClick(Sender: TObject); procedure TIDEProjectGroupManager.DoNewClick(Sender: TObject);
var
AProject: TLazProject;
begin begin
if Not CheckSaved then if Not CheckSaved then
Exit; Exit;
FreeAndNil(FProjectGroup); FreeAndNil(FProjectGroup);
FProjectGroup:=TIDEProjectGroup.Create; FProjectGroup:=TIDEProjectGroup.Create;
// add current project
AProject:=LazarusIDE.ActiveProject;
if (AProject<>nil) and FilenameIsAbsolute(AProject.ProjectInfoFile)
and FileExistsCached(AProject.ProjectInfoFile) then
FProjectGroup.AddTarget(AProject.ProjectInfoFile);
ShowProjectGroupEditor; ShowProjectGroupEditor;
end; end;