Inno设置:如何在幻灯片放映之间设置定时器?

时间:2014-05-17 05:05:13

标签: inno-setup pascalscript

我被创建了幻灯片放映代码的一个设置完全按照您的指示运行。但是图像在短时间内翻转。因此,在图像之间我想设置计时器,以便我能够清楚地看到这些图像。那可能吗 ?如果可能的话怎么做请帮我做     [代码]

function InitializeSetup: Boolean;
begin
ExtractTemporaryFile('01.bmp'); 
ExtractTemporaryFile('02.bmp'); 
Result := True;
end;

procedure CurPageChanged(CurPageID: Integer);
var
BmpFile1, BmpFile2: TBitmapImage;
begin
if CurPageID = wpInstalling then begin 
msgbox ('1. where are you' , mbinformation,mb_ok);
  BmpFile1:= TBitmapImage.Create(WizardForm);
  BmpFile1.Bitmap.LoadFromFile(ExpandConstant('{tmp}\01.bmp'));
  BmpFile1.Width:= ScaleX(976);
// here you set Width (417px is Width of ProgressBar) for 1st BMP
  BmpFile1.Height:= ScaleY(80);
// 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(976);
  BmpFile2.Height:= ScaleY(80);
  BmpFile2.Stretch := True;
  BmpFile2.Left := WizardForm.ProgressGauge.Left + ScaleX(0); 
  BmpFile2.Top := BmpFile1.Top + BmpFile1.Height + ScaleY(8);
  BmpFile2.Parent:= WizardForm.InstallingPage;
  end;
  end;

0 个答案:

没有答案