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

ide: codebrowser translation improvements by Marcelo B Paula (patch001 of issue #0014266)

Browse Source 
git-svn-id: trunk@21353 -
This commit is contained in:
paul 2009-08-20 16:34:11 +00:00
parent 21b1cec67b
commit c0cd760d2d
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/codebrowser.pas
View File

@ -447,9 +447,9 @@ begin
Identifier:=TCodeBrowserNode(Node).Identifier
else
Identifier:='';
CopyDescriptionMenuItem.Caption:='Copy description to clipboard';
CopyIdentifierMenuItem.Caption:='Copy "'+Identifier+'" to clipboard';
CopyDescriptionMenuItem.Caption:=lisCopyDescription;
CopyIdentifierMenuItem.Caption:=Format(lisCopyIdentifier, ['"', Identifier,
'"']);
CopyDescriptionMenuItem.Visible:=true;
CopyIdentifierMenuItem.Visible:=Identifier<>'';
CopySeparatorMenuItem.Visible:=true;
@ -1912,7 +1912,7 @@ end;
function TCodeBrowserView.InitTreeView: TTreeNode;
begin
ClearTreeView;
Result:=BrowseTreeView.Items.Add(nil,'Root');
Result:=BrowseTreeView.Items.Add(nil, lisRoot);
end;
function TCodeBrowserView.ListOwnerToText(const ListOwner: string): string;

3
ide/lazarusidestrconsts.pas
View File

@ -1840,6 +1840,9 @@ resourcestring
lisEMDOnlyPublished = 'Only published';
lisEMDFoundEmptyMethods = 'Found empty methods:';
lisEMDRemoveMethods = 'Remove methods';
lisRoot = 'Root';
lisCopyDescription = 'Copy description to clipboard';
lisCopyIdentifier = 'Copy %s%s%s to clipboard';
lisExpandAllPackages = 'Expand all packages';
lisCollapseAllPackages = 'Collapse all packages';
lisExpandAllUnits = 'Expand all units';