[Nordek]

но теперь я не могу изменить цвет шрифта и размер. »

Как вариант:

читать дальше »

Код:

#define Bitmap2 "SmallImage.bmp"

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.

[Files]
Source: {#Bitmap2}; Flags: dontcopy solidbreak

[Code]
var
  Panel1: TPanel;
  BitmapImage1: TBitmapImage;
  Label1: TLabel;
  Label2: TLabel;

procedure InitializeWizard();
begin
  WizardForm.MainPanel.Hide;

  Panel1 := TPanel.Create(WizardForm);
  with Panel1 do
  begin
    Parent := WizardForm.InnerPage;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(497);
    Height := ScaleY(59);
  end;

  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Parent := Panel1;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(497);
    Height := ScaleY(57);
    ExtractTemporaryFile('{#Bitmap2}');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\{#Bitmap2}'));
  end;

  Label1 := TLabel.Create(WizardForm);
  with Label1 do
  begin
    Font.Color := clRed;
    Font.Size := 12;
    Font.Style := [fsBold];
    Parent := Panel1;
    Transparent := True;
    Left := ScaleX(24);
    Top := ScaleY(10);
    Width := ScaleX(405);
    Height := ScaleY(14);
  end;

  Label2 := TLabel.Create(WizardForm);
  with Label2 do
  begin
    Font.Color := clBlue;
    Font.Size := 12;
    Parent := Panel1;
    Transparent := True;
    Left := ScaleX(40);
    Top := ScaleY(26);
    Width := ScaleX(389);
    Height := ScaleY(29);
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  Label1.Caption:=WizardForm.PageNameLabel.Caption
  Label2.Caption:=WizardForm.PageDescriptionLabel.Caption
end;