From a8239ea06b326c8ae6742a18044ec3a1d477c610 Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 28 Jan 2012 17:53:38 +0000 Subject: [PATCH] IDE: package registration error: write lpk filename git-svn-id: trunk@34997 - --- ide/lazarusidestrconsts.pas | 1 + packager/packagesystem.pas | 3 +++ 2 files changed, 4 insertions(+) diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas index 0d43e30161..37ef8905e4 100644 --- a/ide/lazarusidestrconsts.pas +++ b/ide/lazarusidestrconsts.pas @@ -3850,6 +3850,7 @@ resourcestring +'called, but no package is registering.'; lisPkgSysUnitName = '%s%sUnit Name: %s%s%s'; lisPkgSysFileName = '%s%sFile Name: %s%s%s'; + lisPkgSysLPKFilename = '%s%slpk file: %s%s%s'; lisPkgSysPackageRegistrationError = 'Package registration error'; lisPkgSysTheRTLFreePascalComponentLibraryProvidesTheBase = 'The RTL - ' +'The Run-Time Library is the basis of all Free Pascal programs.'; diff --git a/packager/packagesystem.pas b/packager/packagesystem.pas index ddef3fa622..6e007e84ca 100644 --- a/packager/packagesystem.pas +++ b/packager/packagesystem.pas @@ -1447,6 +1447,9 @@ begin ErrorMsg:=lisPkgSysRegisterUnitWasCalledButNoPackageIsRegistering; end else begin ErrorMsg:='Package: "'+FRegistrationPackage.IDAsString+'"'; + if not FRegistrationPackage.AutoCreated then + ErrorMsg:=Format(lisPkgSysLPKFilename, [ErrorMsg, #13, '"', + FRegistrationPackage.Filename, '"']); // current unitname if FRegistrationUnitName<>'' then ErrorMsg:=Format(lisPkgSysUnitName, [ErrorMsg, #13, '"',