IDE: when compile of an install package failed: more verbose buttons

git-svn-id: trunk@28056 -
This commit is contained in:
mattias 2010-11-03 14:45:03 +00:00
parent 56f71a1c43
commit 5ca80379a2
2 changed files with 5 additions and 2 deletions

View File

@ -4953,6 +4953,8 @@ resourcestring
lisWarningThisIsTheMainUnitTheNewMainUnitWillBePas = '%sWarning: This is ' lisWarningThisIsTheMainUnitTheNewMainUnitWillBePas = '%sWarning: This is '
+'the main unit. The new main unit will be %s.pas.'; +'the main unit. The new main unit will be %s.pas.';
lisDirectivesForNewUnit = 'Directives for new unit'; lisDirectivesForNewUnit = 'Directives for new unit';
lisRemoveFromInstallList = 'Remove from install list';
lisKeepInInstallList = 'Keep in install list';
implementation implementation

View File

@ -3286,10 +3286,11 @@ begin
// a package needed for installation failed to compile // a package needed for installation failed to compile
// -> ask user if the package should be removed from the installation // -> ask user if the package should be removed from the installation
// list // list
MsgResult:=IDEMessageDialog(lisInstallationFailed, MsgResult:=IDEQuestionDialog(lisInstallationFailed,
Format(lisPkgMangThePackageFailedToCompileRemoveItFromTheInstallati, Format(lisPkgMangThePackageFailedToCompileRemoveItFromTheInstallati,
['"', APackage.IDAsString, '"', #13]), mtConfirmation, ['"', APackage.IDAsString, '"', #13]), mtConfirmation,
[mbYes,mbIgnore]); [mrYes, lisRemoveFromInstallList, mrIgnore, lisKeepInInstallList
]);
if MsgResult=mrIgnore then if MsgResult=mrIgnore then
IgnoreQuestions.Add(GetIgnoreIdentifier,iiid24H) IgnoreQuestions.Add(GetIgnoreIdentifier,iiid24H)
else if MsgResult=mrYes then else if MsgResult=mrYes then