[Vamp1re]

Лександер, Всеравно не хочет

LinkOFF, Смотри ниже:

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

procedure InitializeWizard(); begin ExtractTemporaryFile('img1.bmp'); MainImage := TBitmapImage.Create(WizardForm); WizardForm.PageDescriptionLabel.Visible:= False; WizardForm.PageNameLabel.Visible:= False; with MainImage do begin Parent := WizardForm; Left := 0; Top := 0; Width := 500; Height := 313; Bitmap.LoadFromFile(ExpandConstant('{tmp}\img1.bmp')); end; ExtractTemporaryFile('img2.bmp'); FinishedImage := TBitmapImage.Create(WizardForm); with FinishedImage do begin Parent := WizardForm; Left := 50; Top := 10; Width := 500; Height := 313; Bitmap.LoadFromFile(ExpandConstant('{tmp}\img1.bmp')); end; //WelcomePage, создаем надписи на странице WelcomeLabel1:= TLabel.Create(WizardForm); with WelcomeLabel1 do begin Left:= ScaleX(176); Top:= ScaleY(66); Width:= ScaleX(301); Height:= ScaleY(71); AutoSize:= false; Transparent:= true; WordWrap:= true; Font.Size:= 14; Font.Color:=ClWhite Font.Style := [fsBold] Parent:= WizardForm; Font.Name:= 'Georgia' Caption:= WizardForm.WelcomeLabel1.Caption; end; WelcomeLabel2:=TLabel.Create(WizardForm); with WelcomeLabel2 do begin Top:= ScaleY(136); Left:= ScaleX(176); Width:= ScaleX(301); Height:= ScaleY(300); AutoSize:= false; WordWrap:= true; Font.Color:=ClWhite Font.Name:= 'Georgia' Font.Size:= 10; Transparent:= true; Parent:= WizardForm; Caption:= WizardForm.WelcomeLabel2.Caption; end;