From c95a1c5a13b9e65fbb3a19d1adb752a05225aaf2 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 25 Oct 2015 18:50:30 +0100
Subject: [PATCH] miniexplorer, pen icon, allowed to open a project

---
 src/ce_miniexplorer.lfm |  2 +-
 src/ce_miniexplorer.pas | 15 ++++++++++++---
 2 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/src/ce_miniexplorer.lfm b/src/ce_miniexplorer.lfm
index b3407c4a..9926f23e 100644
--- a/src/ce_miniexplorer.lfm
+++ b/src/ce_miniexplorer.lfm
@@ -124,7 +124,7 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
           object btnEdit: TBitBtn
             Left = 84
             Height = 28
-            Hint = 'open selected file in a Coedit-or'
+            Hint = 'open selected file in as a project or as a source file'
             Top = 0
             Width = 28
             Align = alLeft
diff --git a/src/ce_miniexplorer.pas b/src/ce_miniexplorer.pas
index f31fd1da..8f612f1c 100644
--- a/src/ce_miniexplorer.pas
+++ b/src/ce_miniexplorer.pas
@@ -6,8 +6,9 @@ interface
 
 uses
   Classes, SysUtils, FileUtil, ListFilterEdit, Forms, Controls, Graphics,
-  ExtCtrls, Menus, ComCtrls, Buttons, lcltype, strutils, ce_widget,
-  ce_common, ce_interfaces, ce_observer, ce_writableComponent, ce_sharedres;
+  ExtCtrls, Menus, ComCtrls, Buttons, lcltype, strutils, ce_widget, ce_sharedres,
+  ce_common, ce_interfaces, ce_observer, ce_writableComponent, ce_dubproject,
+  ce_nativeproject;
 
 type
 
@@ -293,6 +294,7 @@ end;
 procedure TCEMiniExplorerWidget.btnEditClick(Sender: TObject);
 var
   fname: string;
+  proj: ICECommonProject = nil;
 begin
   if lstFiles.Selected = nil then exit;
   if lstFiles.Selected.Data = nil then exit;
@@ -301,7 +303,14 @@ begin
   {$IFNDEF WINDOWS}
   fname := fname[2..length(fname)];
   {$ENDIF}
-  getMultiDocHandler.openDocument(fname);
+  if isValidNativeProject(fname) then
+    proj := TCENativeProject.create(nil) as ICECommonProject
+  else if isValidDubProject(fname) then
+    proj := TCENativeProject.create(nil) as ICECommonProject;
+  if assigned(proj) then
+    proj.loadFromFile(fname)
+  else
+    getMultiDocHandler.openDocument(fname);
 end;
 
 procedure TCEMiniExplorerWidget.lstFilesDblClick(Sender: TObject);