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

resourcestrings

Browse Source 
git-svn-id: trunk@31252 -
This commit is contained in:
mattias 2011-06-16 11:51:57 +00:00
parent c507e04bb0
commit d449d6153b
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lazarusidestrconsts.pas
View File

@ -5354,6 +5354,8 @@ resourcestring
lisDoYouStillWantToCreateTheNewProject = 'Do you still want to create the '
+'new project?';
lisDiscardChangesCreateNewProject = 'Discard changes, create new project';
lisDoYouStillWantToQuit = 'Do you still want to quit?';
lisDiscardChangesAndQuit = 'Discard changes and quit';
implementation

4
ide/main.pp
View File

@ -1824,8 +1824,8 @@ begin
MsgResult:=DoSaveProject([sfCanAbort]);
if MsgResult<>mrOk then begin
MsgResult:=IDEQuestionDialog(lisChangesWereNotSaved,
'Do you still want to quit?',
mtConfirmation, [mrOk, 'Discard changes and quit', mrAbort]);
lisDoYouStillWantToQuit,
mtConfirmation, [mrOk, lisDiscardChangesAndQuit, mrAbort]);
end;
CanClose := MsgResult=mrOk;
if not CanClose then exit;