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

fix project modification not checked when opening from menu MRU

This commit is contained in:
Basile Burg 2014-11-02 01:58:21 +01:00
parent dfdb19e16a
commit 81a8982a42
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ce_main.pas
View File

@ -1576,6 +1576,9 @@ end;
procedure TCEMainForm.mruProjItemClick(Sender: TObject); procedure TCEMainForm.mruProjItemClick(Sender: TObject);
begin begin
if fProject <> nil then if fProject.modified then if dlgOkCancel(
'The latest mdofifications are not saved, continue ?')
= mrCancel then exit;
openProj(TMenuItem(Sender).Hint); openProj(TMenuItem(Sender).Hint);
end; end;
@ -1584,7 +1587,6 @@ 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 latest mdofifications are not saved, continue ?')
= mrCancel then exit; = mrCancel then exit;
closeProj; closeProj;
newProj; newProj;
end; end;
@ -1626,7 +1628,6 @@ 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 latest mdofifications are not saved, continue ?')
= mrCancel then exit; = mrCancel then exit;
with TOpenDialog.Create(nil) do with TOpenDialog.Create(nil) do
try try
if execute then openProj(filename); if execute then openProj(filename);