paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-24 20:39:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: improved localization of errors in 'Empty methods' dialog

Browse Source 
git-svn-id: trunk@29788 -
This commit is contained in:
maxim 2011-03-10 22:40:59 +00:00
parent 517bd4b789
commit bf5c313789
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/emptymethodsdlg.pas
View File

@ -120,8 +120,9 @@ begin
ErrMsg:='';
LazarusIDE.DoJumpToCodeToolBossError;
end else begin
MessageDlg('No class',
'No class at '+Code.Filename+'('+IntToStr(Caret.Y)+','+IntToStr(Caret.X)+')',
MessageDlg(lisEMDNoClass,
Format(lisEMDNoClassAt, [Code.Filename, IntToStr(Caret.Y), IntToStr(
Caret.X)]),
mtError,[mbCancel],0);
end;
exit;
@ -141,8 +142,8 @@ begin
CodeToolBoss.FreeListOfPCodeXYPosition(ListOfPCodeXYPosition);
if ErrMsg<>'' then begin
MessageDlg(lisCCOErrorCaption,
'Unable to show empty methods of the current class, because'+#13
+ErrMsg,mtError,[mbCancel],0);
Format(lisEMDUnableToShowEmptyMethodsOfTheCurrentClassBecause, [#13,
ErrMsg]), mtError, [mbCancel], 0);
end;
end;
end;

4
ide/lazarusidestrconsts.pas
View File

@ -2175,6 +2175,10 @@ resourcestring
lisEMDOnlyPublished = 'Only published';
lisEMDFoundEmptyMethods = 'Found empty methods:';
lisEMDRemoveMethods = 'Remove methods';
lisEMDNoClass = 'No class';
lisEMDNoClassAt = 'No class at %s(%s,%s)';
lisEMDUnableToShowEmptyMethodsOfTheCurrentClassBecause = 'Unable to show '
+'empty methods of the current class, because%s%s';
lisRoot = 'Root';
lisCopyDescription = 'Copy description to clipboard';
lisUseIdentifierInAt = 'Use identifier %s in %s at %s';