wpInstalling 页面上显示多个图像(幻灯片)

时间:2021-03-22 14:03:49

标签: progress-bar inno-setup

我有一个 Inno 脚本,可以在 wpInstalling 页面内添加图像,现在我正在尝试放置几张图像来制作幻灯片,但我无法编写所需的文本

这是我拥有的文本,我想制作幻灯片。这可能吗?我知道我必须添加 InnoCallback.dll,但我想获取该方法。

[Files]
Source: "C:\Program Files (x86)\Codejock Software\ISSkin\VCL\Par1.bmp"; DestDir: {tmp}; Flags: dontcopy
Source: "C:\Program Files (x86)\Codejock Software\ISSkin\VCL\Par2.bmp"; DestDir: {tmp}; Flags: dontcopy
Source: "C:\Program Files (x86)\Codejock Software\ISSkin\VCL\Par3.bmp"; DestDir: {tmp}; Flags: dontcopy


[Code]
function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('Par1.bmp');
ExtractTemporaryFile('Par2.bmp');
ExtractTemporaryFile('Par3.bmp');
Result := True;
end;

procedure CurPageChanged(CurPageID: Integer);
var
BmpFile1, BmpFile2, BmpFile3: TBitmapImage;
begin
if CurPageID = wpInstalling then begin 
  BmpFile1:= TBitmapImage.Create(WizardForm);
  BmpFile1.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Par1.bmp'));
  BmpFile1.Width:= ScaleX(678);
  BmpFile1.Height:= ScaleY(250);
  BmpFile1.Stretch := True;
  BmpFile1.Left := WizardForm.ProgressGauge.Left + ScaleX(0); 
  BmpFile1.Top := WizardForm.ProgressGauge.Top + ScaleY(25);
  BmpFile1.Parent:= WizardForm.InstallingPage;

  BmpFile2:= TBitmapImage.Create(WizardForm);
  BmpFile2.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Par2.bmp'));
  BmpFile2.Width:= ScaleX(678);
  BmpFile2.Height:= ScaleY(250);
  BmpFile2.Stretch := True;
  BmpFile2.Left := WizardForm.ProgressGauge.Left + ScaleX(0); 
  BmpFile2.Top := WizardForm.ProgressGauge.Top + ScaleY(25);
  BmpFile2.Parent:= WizardForm.InstallingPage;

  BmpFile3:= TBitmapImage.Create(WizardForm);
  BmpFile3.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Par3.bmp'));
  BmpFile3.Width:= ScaleX(678);
  BmpFile3.Height:= ScaleY(250);
  BmpFile3.Stretch := True;
  BmpFile3.Left := WizardForm.ProgressGauge.Left + ScaleX(0); 
  BmpFile3.Top := WizardForm.ProgressGauge.Top + ScaleY(25);
  BmpFile3.Parent:= WizardForm.InstallingPage;
  end;
end;

0 个答案:

没有答案
相关问题