[nik1967]

nik1967, ты не знаешь как мне исправить вот это »

Знаю

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

Код:

var
  PageNameLabel,PageDescriptionLabel: TLabel;

//***************************************** [ начало 497 58 изображения  ] *********************************************//

PageNameLabel:= TLabel.Create(WizardForm);
  with PageNameLabel do begin
    Left:= WizardForm.PageNameLabel.Left;
    Top:= WizardForm.PageNameLabel.Top;
    Width:= WizardForm.PageNameLabel.Width;
    Height:= WizardForm.PageNameLabel.Height;
    AutoSize:= False;
    WordWrap:= True;
    Font.Name:= WizardForm.PageNameLabel.Font.Name;
    Font.Style:= [fsBold];
    Transparent:= True;
    Parent:= WizardForm.MainPanel;
  end;

PageDescriptionLabel:= TLabel.Create(WizardForm);
  with PageDescriptionLabel do begin
    Left:= WizardForm.PageDescriptionLabel.Left-12;
    Top:= WizardForm.PageDescriptionLabel.Top;
    Height:= WizardForm.PageDescriptionLabel.Height;
    Width:= ScaleX(260);
    AutoSize:= False;
    WordWrap:= True;
    Font.Name:= WizardForm.PageDescriptionLabel.Font.Name;
    Transparent:= True;
    Parent:= WizardForm.MainPanel;
  end;

  with WizardForm do begin
    PageNameLabel.Hide;
    PageDescriptionLabel.Hide;
    with MainPanel do begin
      with WizardSmallBitmapImage do begin
        Left:= ScaleX(0);
        Top:= ScaleY(0);
        Width:= Mainpanel.Width;
        Height:= MainPanel.Height;
       end;
    end;
 end;

//****************************************** [конец 497 58 изображения  ] **********************************************//

Procedure CurPageChanged(CurPageID: Integer);
Begin
  PageNameLabel.Caption:= WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel.Caption:= WizardForm.PageDescriptionLabel.Caption;
end;