如何更改 Pascal 脚本中的 Inno Setup 'SelectDirBitmapImage'？

Question

我正在尝试使用

Inno Setup Wizard 顶部面板中的显示图像

中的 Pascal 代码更改 SelectDirBitmapImage，但我没有运气。

我尝试这样做：

procedure LoadSelectDirAndGroupImages();
var
  BitmapImage: TBitmapImage;
begin
  ExtractTemporaryFile('bitmap-test5.bmp');
  BitmapImage := TBitmapImage.Create(WizardForm);
  BitmapImage.Parent := WizardForm.SelectDirBitmapImage;
  BitmapImage.Width := WizardForm.SelectDirBitmapImage.Width;
  BitmapImage.Height := WizardForm.SelectDirBitmapImage.Height;
  BitmapImage.Stretch := True;
  BitmapImage.AutoSize := False;
  BitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\bitmap-test5.bmp'));
end;

但它不断返回“类型不匹配”。知道出了什么问题吗？

Answer 1

只需将图像加载到

SelectDirBitmapImage

:

procedure InitializeWizard();
var
  BitmapFileName: string;
  BitmapPath: string;
begin
  BitmapFileName := 'bitmap-test5.bmp';
  ExtractTemporaryFile(BitmapFileName); 
  BitmapPath := ExpandConstant('{tmp}\' + BitmapFileName);
  WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(BitmapPath);
end;