From 89bf1382858372031f9573b0dff1780b49d52e54 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 6 Jul 2016 06:52:43 +0200
Subject: [PATCH] projects group, allow to add several files from dialog

---
 src/ce_projgroup.pas | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/src/ce_projgroup.pas b/src/ce_projgroup.pas
index fad7ed68..0e4e4986 100644
--- a/src/ce_projgroup.pas
+++ b/src/ce_projgroup.pas
@@ -431,15 +431,24 @@ end;
 
 {$REGION Widget project group things -------------------------------------------}
 procedure TCEProjectGroupWidget.BtnAddProjClick(Sender: TObject);
+var
+  fname: string;
+  added: boolean;
 begin
   with TOpenDialog.Create(nil) do
   try
+    Options:= [ofAllowMultiSelect, ofEnableSizing];
     if not execute then
       exit;
-    if projectGroup.findProject(filename) <> nil then
-      exit;
-    projectGroup.addItem(filename);
-    updateList;
+    for fname in Files do
+    begin
+      if projectGroup.findProject(fname) <> nil then
+        continue;
+      projectGroup.addItem(fname);
+      added := true;
+    end;
+    if added then
+      updateList;
   finally
     free;
   end;