Inno Setup：TInputOptionWizardPage 禁用单选按钮看起来部分启用（错误？）

Question

我的 Inno Setup 脚本中有一个自定义页面，我通过执行以下操作创建了该页面：

var    
  installSelectPage: TInputOptionWizardPage;
  { ... }

procedure InitializeWizard;
begin
  installSelectPage :=
    CreateInputOptionPage(wpInfoBefore,
     'Select Destination Location', 'Where should {#MyAppName} be installed?',
     'Please select which {#MyGameName} distribution you want to mod',
     True, False);

  radioIndex_retailInstall := installSelectPage.Add('Retail/DVD');
  radioIndex_steamInstall := installSelectPage.Add('Steam');
  radioIndex_manualInstall := installSelectPage.Add('Manual Directory Selection')

然后在 InitializeWizard 过程的稍后时间，我读取了一些注册表项并禁用了未找到相应键的单选按钮：

  if not(retailInstallAvailable) then
    installSelectPage.CheckListBox.ItemEnabled[radioIndex_retailInstall] := False;

  if not(steamInstallAvailable) then
    installSelectPage.CheckListBox.ItemEnabled[radioIndex_steamInstall] := False;

这主要是可行的，但按钮的外观有一些奇怪的错误。在第一个和第二个按钮都被禁用（第三个从来没有）的机器上进行测试时，当我第一次到达这个自定义页面时，如果没有选择任何选项，它们看起来像这样：

这很微妙，但如果您仔细观察，您会注意到前两个单选按钮（不是它们的文本）看起来仍然部分启用（并且程度不同！）。

如果我然后选择第三个选项（这台机器上只有一个可用），回击然后再次下一步以刷新页面，然后按钮看起来正确：

有谁知道 Inno Setup 到底在做什么，以及如何在没有选择任何按钮的情况下让按钮看起来完全禁用？

Answer 1

我可以重现问题。

当焦点项目被禁用时似乎会发生这种情况。默认情况下，焦点项目是第一个。确保将 ItemIndex 设置为（第一个）启用项的索引。

installSelectPage.CheckListBox.ItemIndex := ...;