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

fix, warning message typos

This commit is contained in:
Basile Burg 2015-04-19 05:18:23 +02:00
parent 40b7cbe126
commit c8240766e7
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ce_main.pas
View File

@ -1630,7 +1630,7 @@ end;
procedure TCEMainForm.mruProjItemClick(Sender: TObject); procedure TCEMainForm.mruProjItemClick(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;
openProj(TMenuItem(Sender).Hint); openProj(TMenuItem(Sender).Hint);
end; end;
@ -1638,7 +1638,7 @@ end;
procedure TCEMainForm.actProjNewExecute(Sender: TObject); procedure TCEMainForm.actProjNewExecute(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;
closeProj; closeProj;
newProj; newProj;
@ -1648,9 +1648,8 @@ procedure TCEMainForm.actProjCloseExecute(Sender: TObject);
begin begin
if fProject = nil then exit; if fProject = nil then exit;
if fProject.modified then if dlgOkCancel( 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;
closeProj; closeProj;
end; end;