From eed0dfa968b0b3c7cea869e811117e3401f194b8 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 10 Jan 2007 19:37:51 +0000
Subject: [PATCH] added resourcestrings

git-svn-id: trunk@10414 -
---
 ide/lazarusidestrconsts.pas | 6 ++++++
 ide/main.pp                 | 7 ++++---
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index 8834134bf5..a23e547894 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -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)';
diff --git a/ide/main.pp b/ide/main.pp
index a8cfbedf8e..1524b8526c 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -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;