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

IDE: package registration error: write lpk filename

Browse Source 
git-svn-id: trunk@34997 -
This commit is contained in:
mattias 2012-01-28 17:53:38 +00:00
parent 57f34f428c
commit a8239ea06b
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/lazarusidestrconsts.pas
View File

@ -3850,6 +3850,7 @@ resourcestring
+'called, but no package is registering.'; +'called, but no package is registering.';
lisPkgSysUnitName = '%s%sUnit Name: %s%s%s'; lisPkgSysUnitName = '%s%sUnit Name: %s%s%s';
lisPkgSysFileName = '%s%sFile Name: %s%s%s'; lisPkgSysFileName = '%s%sFile Name: %s%s%s';
lisPkgSysLPKFilename = '%s%slpk file: %s%s%s';
lisPkgSysPackageRegistrationError = 'Package registration error'; lisPkgSysPackageRegistrationError = 'Package registration error';
lisPkgSysTheRTLFreePascalComponentLibraryProvidesTheBase = 'The RTL - ' lisPkgSysTheRTLFreePascalComponentLibraryProvidesTheBase = 'The RTL - '
+'The Run-Time Library is the basis of all Free Pascal programs.'; +'The Run-Time Library is the basis of all Free Pascal programs.';

3
packager/packagesystem.pas
View File

@ -1447,6 +1447,9 @@ begin
ErrorMsg:=lisPkgSysRegisterUnitWasCalledButNoPackageIsRegistering; ErrorMsg:=lisPkgSysRegisterUnitWasCalledButNoPackageIsRegistering;
end else begin end else begin
ErrorMsg:='Package: "'+FRegistrationPackage.IDAsString+'"'; ErrorMsg:='Package: "'+FRegistrationPackage.IDAsString+'"';
if not FRegistrationPackage.AutoCreated then
ErrorMsg:=Format(lisPkgSysLPKFilename, [ErrorMsg, #13, '"',
FRegistrationPackage.Filename, '"']);
// current unitname // current unitname
if FRegistrationUnitName<>'' then if FRegistrationUnitName<>'' then
ErrorMsg:=Format(lisPkgSysUnitName, [ErrorMsg, #13, '"', ErrorMsg:=Format(lisPkgSysUnitName, [ErrorMsg, #13, '"',