Question

我试图为我正在制作的安装程序的WizardSmallImage设置自定义图像，但是，我遇到了一个问题：我尝试使用的图像超出了最大尺寸for WizardSmallImage（55x58）。由于我是为朋友做这件事，我无法削减/缩小他的形象。

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

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

但它没有用......

如果有人能回答我，我会非常感激!!

Answer 1

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

如果你需要使它太宽（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的最大大小

1 个答案: