Converter: improve localization in MissingUnits dialog

git-svn-id: trunk@30850 -
This commit is contained in:
juha 2011-05-22 09:37:40 +00:00
parent de68f69051
commit 56e2f0964b
2 changed files with 5 additions and 4 deletions

View File

@ -122,9 +122,10 @@ begin
Result:=mrCancel;
// A title text containing filename.
if (AMainMissingUnits.Count + AImplMissingUnits.Count) = 1 then
UnitsTitle:=lisUnitNotFound+' '+AMainUnitName
s:=lisUnitNotFoundInProject
else
UnitsTitle:=lisUnitsNotFound2+' '+AMainUnitName;
s:=lisUnitsNotFoundInProject;
UnitsTitle:=Format(s, [AMainUnitName]);
UNFDialog:=TMissingUnitsDialog.Create(nil);
with UNFDialog do begin

View File

@ -481,8 +481,8 @@ resourcestring
lisMissingUnitsInfo1b = '1) Use the units only for Delphi.';
lisMissingUnitsInfo2 = '2) Search for units. Found paths are added to project settings.';
lisMissingUnitsInfo3 = '3) Abort now, install packages or fix paths and try again.';
lisUnitNotFound = 'A unit not found in';
lisUnitsNotFound2 = 'Units not found in';
lisUnitNotFoundInProject = 'A unit not found in project %s';
lisUnitsNotFoundInProject = 'Units not found in project %s';
lisUnableToConvertLfmToLrsAndWriteLrsFile = 'Unable to convert lfm to lrs and write lrs file.';
lisProjectPath = 'Project Path:';
lisProjectPathHint = 'Directory where project''s main file must be';