paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 19:35:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: improved localization

Browse Source 
git-svn-id: trunk@43513 -
This commit is contained in:
maxim 2013-12-07 15:02:50 +00:00
parent bf893993a5
commit 491fa9111c
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/lazarusidestrconsts.pas
View File

@ -797,6 +797,8 @@ resourcestring
lisDuplicateNameAComponentNamedAlreadyExistsInTheInhe = 'Duplicate name: A ' lisDuplicateNameAComponentNamedAlreadyExistsInTheInhe = 'Duplicate name: A '
+'component named %s%s%s already exists in the inherited component %s'; +'component named %s%s%s already exists in the inherited component %s';
lisComponentNameIsKeyword = 'Component name %s%s%s is keyword'; lisComponentNameIsKeyword = 'Component name %s%s%s is keyword';
lisThereIsAlreadyAComponentClassWithTheName = 'There is already a component '
+'class with the name %s.';
lisTheUnitItselfHasAlreadyTheNamePascalIdentifiersMus = 'The unit itself ' lisTheUnitItselfHasAlreadyTheNamePascalIdentifiersMus = 'The unit itself '
+'has already the name %s%s%s. Pascal identifiers must be unique.'; +'has already the name %s%s%s. Pascal identifiers must be unique.';
lisUnableToRenameVariableInSource = 'Unable to rename variable in source.'; lisUnableToRenameVariableInSource = 'Unable to rename variable in source.';
@ -805,6 +807,8 @@ resourcestring
lisThereIsAlreadyAFormWithTheName = 'There is already a form with the name %s%s%s'; lisThereIsAlreadyAFormWithTheName = 'There is already a form with the name %s%s%s';
lisThereIsAlreadyAUnitWithTheNamePascalIdentifiersMus = 'There is already a ' lisThereIsAlreadyAUnitWithTheNamePascalIdentifiersMus = 'There is already a '
+'unit with the name %s%s%s. Pascal identifiers must be unique.'; +'unit with the name %s%s%s. Pascal identifiers must be unique.';
lisThisComponentAlreadyContainsAClassWithTheName = 'This component already '
+'contains a class with the name %s.';
lisSeeMessages = 'See messages.'; lisSeeMessages = 'See messages.';
lisError = 'Error: '; lisError = 'Error: ';
lisWarning = 'Warning: '; lisWarning = 'Warning: ';

6
ide/main.pp
View File

@ -11990,7 +11990,8 @@ var
ConflictingClass:=AComponent.ClassType.ClassParent; ConflictingClass:=AComponent.ClassType.ClassParent;
while ConflictingClass<>nil do begin while ConflictingClass<>nil do begin
if SysUtils.CompareText(AName,ConflictingClass.ClassName)=0 then begin if SysUtils.CompareText(AName,ConflictingClass.ClassName)=0 then begin
s:='This component has already the class '+ConflictingClass.ClassName; s:=Format(lisThisComponentAlreadyContainsAClassWithTheName, [
ConflictingClass.ClassName]);
raise EComponentError.Create(s); raise EComponentError.Create(s);
end; end;
ConflictingClass:=ConflictingClass.ClassParent; ConflictingClass:=ConflictingClass.ClassParent;
@ -12003,7 +12004,8 @@ var
// check if registered component class // check if registered component class
RegComp:=IDEComponentPalette.FindComponent(AName); RegComp:=IDEComponentPalette.FindComponent(AName);
if RegComp<>nil then begin if RegComp<>nil then begin
s:='There is already a component class with the name '+RegComp.ComponentClass.ClassName; s:=Format(lisThereIsAlreadyAComponentClassWithTheName, [RegComp.
ComponentClass.ClassName]);
raise EComponentError.Create(s); raise EComponentError.Create(s);
end; end;
end; end;