windows - Inno 安装程序 : How to change uninstall background color

Question

我正在尝试找出如何更改 UNINSTALLER 中底部面板的背景颜色以匹配我能够使用我在此处找到的信息为 INSTALLER 设置的颜色: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 中的行的情况下尝试了它，然后我想，为什么不总是在页面更改时设置颜色。卸载页面仍然有一个灰色的下 Pane 。显然，代码不会影响它们和/或它们不是 WizardForm 页面。

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

Answer 1

卸载程序等效于 InitializeWizard 是 InitializeUninstallProgressForm :

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

---

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

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