From c00938fad215c82554c77411d5b03543a8fbea82 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sat, 23 Apr 2016 18:21:14 +0200
Subject: [PATCH] fix #36, project sources saved before relative path
 extraction

---
 src/ce_nativeproject.pas | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/src/ce_nativeproject.pas b/src/ce_nativeproject.pas
index aa892ff9..d53b4dfe 100644
--- a/src/ce_nativeproject.pas
+++ b/src/ce_nativeproject.pas
@@ -67,7 +67,8 @@ type
     procedure beforeLoad; override;
     procedure afterSave; override;
     procedure afterLoad; override;
-    procedure setFilename(const aValue: string); override;
+    procedure customSaveToFile(const aFilename: string); override;
+    procedure customLoadFromFile(const aFilename: string); override;
     procedure readerPropNoFound(Reader: TReader; Instance: TPersistent;
       var PropName: string; IsPath: Boolean; var Handled, Skip: Boolean); override;
   published
@@ -226,18 +227,20 @@ begin
   endUpdate;
 end;
 
-procedure TCENativeProject.setFilename(const aValue: string);
+procedure TCENativeProject.customLoadFromFile(const aFilename: string);
+begin
+  fbasePath := aFilename.extractFilePath;
+  inherited customLoadFromFile(aFilename);
+end;
+
+procedure TCENativeProject.customSaveToFile(const aFilename: string);
 var
   oldAbs, newRel, oldBase: string;
   i: NativeInt;
 begin
-  if fFilename = aValue then exit;
-  //
   beginUpdate;
-
-  fFilename := aValue;
   oldBase := fBasePath;
-  fBasePath := fFilename.extractFilePath;
+  fBasePath := aFilename.extractFilePath;
   //
   for i:= 0 to fSrcs.Count-1 do
   begin
@@ -245,8 +248,8 @@ begin
     newRel := ExtractRelativepath(fBasePath, oldAbs);
     fSrcs[i] := newRel;
   end;
-  //
   endUpdate;
+  inherited customSaveToFile(aFilename);
 end;
 
 procedure TCENativeProject.setLibAliases(const value: TStringList);