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

Revert r31957 #184720121a, it broke canceling project save.

Browse Source 
git-svn-id: trunk@32005 -
This commit is contained in:
juha 2011-08-18 16:51:12 +00:00
parent dc58625e58
commit 6232d1d0e7
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/main.pp
View File

@ -9055,14 +9055,15 @@ begin
AText:=Format(lisSourceOfPageHasChangedSave, ['"',
TSourceEditor(AEditor).PageName, '"']);
ACaption:=lisSourceModified;
Result:=QuestionDlg(ACaption, AText, mtConfirmation,
[mrYes, lisMenuSave, mrNo, lisDiscardChanges, mrCancel], 0);
Result:=QuestionDlg(ACaption, AText,
mtConfirmation, [mrYes, lisMenuSave, mrNo, lisDiscardChanges, mrAbort
], 0);
end else
Result:=mrYes;
if Result=mrYes then begin
Result:=DoSaveEditorFile(AnEditorInfo.EditorComponent,[sfCheckAmbiguousFiles]);
end;
if Result=mrCancel then exit;
if Result=mrAbort then exit;
Result:=mrOk;
end;