[necromanster]

Здравствуйте господа.

Подскажите пожалуйста, как в этом скрипте, сделать так, чтобы рисунок на первой странице был на весь инсталятор, а в конце установки (на последней странице инсталятора) можно было поставить обычный ресунок (который с боку). И еще. Подскажите пожалуйста, где здесь менять цвет текста в инсталяторе.

Заранее спасибо.

Код:

[\code\]
var
  MyPanel: TPanel;

procedure InitializeWizard();
begin
  MyPanel := TPanel.Create(WizardForm);
  with MyPanel do
  begin
    Align := alClient;
    Parent := WizardForm;
  end;

  with WizardForm.WizardBitmapImage do
  begin
    Align := alClient;
    Parent := MyPanel;
  end;

  with TLabel.Create(WizardForm) do 
  begin 
    AutoSize := WizardForm.WelcomeLabel1.AutoSize; 
    WordWrap := WizardForm.WelcomeLabel1.WordWrap; 
    Left := WizardForm.WelcomeLabel1.Left; 
    Top := WizardForm.WelcomeLabel1.Top; 
    Width := WizardForm.WelcomeLabel1.Width; 
    Height := WizardForm.WelcomeLabel1.Height; 
    Caption := WizardForm.WelcomeLabel1.Caption; 
    Font.Size := WizardForm.WelcomeLabel1.Font.Size; 
    Font.Style := WizardForm.WelcomeLabel1.Font.Style; 
    Font.Color := clWhite; 
    TransParent := True; 
    Parent := MyPanel;
  end; 
 
  with TLabel.Create(WizardForm) do 
  begin 
    AutoSize := WizardForm.WelcomeLabel2.AutoSize; 
    WordWrap := WizardForm.WelcomeLabel2.WordWrap; 
    Left := WizardForm.WelcomeLabel2.Left; 
    Top := WizardForm.WelcomeLabel2.Top; 
    Width := WizardForm.WelcomeLabel2.Width; 
    Height := WizardForm.WelcomeLabel2.Height; 
    Caption := WizardForm.WelcomeLabel2.Caption; 
    Font.Size := WizardForm.WelcomeLabel2.Font.Size; 
    Font.Style := WizardForm.WelcomeLabel2.Font.Style; 
    Font.Color := clWhite; 
    TransParent := True; 
    Parent := MyPanel;
  end;

  WizardForm.NextButton.BringToFront;
  WizardForm.CancelButton.BringToFront;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  MyPanel.Hide;
  if CurPageID = wpWelcome then
    MyPanel.Show;
end;