From c97a53a9ba104bf568ca70a858b2dcba002b5b6c Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 17 Nov 2015 11:48:36 +0000
Subject: [PATCH] project groups: new group: add current project

git-svn-id: trunk@50358 -
---
 components/projectgroups/projectgroup.pp | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/components/projectgroups/projectgroup.pp b/components/projectgroups/projectgroup.pp
index 8493fd5aca..f6002b9b13 100644
--- a/components/projectgroups/projectgroup.pp
+++ b/components/projectgroups/projectgroup.pp
@@ -206,11 +206,20 @@ begin
 end;
 
 procedure TIDEProjectGroupManager.DoNewClick(Sender: TObject);
+var
+  AProject: TLazProject;
 begin
   if Not CheckSaved then
     Exit;
   FreeAndNil(FProjectGroup);
   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;
 end;