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如上所示。