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

app, prevent close when proj being comp

This commit is contained in:
Basile Burg 2016-11-29 07:05:45 +01:00
parent 6f482f3898
commit 748a887ea9
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ce_main.pas
View File

@ -1831,6 +1831,11 @@ var
begin begin
canClose := false; canClose := false;
SaveLastDocsAndProj; SaveLastDocsAndProj;
if checkProjectLock(false) and
(dlgOkCancel('A project is still being compiled, close anyway ?') <> mrOK) then
exit;
if assigned(fFreeProj) then if assigned(fFreeProj) then
begin begin
if fFreeProj.modified and if fFreeProj.modified and