mirror of https://gitlab.com/basile.b/dexed.git
app, prevent close when proj being comp
This commit is contained in:
parent
6f482f3898
commit
748a887ea9
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue