paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 08:19:29 +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, ['"', AText:=Format(lisSourceOfPageHasChangedSave, ['"',
TSourceEditor(AEditor).PageName, '"']); TSourceEditor(AEditor).PageName, '"']);
ACaption:=lisSourceModified; ACaption:=lisSourceModified;
Result:=QuestionDlg(ACaption, AText, mtConfirmation, Result:=QuestionDlg(ACaption, AText,
[mrYes, lisMenuSave, mrNo, lisDiscardChanges, mrCancel], 0); mtConfirmation, [mrYes, lisMenuSave, mrNo, lisDiscardChanges, mrAbort
], 0);
end else end else
Result:=mrYes; Result:=mrYes;
if Result=mrYes then begin if Result=mrYes then begin
Result:=DoSaveEditorFile(AnEditorInfo.EditorComponent,[sfCheckAmbiguousFiles]); Result:=DoSaveEditorFile(AnEditorInfo.EditorComponent,[sfCheckAmbiguousFiles]);
end; end;
if Result=mrCancel then exit; if Result=mrAbort then exit;
Result:=mrOk; Result:=mrOk;
end; end;