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

Cody/Dictionary: Add resource strings for context menu items

Browse Source
This commit is contained in:
n7800 2025-06-24 09:10:26 +05:00 committed by Maxim Ganetsky
parent 1e1a6a44e7
commit e240a8897b
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/ide/codyidentifiersdlg.pas
View File

@ -1054,10 +1054,10 @@ begin
Handled := not FindSelectedItem(Identifier, UnitFilename, GroupName, GroupFilename);
if Handled then exit;
UseMenuItem .Caption := 'Use ' + Identifier;
JumpMenuItem .Caption := 'Jump to ' + Identifier;
DeleteUnitMenuItem .Caption := 'Delete unit ' + ExtractFilename(UnitFilename);
DeletePackageMenuItem.Caption := 'Delete package ' + ExtractFilename(GroupFilename);
UseMenuItem .Caption := Format(crsContextUseIdentifier, [Identifier]);
JumpMenuItem .Caption := Format(crsContextJumpTo , [Identifier]);
DeleteUnitMenuItem .Caption := Format(crsContextDeleteUnit , [ExtractFilename(UnitFilename)]);
DeletePackageMenuItem.Caption := Format(crsContextDeletePackage, [ExtractFilename(GroupFilename)]);
end;
procedure TCodyIdentifiersDlg.StartsRadioButtonClick(Sender: TObject);

4
components/codetools/ide/codystrconsts.pas
View File

@ -183,6 +183,10 @@ resourcestring
+'containing filter text';
crsUseIdentifier = '&Use identifier';
crsAndMoreIdentifiers = '... and %s more identifiers';
crsContextUseIdentifier = 'Use "%s"';
crsContextJumpTo = 'Jump to "%s"';
crsContextDeleteUnit = 'Delete unit "%s"';
crsContextDeletePackage = 'Delete package "%s"';
crsCodyIdentifierDictionary = 'Identifier Dictionary';
crsReallyDeleteTheUnitFromTheDatabaseNoteThisDoesNo = 'Really delete the '
+'unit from the database?%sNote: This does not change the source or any'