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

IDE: fixed ask save project changes No and Abort

Browse Source 
git-svn-id: trunk@34732 -
This commit is contained in:
mattias 2012-01-14 14:29:42 +00:00
parent 2e2964e501
commit 039f1908af
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -8337,7 +8337,8 @@ begin
Result:=IDEQuestionDialog(lisProjectChanged,
Format(lisSaveChangesToProject, [Project1.GetTitleOrName]),
mtConfirmation, [mrYes, mrNoToAll, lisNo, mbCancel], '');
if Result in [mrCancel,mrNoToAll] then exit(mrCancel);
if Result=mrNoToAll then exit(mrOk);
if Result<>mrYes then exit(mrCancel);
end
else if Project1.SessionStorage=pssNone then
// only session data changed and session is not saved => skip
@ -8350,7 +8351,8 @@ begin
Result:=IDEQuestionDialog(lisProjectSessionChanged,
Format(lisSaveSessionChangesToProject, [Project1.GetTitleOrName]),
mtConfirmation, [mrYes, mrNoToAll, lisNo, mbCancel], '');
if Result in [mrCancel,mrNoToAll] then exit(mrCancel);
if Result=mrNoToAll then exit(mrOk);
if Result<>mrYes then exit(mrCancel);
end;
end;
Result:=DoSaveProject([sfCanAbort]);