From e442c1fea2fea816a4e80b4c7b90333a381c03f2 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Thu, 1 Oct 2015 07:05:50 +0200
Subject: [PATCH] D&D, try to open an editor first, then proj then always
 editor

---
 src/ce_main.pas | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index cedf49b1..6ce4620e 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -188,7 +188,7 @@ type
     procedure actEdUnIndentExecute(Sender: TObject);
     procedure ApplicationProperties1Exception(Sender: TObject; E: Exception);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
-    procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
+    procedure FormDropFiles(Sender: TObject; const FileNames: array of string);
   private
 
     fDoc: TCESynMemo;
@@ -1458,13 +1458,15 @@ begin
     saveFile(fMultidoc.document[i]);
 end;
 
-procedure TCEMainForm.FormDropFiles(Sender: TObject;const FileNames: array of String);
+procedure TCEMainForm.FormDropFiles(Sender: TObject;const FileNames: array of string);
 var
   fname: string;
 begin
   for fname in FileNames do
   begin
-    if isValidNativeProject(fname) or isValidDubProject(fname) then
+    if isEditable(fname) then
+      openFile(fname)
+    else if isValidNativeProject(fname) or isValidDubProject(fname) then
     begin
       openProj(fname);
       break;