[Vamp1re]

Лександер, У меня не хочет компилировать пишет Error: Indentifer name (Name := 'BitmapImage1'

[STRAYKER]

Как создаь такой инсталятор ???

[Gnom_aka_Lexander]

Vamp1re, А ты положил файл LOGO.bmp рядом со скриптом?
STRAYKER, Зачем? Возьми готовый

[Vamp1re]

Лександер, да

[Gnom_aka_Lexander]

Vamp1re,
Тогда проще (тот код редизайнер выдал

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

Код:

[Files]
Source: "LOGO.bmp"; Flags: dontcopy solidbreak

var
  BitmapImage1: TBitmapImage;

procedure InitializeWizard();
begin
  { BitmapImage1 }
  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Name := 'BitmapImage1';
    Parent := WizardForm;
    Left := ScaleX(0);
    Top := ScaleY(313);
    Width := ScaleX(241);
    Height := ScaleY(48);
    ExtractTemporaryFile('LOGO.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\LOGO.bmp'));
  end;
end;

Если не получится - значит руки кривые - работают оба кода на 100%.

[Vamp1re]

STRAYKER, качаешь скрипт Hitman Blood Money и если хочешь меняешь его размер
можешь скачать одсюда: http://rghost.ru/3632626

[LinkOFF]

Кто-нибудь знает как мне сделать картинку на весь инсталлятор и только на первую страницу

[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;

[STRAYKER]

Vamp1re,
Лександер,
Спасиба всем, но у меня ещо вопрос.
Как сделать что бы писало
Создать ярлык 1
Создать ярлык 2

[LinkOFF]

Он мне пишет Unknown identifier 'MainImage'

Vamp1re можеш мне пример скрипта прописать.Пожалуйста

И цвет самого инсталятора можешь сказать как поменять на черный