[Razor12911]

[Code]

var

Image1, Image2, Image3, Image4: Longint;

procedure InitializeWizard();
begin

h:=WizardForm.Handle;
Image1:=ImgLoad(h,ExpandConstant('{tmp}\1.jpg'),0, 0,600,400,True,True);
Image2:=ImgLoad(h,ExpandConstant('{tmp}\2.jpg'),0, 0,600,400,True,True);
Image3:=ImgLoad(h,ExpandConstant('{tmp}\3.jpg'),0, 0,600,400,True,True);
Image4:=ImgLoad(h,ExpandConstant('{tmp}\4.jpg'),0, 0,600,400,True,True);
ImgLoad(h,ExpandConstant('{tmp}\glass.png'),20,130 ,560,220,True,True);
ImgSetVisibility(Image1,False);
ImgSetVisibility(Image2,False);
ImgSetVisibility(Image3,False);
ImgSetVisibility(Image4,False);
ImgApplyChanges(WizardForm.Handle);
end;

procedure Components(CurPageID: Integer);
begin
ImgSetVisibility(Image1,False);
ImgSetVisibility(Image2,False);
ImgSetVisibility(Image3,False);
ImgSetVisibility(Image4,False);
case CurPageID of
wpWelcome:
begin
ImgSetVisibility(Image1,True);
end;
wpReady:
begin
ImgSetVisibility(Image2,True);
end;
wpInstalling:
begin
ImgSetVisibility(Image3,True);
end;
wpFinish:
begin
ImgSetVisibility(Image4,True);
end;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
Components(CurPageID);
ImgApplyChanges(WizardForm.Handle);
end;