From 6ff2371ea2a5070010ed48ff84254c0ee7652573 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Mon, 21 Sep 2015 02:21:15 +0200
Subject: [PATCH] slightly changed dialog messages

---
 src/ce_editor.pas |  2 +-
 src/ce_main.pas   | 14 +++++++-------
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/ce_editor.pas b/src/ce_editor.pas
index 390f4c34..5d6fb62a 100644
--- a/src/ce_editor.pas
+++ b/src/ce_editor.pas
@@ -256,7 +256,7 @@ var
 begin
   doc := getDocument(index);
   if doc.modified then if dlgOkCancel(format(
-    'The latest "%s" modifications are not saved, continue ?',
+    'The latest "%s" modifications are not saved, close without saving ?',
     [shortenPath(doc.fileName,25)])) = mrCancel then exit(false);
   doc.Free;
   result := true;
diff --git a/src/ce_main.pas b/src/ce_main.pas
index 78f02d27..cedf49b1 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -1054,7 +1054,7 @@ begin
   SaveLastDocsAndProj;
   if fProjectInterface <> nil then if fProjectInterface.modified then
     if dlgOkCancel(
-      'The project modifications are not saved, quit anyway ?') <> mrOK then
+      '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;
@@ -1444,7 +1444,7 @@ procedure TCEMainForm.actFileCloseExecute(Sender: TObject);
 begin
   if fDoc = nil then exit;
   if fDoc.modified then if dlgOkCancel(
-    'The file modifications are not saved, continue ?') = mrCancel
+    'The file modifications are not saved, close without saving ?') = mrCancel
       then exit;
   //
   fDoc.Free;
@@ -2009,7 +2009,7 @@ end;
 procedure TCEMainForm.actProjNewDubJsonExecute(Sender: TObject);
 begin
   if (fProjectInterface <> nil) and fProjectInterface.modified and (dlgOkCancel(
-    'The project modifications are not saved, continue ?') = mrCancel) then exit;
+    'The project modifications are not saved, close without saving ?') = mrCancel) then exit;
   closeProj;
   newDubProj;
 end;
@@ -2017,7 +2017,7 @@ end;
 procedure TCEMainForm.actProjNewNativeExecute(Sender: TObject);
 begin
   if (fProjectInterface <> nil) and fProjectInterface.modified and (dlgOkCancel(
-      'The project modifications are not saved, continue ?') = mrCancel) then exit;
+      'The project modifications are not saved, close without saving ?') = mrCancel) then exit;
     closeProj;
    newNativeProj;
 end;
@@ -2066,7 +2066,7 @@ end;
 procedure TCEMainForm.mruProjItemClick(Sender: TObject);
 begin
   if (fProjectInterface <> nil) and fProjectInterface.modified and (dlgOkCancel(
-    'The project modifications are not saved, continue ?') = mrCancel) then exit;
+    'The project modifications are not saved, close without saving ?') = mrCancel) then exit;
   openProj(TMenuItem(Sender).Hint);
 end;
 
@@ -2074,7 +2074,7 @@ procedure TCEMainForm.actProjCloseExecute(Sender: TObject);
 begin
   if fProjectInterface = nil then exit;
   if fProjectInterface.modified and (dlgOkCancel(
-    'The project modifications are not saved, continue ?') = mrCancel) then exit;
+    'The project modifications are not saved, clsoe without saving ?') = mrCancel) then exit;
   closeProj;
 end;
 
@@ -2098,7 +2098,7 @@ end;
 procedure TCEMainForm.actProjOpenExecute(Sender: TObject);
 begin
   if fProjectInterface <> nil then if fProjectInterface.modified then if dlgOkCancel(
-    'The project modifications are not saved, continue ?')
+    'The project modifications are not saved, close without saving ?')
       = mrCancel then exit;
   with TOpenDialog.Create(nil) do
   try