Inno setup 如何在inno安装程序的wpInstalling页面中显示多个图像

Inno setup 如何在inno安装程序的wpInstalling页面中显示多个图像,inno-setup,Inno Setup,我有一个安装程序,我想在“wpInstalling”页面上显示多个位图图像。这些图像应该一个接一个地显示 TLama可能会为您提供更好的解决方案,但您可以尝试类似的方法(当然,您应该为您的项目修改它) 为什么不把这些位图合并成一个位图并显示出来呢?还是我在你的“一个低于另一个”中遗漏了什么?一个屏幕截图或更好的描述会很有用。3个图片文件在一行或一行下面。我无法附加图像,因为我没有10个声誉。如果您提供任何脚本来显示图像,我将非常感谢您将图像上载到imgur.com并发布图像链接。我会把它嵌入到你

我有一个安装程序,我想在“wpInstalling”页面上显示多个位图图像。这些图像应该一个接一个地显示

TLama可能会为您提供更好的解决方案,但您可以尝试类似的方法(当然,您应该为您的项目修改它)


为什么不把这些位图合并成一个位图并显示出来呢?还是我在你的“一个低于另一个”中遗漏了什么?一个屏幕截图或更好的描述会很有用。3个图片文件在一行或一行下面。我无法附加图像,因为我没有10个声誉。如果您提供任何脚本来显示图像,我将非常感谢您将图像上载到imgur.com并发布图像链接。我会把它嵌入到你的问题中。。。我写了一些演示幻灯片的脚本。例如,它还包括音乐播放。我想还会有更多的人。。。但是现在使用
CurInstallProgressChanged
事件的选项更好了。我同意TLama——除非你想做一些奇怪的事情,比如在运行时独立地动态更改图像(某种动画效果),将图像合并成一个位图并使用它要简单得多。我怀疑有什么比你发布的内容“更好”。尽管我的建议是将这些位图合并为一个。即使是Windows95中的MS Paint也足以完成这项任务。非常感谢您的帖子
[Files]
Source: ".\01.bmp"; DestDir: "{tmp}"; Flags: dontcopy nocompression
Source: ".\02.bmp"; DestDir: "{tmp}"; Flags: dontcopy nocompression

[Code]
function InitializeSetup: Boolean;
begin
   ExtractTemporaryFile('01.bmp'); //here you extract your first BMP file to temp folder
   ExtractTemporaryFile('02.bmp'); //here you extract your second BMP file to temp folder
   Result := True;
end;

procedure CurPageChanged(CurPageID: Integer);
var
BmpFile1, BmpFile2: TBitmapImage;
begin
  if CurPageID = wpInstalling then begin 
      BmpFile1:= TBitmapImage.Create(WizardForm);
      BmpFile1.Bitmap.LoadFromFile(ExpandConstant('{tmp}\01.bmp'));
      BmpFile1.Width:= ScaleX(417);
// here you set Width (417px is Width of ProgressBar) for 1st BMP
      BmpFile1.Height:= ScaleY(50);
// here you set Height for 1st BMP
      BmpFile1.Stretch := True;
      BmpFile1.Left := WizardForm.ProgressGauge.Left + ScaleX(0); 
// here you set Left position for 1st BMP
      BmpFile1.Top := WizardForm.ProgressGauge.Top + ScaleY(35);
// here you set Top posision for 1st BMP
      BmpFile1.Parent:= WizardForm.InstallingPage;
      BmpFile2:= TBitmapImage.Create(WizardForm);
      BmpFile2.Bitmap.LoadFromFile(ExpandConstant('{tmp}\02.bmp'));
      BmpFile2.Width:= ScaleX(417);
      BmpFile2.Height:= ScaleY(50);
      BmpFile2.Stretch := True;
      BmpFile2.Left := WizardForm.ProgressGauge.Left + ScaleX(0); 
      BmpFile2.Top := BmpFile1.Top + BmpFile1.Height + ScaleY(8);
      BmpFile2.Parent:= WizardForm.InstallingPage;
  end;
end;