diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas index db0bdb4fa3..5b3d61ef3d 100644 --- a/ide/lazarusidestrconsts.pas +++ b/ide/lazarusidestrconsts.pas @@ -4953,6 +4953,8 @@ resourcestring lisWarningThisIsTheMainUnitTheNewMainUnitWillBePas = '%sWarning: This is ' +'the main unit. The new main unit will be %s.pas.'; lisDirectivesForNewUnit = 'Directives for new unit'; + lisRemoveFromInstallList = 'Remove from install list'; + lisKeepInInstallList = 'Keep in install list'; implementation diff --git a/packager/packagesystem.pas b/packager/packagesystem.pas index ac5882de65..8f413870b9 100644 --- a/packager/packagesystem.pas +++ b/packager/packagesystem.pas @@ -3286,10 +3286,11 @@ begin // a package needed for installation failed to compile // -> ask user if the package should be removed from the installation // list - MsgResult:=IDEMessageDialog(lisInstallationFailed, + MsgResult:=IDEQuestionDialog(lisInstallationFailed, Format(lisPkgMangThePackageFailedToCompileRemoveItFromTheInstallati, ['"', APackage.IDAsString, '"', #13]), mtConfirmation, - [mbYes,mbIgnore]); + [mrYes, lisRemoveFromInstallList, mrIgnore, lisKeepInInstallList + ]); if MsgResult=mrIgnore then IgnoreQuestions.Add(GetIgnoreIdentifier,iiid24H) else if MsgResult=mrYes then