如何在Inno Setup中按比例全局调整向导控件字体大小？

要实现按指定比例全局放大所有向导控件的字体，并解决布局适配问题，需要覆盖所有层级的控件（包括容器子控件）、全局向导控件（如底部按钮、状态栏），并基于文本实际尺寸调整布局，而非简单比例缩放。以下是完善的实现方案：

核心实现代码 #

[Setup]
WizardStyle=Modern
WizardResizable=False

[Code]
const
  SCALE_PERCENT = 1.5; // 设置缩放比例，如1.5对应150%

procedure ScaleControl(Control: TControl; ScaleFactor: Double);
var
  I: Integer;
  NewFontSize: Integer;
  TextWidth, TextHeight: Integer;
  Canvas: TCanvas;
begin
  if Control = nil then Exit;

  // 处理控件字体
  if Control is TWinControl then
  begin
    NewFontSize := Round(TWinControl(Control).Font.Size * ScaleFactor);
    if NewFontSize <= 0 then NewFontSize := 8; // 避免字体过小
    TWinControl(Control).Font.Size := NewFontSize;
  end;

  // 基于文本实际尺寸调整控件大小（仅针对文本类控件）
  Canvas := TCanvas.Create;
  try
    Canvas.Font.Assign(Control.Font);
    if Control is TNewStaticText then
    begin
      TextWidth := Canvas.TextWidth(TNewStaticText(Control).Caption);
      TextHeight := Canvas.TextHeight(TNewStaticText(Control).Caption);
      Control.Width := TextWidth + 8; // 增加左右边距
      Control.Height := TextHeight + 4; // 增加上下边距
    end
    else if Control is TCheckBox then
    begin
      TextWidth := Canvas.TextWidth(TCheckBox(Control).Caption);
      Control.Width := TextWidth + 24; // 预留复选框图标宽度
      Control.Height := Canvas.TextHeight(TCheckBox(Control).Caption) + 4;
    end
    else if Control is TButton then
    begin
      TextWidth := Canvas.TextWidth(TButton(Control).Caption);
      Control.Width := TextWidth + 32; // 按钮左右边距
      Control.Height := Canvas.TextHeight(TButton(Control).Caption) + 12; // 按钮上下边距
    end
    else if Control is TEdit then
    begin
      // 编辑框根据字体高度调整，宽度按比例缩放
      Control.Height := Canvas.TextHeight('X') + 8;
      Control.Width := Round(Control.Width * ScaleFactor);
    end
    else if Control is TMemo then
    begin
      // 调整编辑框高度，保持宽度比例，确保滚动条正常
      Control.Height := Round(Control.Height * ScaleFactor);
      Control.Width := Round(Control.Width * ScaleFactor);
      TMemo(Control).ScrollBars := ssBoth; // 强制显示滚动条（可选）
    end
    else if Control is TNewCheckListBox then
    begin
      // 调整列表框行高和整体尺寸
      TNewCheckListBox(Control).ItemHeight := Round(TNewCheckListBox(Control).ItemHeight * ScaleFactor);
      Control.Height := Round(Control.Height * ScaleFactor);
      Control.Width := Round(Control.Width * ScaleFactor);
    end
    else if Control is TListBox then
    begin
      Control.Height := Round(Control.Height * ScaleFactor);
      Control.Width := Round(Control.Width * ScaleFactor);
    end;
  finally
    Canvas.Free;
  end;

  // 递归处理容器控件的子控件
  if Control is TWinControl then
  begin
    for I := 0 to TWinControl(Control).ControlCount - 1 do
    begin
      ScaleControl(TWinControl(Control).Controls[I], ScaleFactor);
    end;
  end;
end;

procedure ScaleWizardPages(ScaleFactor: Double);
var
  PageIDs: array of Integer;
  I: Integer;
  Page: TWizardPage;
begin
  // 遍历所有内置向导页面
  PageIDs := [wpWelcome, wpLicense, wpPassword, wpInfoBefore,
              wpUserInfo, wpSelectDir, wpSelectComponents,
              wpSelectProgramGroup, wpSelectTasks, wpReady,
              wpPreparing, wpInstalling, wpInfoAfter, wpFinished];

  for I := 0 to Length(PageIDs) - 1 do
  begin
    Page := PageFromID(PageIDs[I]);
    if Page <> nil then
    begin
      ScaleControl(Page.Surface, ScaleFactor);
    end;
  end;
end;

procedure ScaleGlobalWizardControls(ScaleFactor: Double);
begin
  // 缩放底部导航按钮
  ScaleControl(WizardForm.BackButton, ScaleFactor);
  ScaleControl(WizardForm.NextButton, ScaleFactor);
  ScaleControl(WizardForm.CancelButton, ScaleFactor);
  ScaleControl(WizardForm.FinishedButton, ScaleFactor);
  ScaleControl(WizardForm.CloseButton, ScaleFactor);

  // 缩放状态栏和其他全局控件
  ScaleControl(WizardForm.StatusLabel, ScaleFactor);
  ScaleControl(WizardForm.ProgressGauge, ScaleFactor);
end;

procedure InitializeWizard();
begin
  // 缩放页面控件和全局控件
  ScaleWizardPages(SCALE_PERCENT);
  ScaleGlobalWizardControls(SCALE_PERCENT);

  // 调整向导窗体尺寸（保持WizardResizable=False时需手动适配）
  WizardForm.ClientWidth := Round(WizardForm.ClientWidth * SCALE_PERCENT);
  WizardForm.ClientHeight := Round(WizardForm.ClientHeight * SCALE_PERCENT);
end;

关键优化点说明 #

1. 递归遍历控件：通过ScaleControl函数递归处理容器控件（如TPanel、TGroupBox）的子控件，确保所有层级的控件都被覆盖，解决了之前仅遍历直接子控件的问题。
2. 基于文本尺寸调整布局：使用Canvas.TextWidth和Canvas.TextHeight计算文本实际所需空间，替代固定比例缩放，避免文本被截断或控件留白过多。
3. 覆盖全局控件：单独处理向导窗体的底部按钮、状态栏等全局控件，这些控件不属于任何页面的Surface，之前的代码未覆盖。
4. 特殊控件适配：针对TMemo、TNewCheckListBox等控件做专属处理，确保滚动条、行高的正常显示。
5. 窗体尺寸适配：手动调整向导窗体的客户端尺寸，在WizardResizable=False时保证所有控件都能显示在窗体范围内。

使用注意事项 #

• 建议设置WizardStyle=Modern，Modern风格的向导布局更灵活，适配大字体效果更好。
• 调整SCALE_PERCENT常量时，建议在不同分辨率的系统上测试显示效果，避免布局错乱。
• 部分系统原生控件（如TComboBox的下拉列表）的字体由系统控制，Inno Setup无法直接修改，但主控件的字体已覆盖。

内容的提问来源于stack exchange，提问作者ElektroStudios