[serg aka lain]

localhost,

Кто умеет, соедините мой скрипт и нижеприведенный. »

ну, это совсем просто

Код:

var
  PageNameLabel, PageDescriptionLabel: TLabel;

procedure InitializeWizard();
begin
  WizardForm.PageNameLabel.Hide;
  WizardForm.PageDescriptionLabel.Hide;

  WizardForm.WizardSmallBitmapImage.SetBounds(0, 0, WizardForm.MainPanel.Width, WizardForm.MainPanel.Height);

  PageNameLabel := TLabel.Create(WizardForm);
  PageNameLabel.SetBounds(ScaleX(10), ScaleY(10), ScaleX(300), ScaleY(14));
  PageNameLabel.AutoSize := False;
  PageNameLabel.WordWrap := True;
  PageNameLabel.Font.Color := clWhite;
  PageNameLabel.Font.Style := [fsBold];
  PageNameLabel.ShowAccelChar := False;
  PageNameLabel.Transparent := True;
  PageNameLabel.Parent := WizardForm.MainPanel;

  PageDescriptionLabel := TLabel.Create(WizardForm);
  PageDescriptionLabel.SetBounds(ScaleX(15), ScaleY(25), ScaleX(475), ScaleY(30));
  PageDescriptionLabel.AutoSize := False;
  PageDescriptionLabel.WordWrap := True;
  PageDescriptionLabel.Font.Color := clWhite;
  PageDescriptionLabel.ShowAccelChar := False;
  PageDescriptionLabel.Transparent := True;
  PageDescriptionLabel.Parent := WizardForm.MainPanel;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  WizardForm.BorderStyle := bsSingle;
  WizardForm.CancelButton.Top := ScaleY(327);
  WizardForm.NextButton.Top := ScaleY(327);
  WizardForm.BackButton.Top := ScaleY(327);
  WizardForm.ClientHeight := ScaleY(360);
  PageNameLabel.Caption := WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel.Caption := WizardForm.PageDescriptionLabel.Caption;

  if CurPageID = wpSelectDir then
  begin
    WizardForm.BorderStyle := bsNone;
    WizardForm.ClientHeight := ScaleY(160);
    WizardForm.CancelButton.Top := WizardForm.CancelButton.Top - ScaleY(200);
    WizardForm.CancelButton.BringToFront;
    WizardForm.NextButton.Top := WizardForm.CancelButton.Top;
    WizardForm.NextButton.BringToFront;
    WizardForm.BackButton.Top := WizardForm.CancelButton.Top;
    WizardForm.BackButton.BringToFront;
    WizardForm.SelectDirBitmapImage.Hide;
    WizardForm.SelectDirLabel.Hide;
    WizardForm.SelectDirBrowseLabel.Hide;
    WizardForm.DirEdit.Top := ScaleY(1);
    WizardForm.DirBrowseButton.Top := 0;
  end;
end;