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

more of them

This commit is contained in:
Basile Burg 2015-04-19 05:21:59 +02:00
parent c8240766e7
commit 6668c04bd3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ce_main.pas
View File

@ -714,7 +714,7 @@ begin
canClose := false; canClose := false;
if fProject <> nil then if fProject.modified then if fProject <> nil then if fProject.modified then
if ce_common.dlgOkCancel( if ce_common.dlgOkCancel(
'last project modifications are not saved, quit anyway ?') <> mrOK then 'The project modifications are not saved, quit anyway ?') <> 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;
@ -1087,7 +1087,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 latest mdofifications are not saved, continue ?') = mrCancel 'The file modifications are not saved, continue ?') = mrCancel
then exit; then exit;
// //
fDoc.Free; fDoc.Free;
@ -1678,7 +1678,7 @@ end;
procedure TCEMainForm.actProjOpenExecute(Sender: TObject); procedure TCEMainForm.actProjOpenExecute(Sender: TObject);
begin begin
if fProject <> nil then if fProject.modified then if dlgOkCancel( if fProject <> nil then if fProject.modified then if dlgOkCancel(
'The latest mdofifications are not saved, continue ?') 'The project modifications are not saved, continue ?')
= mrCancel then exit; = mrCancel then exit;
with TOpenDialog.Create(nil) do with TOpenDialog.Create(nil) do
try try