paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 20:59:06 +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); Handled := not FindSelectedItem(Identifier, UnitFilename, GroupName, GroupFilename);
if Handled then exit; if Handled then exit;
UseMenuItem .Caption := 'Use ' + Identifier; UseMenuItem .Caption := Format(crsContextUseIdentifier, [Identifier]);
JumpMenuItem .Caption := 'Jump to ' + Identifier; JumpMenuItem .Caption := Format(crsContextJumpTo , [Identifier]);
DeleteUnitMenuItem .Caption := 'Delete unit ' + ExtractFilename(UnitFilename); DeleteUnitMenuItem .Caption := Format(crsContextDeleteUnit , [ExtractFilename(UnitFilename)]);
DeletePackageMenuItem.Caption := 'Delete package ' + ExtractFilename(GroupFilename); DeletePackageMenuItem.Caption := Format(crsContextDeletePackage, [ExtractFilename(GroupFilename)]);
end; end;
procedure TCodyIdentifiersDlg.StartsRadioButtonClick(Sender: TObject); procedure TCodyIdentifiersDlg.StartsRadioButtonClick(Sender: TObject);

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

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