paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:19:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: disabling file check dialog on Quit

Browse Source 
git-svn-id: trunk@11699 -
This commit is contained in:
mattias 2007-07-31 23:46:33 +00:00
parent ed4224184b
commit 96c49b41ca
1 changed files with 32 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
ide/main.pp
View File

@ -1330,39 +1330,46 @@ var
MsgResult: integer;
begin
CanClose:=false;
// stop debugging/compiling/...
if not DoResetToolStatus(true) then exit;
FCheckingFilesOnDisk:=true;
try
// stop debugging/compiling/...
if not DoResetToolStatus(true) then exit;
// check foreign windows
if not CloseQueryIDEWindows then exit;
// check foreign windows
if not CloseQueryIDEWindows then exit;
// check packages
if (PkgBoss.DoSaveAllPackages([psfAskBeforeSaving])<>mrOk)
or (PkgBoss.DoCloseAllPackageEditors<>mrOk) then exit;
// check packages
if (PkgBoss.DoSaveAllPackages([psfAskBeforeSaving])<>mrOk)
or (PkgBoss.DoCloseAllPackageEditors<>mrOk) then exit;
// check project
if SomethingOfProjectIsModified then begin
MsgResult:=QuestionDlg(lisProjectChanged,
Format(lisSaveChangesToProject, [Project1.Title]), mtConfirmation,
[mrYes, lisMenuSave, mrNo, lisDiscardChanges,
mrAbort, lisDoNotCloseTheIDE],
0);
case MsgResult of
// check project
if SomethingOfProjectIsModified then begin
MsgResult:=QuestionDlg(lisProjectChanged,
Format(lisSaveChangesToProject, [Project1.Title]), mtConfirmation,
[mrYes, lisMenuSave, mrNo, lisDiscardChanges,
mrAbort, lisDoNotCloseTheIDE],
0);
case MsgResult of
mrYes:
begin
CanClose := DoSaveProject([]) <> mrAbort;
if not CanClose then exit;
end;
mrYes:
begin
CanClose := DoSaveProject([]) <> mrAbort;
if not CanClose then exit;
end;
mrCancel, mrAbort:
begin
Exit;
mrCancel, mrAbort:
begin
Exit;
end;
end;
end;
CanClose:=(DoCloseProject <> mrAbort);
finally
FCheckingFilesOnDisk:=false;
if not CanClose then
DoCheckFilesOnDisk(false);
end;
CanClose:=(DoCloseProject <> mrAbort);
end;
{------------------------------------------------------------------------------}