[by_gangster]

R.i.m.s.k.y., ты знаешь как этот код можно вписать в мой???

Код:

[_code] 
 var 
 PageNameLabel, PageDescriptionLabel: TLabel; 
  
 procedure InitializeWizard(); 
 begin 
 WizardForm.WizardSmallBitmapImage.SetBounds(ScaleX(0), ScaleY(0), WizardForm.MainPanel.Width, WizardForm.MainPanel.Height); 
  
 PageNameLabel:= TLabel.Create(WizardForm) 
 with WizardForm.PageNameLabel do 
 PageNameLabel.SetBounds(Left, Top, Width, Height); 
 PageNameLabel.Transparent:= True; 
 PageNameLabel.Font:= WizardForm.PageNameLabel.Font; 
 PageNameLabel.Font.Color:= clWhite;  //цвет надписи 
 PageNameLabel.Parent:= WizardForm.MainPanel; 
  
 PageDescriptionLabel:= TLabel.Create(WizardForm) 
 with WizardForm.PageDescriptionLabel do 
 PageDescriptionLabel.SetBounds(Left, Top, Width, Height); 
 PageDescriptionLabel.Transparent:= True; 
 PageDescriptionLabel.Font:= WizardForm.PageDescriptionLabel.Font; 
 PageDescriptionLabel.Font.Color:= clWhite;  //цвет надписи 
 PageDescriptionLabel.Parent:= WizardForm.MainPanel; 
  
 WizardForm.PageNameLabel.Hide; 
 WizardForm.PageDescriptionLabel.Hide; 
 end; 
  
 procedure CurPageChanged(CurPageID: Integer); 
 begin 
 PageNameLabel.Caption:= WizardForm.PageNameLabel.Caption; 
 PageDescriptionLabel.Caption:= WizardForm.PageDescriptionLabel.Caption; 
 end;