IDE: improved 'Insert CodeTools define template' localization

git-svn-id: trunk@30894 -

ide/codetoolsdefines.pas

@@ -657,7 +657,7 @@ begin
     Caption:=lisCodeToolsDefsCreateDefinesForFreePascalCompiler;
     FileCount:=1;
 
-    FileTitles[0]:='compiler path';
+    FileTitles[0]:=lisCodeToolsDefscompilerPath;
     FileDescs[0]:=Format(
       lisCodeToolsDefsThePathToTheFreePascalCompilerForExample, [#13,
        '"', GetDefaultCompilerFilename, '"', '"', '"']);
@@ -706,9 +706,9 @@ begin
     FileNames[0]:='~/fpc_sources/2.4.1/fpc';
     FileFlags[0]:=[iftDirectory,iftNotEmpty,iftMustExist];
 
-    FileTitles[1]:=lisCodeToolsDefscompilerPath;
-    FileDescs[1]:='The path to the free pascal compiler for this source.'#13
-                  +'Used to autocreate macros.';
+    FileTitles[1]:=lisCodeToolsDefsCompilerPath;
+    FileDescs[1]:=Format(
+      lisCodeToolsDefsThePathToTheFreePascalCompilerForThisSourceUsedToA, [#13]);
     FileNames[1]:=DefaultCompiler;
     FileFlags[1]:=[iftFilename];
 

ide/inputfiledialog.pas

@@ -12,7 +12,7 @@
 
  *****************************************************************************
  *                                                                           *
- *  See the file COPYING.modifiedLGPL.txt, included in this distribution,        *
+ *  See the file COPYING.modifiedLGPL.txt, included in this distribution,    *
  *  for details about the copyright.                                         *
  *                                                                           *
  *  This program is distributed in the hope that it will be useful,          *
@@ -135,9 +135,9 @@ begin
     CurEdit:=GetInputEdit(i);
     CurEdit.Text:=CurEdit.Text;
     if not FilenameIsValidForFileIndex(CurEdit.Text,i) then begin
-      if MessageDlg('Invalid file',
-        'The file "'+CurEdit.Text+'"'#13
-        +'is invalid for the '+GetGroupBox(i).Caption,mtInformation,
+      if MessageDlg(lisA2PInvalidFile,
+        Format(lisCodeToolsDefsValueIsInvalid, [GetGroupBox(i).Caption, #13,
+          CurEdit.Text]), mtInformation,
         [mbCancel,mbAbort],0)=mrAbort
       then
         ModalResult:=mrCancel
@@ -169,7 +169,7 @@ begin
   if OpenDialog=nil then OpenDialog:=TOpenDialog.Create(Self);
   with OpenDialog do begin
     InputHistories.ApplyFileDialogSettings(OpenDialog);
-    Title:='Select '+GetGroupBox(FileIndex).Caption;
+    Title:=GetGroupBox(FileIndex).Caption;
     if (not Execute) then exit;
     InputHistories.StoreFileDialogSettings(OpenDialog);
     AFilename:=Filename;

ide/lazarusidestrconsts.pas

@@ -3000,7 +3000,7 @@ resourcestring
   lisCodeToolsDefsProjectDirectory = 'Project directory';
   lisCodeToolsDefsTheFreePascalProjectDirectory = 'The Free Pascal project '
     +'directory.';
-  lisCodeToolsDefscompilerPath = 'compiler path';
+  lisCodeToolsDefscompilerPath = 'Compiler path';
   lisCodeToolsDefsThePathToTheFreePascalCompilerForThisProject = 'The path to '
     +'the free pascal compiler for this project. Only required if you set the '
     +'FPC SVN source below. Used to autocreate macros.';
@@ -3010,6 +3010,9 @@ resourcestring
     +'debugging.';
   lisCodeToolsDefsCreateDefinesForFreePascalCompiler = 'Create Defines for '
     +'Free Pascal Compiler';
+  lisCodeToolsDefsThePathToTheFreePascalCompilerForThisSourceUsedToA = 'The path to '
+    +'the free pascal compiler for this source.%sUsed to autocreate macros.';
+  lisCodeToolsDefsValueIsInvalid = '%s:%svalue "%s" is invalid.';
   lisCodeToolsDefsThePathToTheFreePascalCompilerForExample = 'The '
     +'path to the free pascal compiler.%s For example %s/usr/bin/%s -n%s '
     +'or %s/usr/local/bin/fpc @/etc/fpc.cfg%s.';