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

View File

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