mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-21 09:39:31 +02:00
IDE: when compile of an install package failed: more verbose buttons
git-svn-id: trunk@28056 -
This commit is contained in:
parent
56f71a1c43
commit
5ca80379a2
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user