mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-01 23:20:26 +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 '
|
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
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user