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

IDE: close editor with modifications: replaced No with Discard changes

Browse Source 
git-svn-id: trunk@18505 -
This commit is contained in:
mattias 2009-01-30 10:17:05 +00:00
parent 89dca2e81c
commit 3a34ca6aea
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/main.pp
View File

@ -7284,8 +7284,9 @@ begin
AText:=Format(lisSourceOfPageHasChangedSave, ['"',
ActiveSrcEdit.PageName, '"']);
ACaption:=lisSourceModified;
Result:=Messagedlg(ACaption, AText,
mtConfirmation, [mbYes, mbNo, mbAbort], 0);
Result:=QuestionDlg(ACaption, AText,
mtConfirmation, [mrYes, lisMenuSave, mrNo, lisDiscardChanges, mrAbort
], 0);
end else
Result:=mrYes;
if Result=mrYes then begin