Inno Setup - 根据任务选择有条件地隐藏/显示静态文本

Question

[Components]
Name: "Slasher"; Description: "Dagon Slasher"; Types: Slasher Full
Name: "Frankenstein"; Description: "Dagon Frankenstein"; Types: Frankenstein Full

[Types]
Name: "Full"; Description: "Dagon Video Tools"
Name: "Slasher"; Description: "Dagon Slasher"
Name: "Frankenstein"; Description: "Dagon FrankenStein"

[Tasks]
Name: "Debug"; Description: "Nothing"; Components: not Slasher
Name: "Vid"; Description: "Install Extra Codecs for Frankenstein"; Flags: unchecked; Components: not Slasher

[Code]
var
  Warning: TNewStaticText;

procedure InitializeWizard;
begin
  Warning := TNewStaticText.Create(WizardForm);
  Warning.Parent := WizardForm.SelectTasksPage;
  Warning.Visible := False;
  Warning.AutoSize := False;
  Warning.SetBounds(
    WizardForm.TasksList.Left,
    WizardForm.TasksList.Top + WizardForm.TasksList.Height,
    WizardForm.TasksList.Width,
    50
  );
  Warning.Font.Color := clRed;
  Warning.Caption := 'Warning: This will result in a non-functional "Join in FrankenStein" button in the Tools Menu.';
end;

我使用了另一个惊人的code by TLama。问题是我需要在用户选择任务时显示该注释，否则将被隐藏（在同一页面上）。

Answer 1

您必须处理WizardForm.TasksList.OnClickCheck事件并相应地更新Warning标签可见性。

var
  Warning: TNewStaticText;

procedure TasksListClickCheck(Sender: TObject);
begin
  Warning.Visible :=
    { This (and the task index below)  has to be kept in sync with the expression }
    { in "Components" parameter of the respective task. }
    { Though note that in your specific case the test }
    { is redundant as when "Slasher" is selected, you have no tasks, }
    { and the "Tasks" page is completely skipped, so you do not even get here. }
    (not IsComponentSelected('Slasher')) and
    WizardForm.TasksList.Checked[0];
end;

procedure InitializeWizard;
begin
  Warning := TNewStaticText.Create(WizardForm);
  ...
  { Update Warning label visibility on task selection change }
  WizardForm.TasksList.OnClickCheck := @TasksListClickCheck
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectTasks then
  begin
    { Update initial visibility }
    TasksListClickCheck(WizardForm.TasksList);
  end;
end;

附注：

• 不要将高度硬编码为固定50。使用DPI进行缩放：ScaleY(50)。
• 您应该设置Warning.WordWrap := True，因为标题不适合页面宽度。
• 由于标签不适合列表，因此您应该缩小TasksList的高度。您错过了@ TLama代码中的WizardForm.TasksList.Height := WizardForm.TasksList.Height - NoteHeight;。再次注意他缺少NoteHeight的缩放比例。

const
  NoteHeight = 50;

procedure InitializeWizard;
begin
  WizardForm.TasksList.Height := WizardForm.TasksList.Height - ScaleY(NoteHeight);

  Warning := TNewStaticText.Create(WizardForm);
  Warning.Parent := WizardForm.SelectTasksPage;
  Warning.AutoSize := False;
  Warning.WordWrap := True;
  Warning.SetBounds(
    WizardForm.TasksList.Left,
    WizardForm.TasksList.Top + WizardForm.TasksList.Height,
    WizardForm.TasksList.Width,
    ScaleY(NoteHeight)
  );
  Warning.Font.Color := clRed;
  { Update Warning label visibility on task selection change }
  WizardForm.TasksList.OnClickCheck := @TasksListClickCheck
  Warning.Caption :=
    'Warning: This will result in a non-functional "Join in FrankenStein" button ' +
    'in the Tools Menu.';
end;