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

ideintf: added resourcestring

Browse Source 
git-svn-id: trunk@24676 -
This commit is contained in:
mattias 2010-04-17 16:36:48 +00:00
parent 4ff2445166
commit 0c694a019d
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ideintf/objinspstrconsts.pas
View File

@ -382,6 +382,7 @@ resourcestring
fesFlTitle = 'FieldDefs'; fesFlTitle = 'FieldDefs';
fesNoFieldsNote = 'Field''s list is not available, can''t check for duplicates'; fesNoFieldsNote = 'Field''s list is not available, can''t check for duplicates';
oisIncompatibleIdentifier = 'Incompatible Identifier'; oisIncompatibleIdentifier = 'Incompatible Identifier';
oisIsNotAValidMethodName = '%s%s%s is not a valid method name.';
oisTheIdentifierIsNotAMethodPressCancelToUndoPressIgn = 'The identifier %s%' oisTheIdentifierIsNotAMethodPressCancelToUndoPressIgn = 'The identifier %s%'
+'s%s is not a method.%sPress Cancel to undo,%spress Ignore to force it.'; +'s%s is not a method.%sPress Cancel to undo,%spress Ignore to force it.';
oisIncompatibleMethod = 'Incompatible Method'; oisIncompatibleMethod = 'Incompatible Method';

2
ideintf/propedits.pp
View File

@ -3962,7 +3962,7 @@ begin
if (not IsNil) and (not IsValidIdent(NewValue)) if (not IsNil) and (not IsValidIdent(NewValue))
then begin then begin
MessageDlg(oisIncompatibleIdentifier, MessageDlg(oisIncompatibleIdentifier,
'"'+NewValue+'" is not a valid method name.', mtError, Format(oisIsNotAValidMethodName,['"',NewValue,'"']), mtError,
[mbCancel, mbIgnore], 0); [mbCancel, mbIgnore], 0);
exit; exit;
end; end;