ПРИМЕР 1.

[Files]

Source: "Logo.bmp"; DestDir: "{tmp}"; Flags: dontcopy

[code]

procedure RepaintInstall();

begin

ExtractTemporaryFile('Logo.bmp');

LogoImage := TBitmapImage.Create(WizardForm);

with LogoImage do

begin

SetBounds(ScaleX(10), ScaleY(320), ScaleX(175), ScaleY(40));

Bitmap.LoadFromFile(ExpandConstant('{tmp}\Logo.bmp'));

Parent := WizardForm;

end;

procedure InitializeUninstallProgressForm1;

begin

FileCopy(ExpandConstant('{app}\WizardSmallImage.bmp'), ExpandConstant('{tmp}\WizardSmallImage.bmp'), False);

FileCopy(ExpandConstant('{app}\Logo.bmp'), ExpandConstant('{tmp}\Logo.bmp'), False);

UninstallProgressForm.Color:=Color;

UninstallProgressForm.InnerPage.Color:=Color;

UninstallProgressForm.MainPanel.Color:=Color;

UninstallProgressForm.PageNameLabel.Color:=Color;

UninstallProgressForm.PageDescriptionLabel.Hide;

UninstallProgressForm.PageNameLabel.Font.Color:=clWhite;

UninstallProgressForm.PageNameLabel.Width:=ScaleX(300);

UninstallProgressForm.StatusLabel.Color:=Color;

UninstallProgressForm.StatusLabel.Font.Color:=clWhite;

LogoImage := TBitmapImage.Create(UninstallProgressForm);

with LogoImage do

begin

SetBounds(ScaleX(10), ScaleY(320), ScaleX(175), ScaleY(40));

Bitmap.LoadFromFile(ExpandConstant('{tmp}\Logo.bmp'));

Parent := UninstallProgressForm;

end;

[Files]

Source: "LOGO.bmp"; Flags: dontcopy solidbreak

[code]

var

BitmapImage1: TBitmapImage;

procedure InitializeWizard();

begin

{ BitmapImage1 }

BitmapImage1 := TBitmapImage.Create(WizardForm);

with BitmapImage1 do

begin

Name := 'BitmapImage1';

Parent := WizardForm;

Left := ScaleX(0);

Top := ScaleY(313);

Width := ScaleX(241);

Height := ScaleY(48);

ExtractTemporaryFile('LOGO.bmp');

Bitmap.LoadFromFile(ExpandConstant('{tmp}\LOGO.bmp'));

end;

end;