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

added resourcestrings

Browse Source 
git-svn-id: trunk@10414 -
This commit is contained in:
mattias 2007-01-10 19:37:51 +00:00
parent 07cdb27c5d
commit eed0dfa968
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/lazarusidestrconsts.pas
View File

@ -662,6 +662,12 @@ resourcestring
lisOpenProjectFile = 'Open Project File';
lisLazarusProjectInfoFile = 'Lazarus Project Info file';
lisAllFiles = 'All Files';
lisProjectClosed = 'Project closed';
lisTheProjectIsClosedThereAreNowThreePossibilitiesHin = 'The project is '
+'closed. There are now three possibilities.%sHint: You do not need to '
+'close a project yourself, since this is done automatically.';
lisQuitLazarus = 'Quit Lazarus';
lisCreateNewProject = 'Create new project';
lisOpenPackageFile = 'Open Package File';
lisSaveSpace = 'Save ';
lisSelectDFMFiles = 'Select Delphi form files (*.dfm)';

7
ide/main.pp
View File

@ -3093,10 +3093,11 @@ var
begin
DoCloseProject;
while Project1=nil do begin
DlgResult:=QuestionDlg('Project closed',
'The project is closed. There are now three possibilities:',
DlgResult:=QuestionDlg(lisProjectClosed,
Format(lisTheProjectIsClosedThereAreNowThreePossibilitiesHin, [#13]),
mtInformation,
[mrNo,'Quit Lazarus',mrYes,'Create new project',mrOk,'Open project'],0);
[mrNo, lisQuitLazarus, mrYes, lisCreateNewProject, mrOk, lisOpenProject2
], 0);
case DlgResult of
mrNo:
if QuitIDE then exit;