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

component palette: added resourcestrings

Browse Source 
git-svn-id: trunk@9705 -
This commit is contained in:
mattias 2006-08-06 08:52:27 +00:00
parent 2fd847259b
commit 6fc60316d1
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/componentpalette.pas
View File

@ -184,7 +184,8 @@ begin
OpenPackageMenuItem.Visible:=false;
OpenUnitMenuItem.Visible:=false;
end else begin
OpenPackageMenuItem.Caption:='Open Package '+APackage.IDAsString;
OpenPackageMenuItem.Caption:=Format(lisCPOpenPackage, [APackage.IDAsString]
);
OpenPackageMenuItem.Visible:=true;
ShownFilename:=PkgComponent.PkgFile.Filename;
UnitFilename:=APackage.SubstitutePkgMacro(ShownFilename,true);
@ -195,7 +196,7 @@ begin
if FileExists(UnitFilename) then
UnitFilename:=ShownFilename;
end;
OpenUnitMenuItem.Caption:='Open Unit '+ShownFilename;
OpenUnitMenuItem.Caption:=Format(lisCPOpenUnit, [ShownFilename]);
OpenUnitMenuItem.Visible:=true;
OpenUnitMenuItem.Enabled:=FileExists(UnitFilename);
end;

2
ide/lazarusidestrconsts.pas
View File

@ -2106,6 +2106,8 @@ resourcestring
// component palette
lisCompPalOpenPackage = 'Open package';
lisCPOpenPackage = 'Open Package %s';
lisCPOpenUnit = 'Open Unit %s';
lisCompPalOpenUnit = 'Open unit';
lisCompPalFindComponent = 'Find component';