覆盖 WizardSmallImage 的最大尺寸

Question

我正在尝试为我正在制作的安装程序的 WizardSmallImage 设置自定义图像，但是，我运行遇到了一个问题：我尝试使用的图像超过了最大尺寸对于 WizardSmallImage (55x58)。由于我是为朋友做的，所以我不能 cut/shrink 他的图片。

那么，有什么方法可以覆盖这个最大尺寸吗？我试图通过在 [Code] 部分编写此代码来手动更改 WizardForm.WizardSmallBitmapImage 的属性：

procedure InitializeWizard;
begin
  WizardForm.WizardSmallBitmapImage.Stretch := false;
  WizardForm.WizardSmallBitmapImage.Width := 150
end;

但是没用...

如果有人能回答我，我将不胜感激！！

Answer 1

当您增加 WizardSmallBitmapImage 的 Width 时，它会与 window 的右边缘重叠。你也必须把它移到左边。

如果你需要让它变得太宽 (150)，你还需要让左边的标签（PageDescriptionLabel 和 PageNameLabel）更窄。

procedure InitializeWizard;
var Diff: Integer;
begin
    ....
    Diff := ScaleX(150) - WizardForm.WizardSmallBitmapImage.Width;
    WizardForm.WizardSmallBitmapImage.Width := 
        WizardForm.WizardSmallBitmapImage.Width + Diff
    WizardForm.WizardSmallBitmapImage.Left :=
        WizardForm.WizardSmallBitmapImage.Left - Diff;
    WizardForm.PageDescriptionLabel.Width := 
        WizardForm.PageDescriptionLabel.Width - Diff;
    WizardForm.PageNameLabel.Width := 
        WizardForm.PageNameLabel.Width - Diff;
    ...
end;

覆盖 WizardSmallImage 的最大尺寸

Override the maximum size of WizardSmallImage

inno-setup

pascalscript