Inno Setup：如何更改卸载背景颜色答案

【问题标题】：Inno Setup: How to change uninstall background colorInno Setup：如何更改卸载背景颜色
【发布时间】：2019-07-22 15:52:40
【问题描述】：

我正在尝试找出如何更改卸载程序中底部面板的背景颜色以匹配我能够使用我在此处找到的信息为安装程序设置的颜色：Inno Setup: How to change background color 不幸的是，我无法找到任何方法来扩展该答案以包括卸载页面。它非常适合安装，但是当我测试卸载时，我看到了这个：

在安装程序中，当下部窗格的背景颜色改变时，斜面标签的背景也随之改变，但我找不到卸载程序的类似设置。我查看了CurPageID 值列表，似乎没有一个与卸载程序相关，但我希望它要么被列出，要么使用与安装程序相同的设置。可悲的是，两者似乎都不是真的。

谁能解释一下正确的方法？谢谢！

编辑：对于不想查看链接文章中的代码的任何人，这是我项目中现在的样子：

procedure CurPageChanged(CurPageID: Integer);
begin
  WizardForm.Color := WizardForm.InnerPage.Color;
end;

procedure InitializeWizard;
begin
  WizardForm.Color := clWhite;
end;

我最初尝试它时没有注释掉CurPageChanged 中的行，然后我想，为什么不总是在页面更改时设置颜色。不过，卸载页面有一个灰色的下部窗格。显然，代码不会影响它们和/或它们不是WizardForm 页面。

编辑：当被要求显示我尝试过的代码时，我添加了代码块，因为它看起来是时间。该块包括一些注释掉的行，这些行是先前尝试的一部分。这里有人认为不需要以前的那些尝试并将它们从我的帖子中删除。所以我可能会问，“为什么我的一些失败的代码是合适的，但它的其他部分不合适？或者我应该在放弃并提出我的问题之前在 20 多次调整它们之前发布每个单独的函数版本吗？ "

【问题讨论】：

标签： windows inno-setup pascalscript

【解决方案1】：

卸载程序等效于InitializeWizard 是InitializeUninstallProgressForm：

procedure InitializeUninstallProgressForm();
begin
  UninstallProgressForm.Color := clWhite;
end;

CurPageChanged 的等效项是 CurUninstallStepChanged。 UninstallProgressForm 在初始usAppMutexCheck 和最终usDone 步骤中不可用。

尽管您应该使用如上所示的InitializeUninstallProgressForm。

【讨论】：