forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

slightly changed dialog messages

This commit is contained in:
Basile Burg 2015-09-21 02:21:15 +02:00
parent 6d6df7804b
commit 6ff2371ea2
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_editor.pas
View File

@ -256,7 +256,7 @@ var
begin begin
doc := getDocument(index); doc := getDocument(index);
if doc.modified then if dlgOkCancel(format( 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); [shortenPath(doc.fileName,25)])) = mrCancel then exit(false);
doc.Free; doc.Free;
result := true; result := true;

14
src/ce_main.pas
View File

@ -1054,7 +1054,7 @@ begin
SaveLastDocsAndProj; SaveLastDocsAndProj;
if fProjectInterface <> nil then if fProjectInterface.modified then if fProjectInterface <> nil then if fProjectInterface.modified then
if dlgOkCancel( if dlgOkCancel(
'The project modifications are not saved, quit anyway ?') <> mrOK then 'The project modifications are not saved, close without saving ?') <> mrOK then
exit; exit;
for i := fMultidoc.documentCount-1 downto 0 do for i := fMultidoc.documentCount-1 downto 0 do
if not fMultidoc.closeDocument(i) then exit; if not fMultidoc.closeDocument(i) then exit;
@ -1444,7 +1444,7 @@ procedure TCEMainForm.actFileCloseExecute(Sender: TObject);
begin begin
if fDoc = nil then exit; if fDoc = nil then exit;
if fDoc.modified then if dlgOkCancel( 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; then exit;
// //
fDoc.Free; fDoc.Free;
@ -2009,7 +2009,7 @@ end;
procedure TCEMainForm.actProjNewDubJsonExecute(Sender: TObject); procedure TCEMainForm.actProjNewDubJsonExecute(Sender: TObject);
begin begin
if (fProjectInterface <> nil) and fProjectInterface.modified and (dlgOkCancel( 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; closeProj;
newDubProj; newDubProj;
end; end;
@ -2017,7 +2017,7 @@ end;
procedure TCEMainForm.actProjNewNativeExecute(Sender: TObject); procedure TCEMainForm.actProjNewNativeExecute(Sender: TObject);
begin begin
if (fProjectInterface <> nil) and fProjectInterface.modified and (dlgOkCancel( 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; closeProj;
newNativeProj; newNativeProj;
end; end;
@ -2066,7 +2066,7 @@ end;
procedure TCEMainForm.mruProjItemClick(Sender: TObject); procedure TCEMainForm.mruProjItemClick(Sender: TObject);
begin begin
if (fProjectInterface <> nil) and fProjectInterface.modified and (dlgOkCancel( 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); openProj(TMenuItem(Sender).Hint);
end; end;
@ -2074,7 +2074,7 @@ procedure TCEMainForm.actProjCloseExecute(Sender: TObject);
begin begin
if fProjectInterface = nil then exit; if fProjectInterface = nil then exit;
if fProjectInterface.modified and (dlgOkCancel( 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; closeProj;
end; end;
@ -2098,7 +2098,7 @@ end;
procedure TCEMainForm.actProjOpenExecute(Sender: TObject); procedure TCEMainForm.actProjOpenExecute(Sender: TObject);
begin begin
if fProjectInterface <> nil then if fProjectInterface.modified then if dlgOkCancel( 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; = mrCancel then exit;
with TOpenDialog.Create(nil) do with TOpenDialog.Create(nil) do
try try