From 816c581d7a927a218f40a585eda827ab116e6390 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sun, 31 Jan 2016 12:41:51 +0100
Subject: [PATCH] fix, wrong project file indicated in several messages

---
 src/ce_lcldragdrop.pas  | 4 ++--
 src/ce_libmaneditor.pas | 4 ++--
 src/ce_main.pas         | 3 +++
 src/ce_miniexplorer.pas | 4 ++--
 4 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/src/ce_lcldragdrop.pas b/src/ce_lcldragdrop.pas
index 694ea0bd..5ee5551b 100644
--- a/src/ce_lcldragdrop.pas
+++ b/src/ce_lcldragdrop.pas
@@ -126,7 +126,7 @@ begin
   begin
     if assigned(fProj) then
     begin
-      if fProj.modified and (dlgFileChangeClose(fname) = mrCancel) then
+      if fProj.modified and (dlgFileChangeClose(fProj.filename) = mrCancel) then
         exit;
       fProj.getProject.Free;
     end;
@@ -137,7 +137,7 @@ begin
   begin
     if assigned(fProj) then
     begin
-      if fProj.modified and (dlgFileChangeClose(fname) = mrCancel) then
+      if fProj.modified and (dlgFileChangeClose(fProj.filename) = mrCancel) then
         exit;
       fProj.getProject.Free;
     end;
diff --git a/src/ce_libmaneditor.pas b/src/ce_libmaneditor.pas
index 78b0d475..877001a5 100644
--- a/src/ce_libmaneditor.pas
+++ b/src/ce_libmaneditor.pas
@@ -321,7 +321,7 @@ begin
   begin
     if assigned(fProj) then
     begin
-      if fProj.modified and (dlgFileChangeClose(fname) = mrCancel) then
+      if fProj.modified and (dlgFileChangeClose(fProj.filename) = mrCancel) then
         exit;
       fProj.getProject.Free;
     end;
@@ -332,7 +332,7 @@ begin
   begin
     if assigned(fProj) then
     begin
-      if fProj.modified and (dlgFileChangeClose(fname) = mrCancel) then
+      if fProj.modified and (dlgFileChangeClose(fProj.filename) = mrCancel) then
         exit;
       fProj.getProject.Free;
     end;
diff --git a/src/ce_main.pas b/src/ce_main.pas
index 0821b47c..e387cb4a 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -1364,6 +1364,7 @@ end;
 
 procedure TCEMainForm.projChanged(aProject: ICECommonProject);
 begin
+  showProjTitle;
 end;
 
 procedure TCEMainForm.projClosing(aProject: ICECommonProject);
@@ -1373,6 +1374,7 @@ begin
   fProjectInterface := nil;
   fDubProject := nil;
   fNativeProject := nil;
+  showProjTitle;
 end;
 
 procedure TCEMainForm.projFocused(aProject: ICECommonProject);
@@ -1382,6 +1384,7 @@ begin
    pfNative: fNativeProject := TCENativeProject(fProjectInterface.getProject);
    pfDub: fDubProject := TCEDubProject(fProjectInterface.getProject);
  end;
+ showProjTitle;
 end;
 
 procedure TCEMainForm.projCompiling(aProject: ICECommonProject);
diff --git a/src/ce_miniexplorer.pas b/src/ce_miniexplorer.pas
index e5709966..e0159a0c 100644
--- a/src/ce_miniexplorer.pas
+++ b/src/ce_miniexplorer.pas
@@ -472,7 +472,7 @@ begin
   begin
     if assigned(fProj) then
     begin
-      if fProj.modified and (dlgFileChangeClose(fname) = mrCancel) then
+      if fProj.modified and (dlgFileChangeClose(fProj.filename) = mrCancel) then
         exit;
       fProj.getProject.Free;
     end;
@@ -483,7 +483,7 @@ begin
   begin
     if assigned(fProj) then
     begin
-      if fProj.modified and (dlgFileChangeClose(fname) = mrCancel) then
+      if fProj.modified and (dlgFileChangeClose(fProj.filename) = mrCancel) then
         exit;
       fProj.getProject.Free;
     end;