inno-setup - 修改Inno Wizard Pages的尺寸、背景图片等

Question

我有这部分代码可以调整我的欢迎页面，但完成的页面仍然是默认的 Inno 页面，侧面有丑陋的向导图片。我想对完成的页面执行与欢迎相同的操作

[Code]
    procedure InheritBoundsRect(ASource, ATarget: TControl);
    begin
      ATarget.Left := 210;
      ATarget.Top := ASource.Top;
      ATarget.Width := 295;
      ATarget.Height := ASource.Height;
    end;

    procedure InitializeWizard;
    var
      TopWelcomeLabel: TLabel;
      BottomWelcomeLabel: TLabel;
    begin

      WizardForm.WizardBitmapImage.Align := alClient;
      WizardForm.WizardBitmapImage.Bitmap.LoadFromFile('Q:\Inno\wizardimages\new\bmp.bmp');
      TopWelcomeLabel := TLabel.Create(WizardForm);
      TopWelcomeLabel.Parent := WizardForm.WelcomeLabel1.Parent;
      TopWelcomeLabel.Font := WizardForm.WelcomeLabel1.Font;
      TopWelcomeLabel.Caption := WizardForm.WelcomeLabel1.Caption;
      TopWelcomeLabel.WordWrap := WizardForm.WelcomeLabel1.WordWrap;
      InheritBoundsRect(WizardForm.WelcomeLabel1, TopWelcomeLabel);
      WizardForm.WelcomeLabel1.Visible := False;

      BottomWelcomeLabel := TLabel.Create(WizardForm);
      BottomWelcomeLabel.Parent := WizardForm.WelcomeLabel2.Parent;
      BottomWelcomeLabel.Font := WizardForm.WelcomeLabel2.Font;
      BottomWelcomeLabel.Caption := WizardForm.WelcomeLabel2.Caption;
      BottomWelcomeLabel.WordWrap := WizardForm.WelcomeLabel2.WordWrap;
      InheritBoundsRect(WizardForm.WelcomeLabel2, BottomWelcomeLabel);
      WizardForm.WelcomeLabel2.Visible := False;
    end;

编辑解决方案:

现在在下面的人的帮助下，这是新代码，看起来效果很好

[Code]
    procedure InheritBoundsRect(ASource, ATarget: TControl);
    begin
      ATarget.Left := 210;
      ATarget.Top := ASource.Top;
      ATarget.Width := 295;
      ATarget.Height := ASource.Height;
    end;

    procedure InitializeWizard;
    var
      TopWelcomeLabel: TLabel;
      BottomWelcomeLabel: TLabel;
    begin

      WizardForm.WizardBitmapImage.Align := alClient;
      WizardForm.WizardBitmapImage.Bitmap.LoadFromFile('bmp.bmp');
      TopWelcomeLabel := TLabel.Create(WizardForm);
      TopWelcomeLabel.Parent := WizardForm.WelcomeLabel1.Parent;
      TopWelcomeLabel.Font := WizardForm.WelcomeLabel1.Font;
      TopWelcomeLabel.Caption := WizardForm.WelcomeLabel1.Caption;
      TopWelcomeLabel.WordWrap := WizardForm.WelcomeLabel1.WordWrap;
      InheritBoundsRect(WizardForm.WelcomeLabel1, TopWelcomeLabel);
      WizardForm.WelcomeLabel1.Visible := False;
      BottomWelcomeLabel := TLabel.Create(WizardForm);
      BottomWelcomeLabel.Parent := WizardForm.WelcomeLabel2.Parent;
      BottomWelcomeLabel.Font := WizardForm.WelcomeLabel2.Font;
      BottomWelcomeLabel.Caption := WizardForm.WelcomeLabel2.Caption;
      BottomWelcomeLabel.WordWrap := WizardForm.WelcomeLabel2.WordWrap;
      InheritBoundsRect(WizardForm.WelcomeLabel2, BottomWelcomeLabel);
      WizardForm.WelcomeLabel2.Visible := False;

      WizardForm.WizardBitmapImage2.Align := alClient;


//Stackoverflow changes start here...

      WizardForm.WizardBitmapImage2.Bitmap.LoadFromFile('bmp.bmp');

      WizardForm.FinishedLabel.Left := 210;
      WizardForm.FinishedLabel.Width := 265;

      WizardForm.FinishedHeadingLabel.Left := 210;
      WizardForm.FinishedHeadingLabel.Width := 265

      WizardForm.RunList.Left := 210;
    end;

Answer 1

最终页面中的组件名称是:

• 成品标签
• 完成的标题标签
• WizardBitmapImage2

我已经在这张图片中标记了它们: