IDE: resource strings

git-svn-id: trunk@29195 -

ide/frames/compiler_path_options.pas

@@ -295,9 +295,8 @@ begin
   begin
     if System.Pos('*', ExpandedPath) > 0 then
     begin
-      if MessageDlg('Hint', 'The ' + Context +
-        ' contains a star * character.'#13 +
-        'Lazarus uses this as normal character and does not expand this as file mask.',
+      if MessageDlg(lisHint, Format(
+        lisTheContainsAStarCharacterLazarusUsesThisAsNormalCh, [Context, #13]),
         mtWarning, [mbOK, mbCancel], 0) <> mrOk then
         exit;
     end;
@@ -315,8 +314,8 @@ begin
       begin
         if not DirPathExistsCached(CurPath) then
         begin
-          if MessageDlg('Warning', 'The ' + Context +
-            ' contains a not existing directory:'#13 + CurPath,
+          if MessageDlg(lisCCOWarningCaption, Format(
+            lisTheContainsANotExistingDirectory, [Context, #13, CurPath]),
             mtWarning, [mbIgnore, mbCancel], 0) <> mrIgnore then
             Exit;
         end;
@@ -336,7 +335,7 @@ begin
         ErrorMsg := SpecialCharsToStr(HasChars);
       if ErrorMsg <> '' then
       begin
-        if MessageDlg('Warning', Context + #13 + ErrorMsg, mtWarning,
+        if MessageDlg(lisCCOWarningCaption, Context + #13 + ErrorMsg, mtWarning,
           [mbOK, mbCancel], 0) <> mrOk then
           exit;
       end;

ide/lazarusidestrconsts.pas

@@ -1970,6 +1970,8 @@ resourcestring
     +'abstract methods of the current class, because';
   lisCCOUnableToGetFileDate = 'Unable to get file date of %s.';
   lisCCOWarningCaption = 'Warning';
+  lisTheContainsANotExistingDirectory = 'The %s contains a not existing '
+    +'directory:%s%s';
   lisTheProjectDoesNotUseTheLCLUnitInterfacesButItSeems = 'The project does '
     +'not use the LCL unit interfaces, but it seems it needs it.%sYou will '
     +'get strange linker errors if you use the LCL forms without interfaces.';
@@ -2048,6 +2050,10 @@ resourcestring
   dlgPOTargetFileName = 'Target file name:';
   lisTargetFileNameEmptyUseUnitOutputDirectory = 'Target file name: (-o, empty = '
     +'use unit output directory)';
+  lisHint = 'Hint';
+  lisTheContainsAStarCharacterLazarusUsesThisAsNormalCh = 'The %s contains a '
+    +'star * character.%sLazarus uses this as normal character and does not '
+    +'expand this as file mask.';
   lisDuplicateSearchPath = 'Duplicate search path';
   lisTheOtherSourcesContainsADirectoryWhichIsAlreadyInT = 'The "Other '
     +'sources" contains a directory which is already in the "Other unit '