From ea6c3bd2f8cfb32ae6896810db4f1a7ebe1698be Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 5 Aug 2016 16:21:27 +0200
Subject: [PATCH] reset proj fname if loading failed

---
 src/ce_nativeproject.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/ce_nativeproject.pas b/src/ce_nativeproject.pas
index 741a6ad2..92ea5c45 100644
--- a/src/ce_nativeproject.pas
+++ b/src/ce_nativeproject.pas
@@ -568,6 +568,11 @@ var
   {$ENDIF}
 //
 begin
+  if not fHasLoaded then
+  begin
+    dlgOkError('"' + shortenPath(fFilename) + '"' + 'does not seem to be a valid CE project');
+    fFilename:= '';
+  end;
   patchPlateformPaths(fSrcs);
   fModified := false;
   hasPatched := false;