use a common dialog to warn about unsaved changes, + use this in miniexplorer which didnt warn when opening a proj

src/ce_dialogs.pas

@@ -23,6 +23,10 @@ function dlgOkInfo(const aMsg: string): TModalResult;
  *)
 function dlgOkError(const aMsg: string): TModalResult;
 
+(**
+ * close aFilename Ok/Cancel.
+ *)
+function dlgFileChangeClose(const aFilename: string): TModalResult;
 
 const
   DdiagFilter = 'D source|*.d|D interface|*.di|All files|*.*';
@@ -51,5 +55,12 @@ begin
   exit( MessageDlg('Coedit', aMsg, mtError, Btns, ''));
 end;
 
+function dlgFileChangeClose(const aFilename: string): TModalResult;
+const
+  fmt = '"%s" latest modifications are not saved.'#13#10#13#10'Close it without saving ?';
+begin
+  exit(dlgOkCancel(format(fmt, [aFilename])));
+end;
+
 end.
 

src/ce_editor.pas

@@ -249,9 +249,8 @@ var
   doc: TCESynMemo;
 begin
   doc := getDocument(index);
-  if doc.modified then if dlgOkCancel(format(
+  if doc.modified and (dlgFileChangeClose(fDoc.fileName) = mrCancel) then
-    'The latest "%s" modifications are not saved, close without saving ?',
+    exit(false);
-    [shortenPath(doc.fileName,25)])) = mrCancel then exit(false);
   doc.Free;
   result := true;
 end;

src/ce_main.pas

@@ -1065,10 +1065,8 @@ var
 begin
   canClose := false;
   SaveLastDocsAndProj;
-  if fProjectInterface <> nil then if fProjectInterface.modified then
+  if (fProjectInterface <> nil) and fProjectInterface.modified and
-    if dlgOkCancel(
+    (dlgFileChangeClose(fProjectInterface.filename) = mrCancel) then exit;
-      'The project modifications are not saved, close without saving ?') <> mrOK then
-          exit;
   for i := fMultidoc.documentCount-1 downto 0 do
     if not fMultidoc.closeDocument(i) then exit;
   canClose := true;
@@ -1493,10 +1491,7 @@ end;
 procedure TCEMainForm.actFileCloseExecute(Sender: TObject);
 begin
   if fDoc = nil then exit;
-  if fDoc.modified then if dlgOkCancel(
+  if fDoc.modified and (dlgFileChangeClose(fDoc.fileName) = mrCancel) then exit;
-    'The file modifications are not saved, close without saving ?') = mrCancel
-      then exit;
-  //
   fDoc.Free;
 end;
 
@@ -2060,18 +2055,18 @@ end;
 
 procedure TCEMainForm.actProjNewDubJsonExecute(Sender: TObject);
 begin
-  if (fProjectInterface <> nil) and fProjectInterface.modified and (dlgOkCancel(
+  if (fProjectInterface <> nil) and fProjectInterface.modified and
-    'The project modifications are not saved, close without saving ?') = mrCancel) then exit;
+    (dlgFileChangeClose(fProjectInterface.filename) = mrCancel) then exit;
   closeProj;
   newDubProj;
 end;
 
 procedure TCEMainForm.actProjNewNativeExecute(Sender: TObject);
 begin
-  if (fProjectInterface <> nil) and fProjectInterface.modified and (dlgOkCancel(
+  if (fProjectInterface <> nil) and fProjectInterface.modified and
-      'The project modifications are not saved, close without saving ?') = mrCancel) then exit;
+    (dlgFileChangeClose(fProjectInterface.filename) = mrCancel) then exit;
-    closeProj;
+  closeProj;
-   newNativeProj;
+  newNativeProj;
 end;
 
 procedure TCEMainForm.newNativeProj;
@@ -2117,16 +2112,15 @@ end;
 
 procedure TCEMainForm.mruProjItemClick(Sender: TObject);
 begin
-  if (fProjectInterface <> nil) and fProjectInterface.modified and (dlgOkCancel(
+  if (fProjectInterface <> nil) and fProjectInterface.modified and
-    'The project modifications are not saved, close without saving ?') = mrCancel) then exit;
+    (dlgFileChangeClose(fProjectInterface.filename) = mrCancel) then exit;
   openProj(TMenuItem(Sender).Hint);
 end;
 
 procedure TCEMainForm.actProjCloseExecute(Sender: TObject);
 begin
-  if fProjectInterface = nil then exit;
+  if (fProjectInterface <> nil) and fProjectInterface.modified and
-  if fProjectInterface.modified and (dlgOkCancel(
+    (dlgFileChangeClose(fProjectInterface.filename) = mrCancel) then exit;
-    'The project modifications are not saved, clsoe without saving ?') = mrCancel) then exit;
   closeProj;
 end;
 
@@ -2149,9 +2143,8 @@ end;
 
 procedure TCEMainForm.actProjOpenExecute(Sender: TObject);
 begin
-  if fProjectInterface <> nil then if fProjectInterface.modified then if dlgOkCancel(
+  if (fProjectInterface <> nil) and fProjectInterface.modified and
-    'The project modifications are not saved, close without saving ?')
+    (dlgFileChangeClose(fProjectInterface.filename) = mrCancel) then exit;
-      = mrCancel then exit;
   with TOpenDialog.Create(nil) do
   try
     if execute then openProj(filename);

src/ce_miniexplorer.pas

@@ -8,7 +8,7 @@ uses
   Classes, SysUtils, FileUtil, ListFilterEdit, Forms, Controls, Graphics,
   ExtCtrls, Menus, ComCtrls, Buttons, lcltype, strutils, ce_widget, ce_sharedres,
   ce_common, ce_interfaces, ce_observer, ce_writableComponent, ce_dubproject,
-  ce_nativeproject, EditBtn;
+  ce_nativeproject, EditBtn, ce_dialogs;
 
 type
 
@@ -351,13 +351,23 @@ begin
   {$ENDIF}
   if isValidNativeProject(fname) then
   begin
-    if assigned(fProj) then fProj.getProject.Free;
+    if assigned(fProj) then
+    begin
+      if fProj.modified and (dlgFileChangeClose(fname) = mrCancel) then
+        exit;
+      fProj.getProject.Free;
+    end;
     TCENativeProject.create(nil);
     proj := true;
   end
   else if isValidDubProject(fname) then
   begin
-    if assigned(fProj) then fProj.getProject.Free;
+    if assigned(fProj) then
+    begin
+      if fProj.modified and (dlgFileChangeClose(fname) = mrCancel) then
+        exit;
+      fProj.getProject.Free;
+    end;
     TCEDubProject.create(nil);
     proj := true;
   end;