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

Question

我试图弄清楚如何更改卸载程序底部面板的背景颜色以匹配我能够使用我在此处找到的信息为安装程序设置的颜色： Inno Setup：如何更改背景颜色不幸的是，我有一直无法找到任何方法来扩展该答案以包括卸载页面。 它非常适合安装，但是当我测试卸载时，我看到：

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

任何人都可以请解释正确的方法来做到这一点吗？ 谢谢！

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

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

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

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

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

Answer 1

相当于InitializeWizard卸载程序是InitializeUninstallProgressForm ：

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

---

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

尽管无论如何您都应该使用InitializeUninstallProgressForm如上所示。