From 29f264cb18fb24e532cfe0b7bb522ea379d50007 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Thu, 7 Jul 2016 07:14:58 +0200
Subject: [PATCH] openfile, allow to add several files from dialog

---
 src/ce_main.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index 0657e4ac..531c9a39 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -1849,12 +1849,18 @@ begin
 end;
 
 procedure TCEMainForm.actFileOpenExecute(Sender: TObject);
+var
+  fname: string;
 begin
   with TOpenDialog.Create(nil) do
   try
+    if fDoc.isNotNil and not fDoc.isTemporary then
+      initialDir := fDoc.fileName.extractFileDir;
+    options := [ofAllowMultiSelect, ofEnableSizing];
     filter := DdiagFilter;
     if execute then
-      openFile(filename);
+      for fname in files do
+        openFile(fname);
   finally
     free;
   end;