[R.i.m.s.k.y.]

Нужно чтобы пользователь выбрал нужный ему браузер из списка, а все остальные стали не доступны. Иначе понаставит галок на все версии браузера и будет каша. »

Ну а я про что
[Components]
Name: Moz; Description: Мозиллы всякие:;
Name: Moz\ver4; Description: Мозилла 4; Flags: exclusive
Name: Moz\ver3.6; Description: Мозилла 3.6; Flags: exclusive

[david141]

Спасибо всё работает.

[R.i.m.s.k.y.]

Спасибо всё работает. »

давим полезное сообщение

[actavir]

Народ, выручите пожалуйста. Как сделать чтобы верхняяя картинка была растянута на всю длинну инсталлятора, это как в

И ещё там внизу есть надпись R.G. Catalyst, как мне сделать такуюже и чтобы она в том месте была на всех страницах инсталлятора?

[Vamp1re]

actavir,
Растягывание малой картинки:

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

procedure InitializeWizard();

begin
with WizardForm.WizardSmallBitmapImage do
begin
Left := ScaleX(368);//Начальная точка
Width := ScaleX(127);//длинна картинки
end;
end;

Лого в инсталляторе:

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

[Files]
Source: "Logo.bmp"; DestDir: "{tmp}"; Flags: dontcopy

[code]
procedure RepaintInstall();
begin
ExtractTemporaryFile('Logo.bmp');

LogoImage := TBitmapImage.Create(WizardForm);
with LogoImage do
begin
SetBounds(ScaleX(10), ScaleY(320), ScaleX(175), ScaleY(40));
Bitmap.LoadFromFile(ExpandConstant('{tmp}\Logo.bmp'));
Parent := WizardForm;
end;

procedure InitializeUninstallProgressForm1;
begin
FileCopy(ExpandConstant('{app}\WizardSmallImage.bmp'), ExpandConstant('{tmp}\WizardSmallImage.bmp'), False);
FileCopy(ExpandConstant('{app}\Logo.bmp'), ExpandConstant('{tmp}\Logo.bmp'), False);

UninstallProgressForm.Color:=Color;
UninstallProgressForm.InnerPage.Color:=Color;
UninstallProgressForm.MainPanel.Color:=Color;
UninstallProgressForm.PageNameLabel.Color:=Color;
UninstallProgressForm.PageDescriptionLabel.Hide;
UninstallProgressForm.PageNameLabel.Font.Color:=clWhite;
UninstallProgressForm.PageNameLabel.Width:=ScaleX(300);
UninstallProgressForm.StatusLabel.Color:=Color;
UninstallProgressForm.StatusLabel.Font.Color:=clWhite;

LogoImage := TBitmapImage.Create(UninstallProgressForm);
with LogoImage do
begin
SetBounds(ScaleX(10), ScaleY(320), ScaleX(175), ScaleY(40));
Bitmap.LoadFromFile(ExpandConstant('{tmp}\Logo.bmp'));
Parent := UninstallProgressForm;
end;

Или етот:

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

Растягывание почти всех страниц инсталятора:

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

[Setup]
WizardImageFile=WizardImage.bmp
WizardSmallImageFile=WizardSmallImage.bmp


[code]
procedure InitializeWizard();
begin
with WizardForm do begin
with WizardBitmapImage do begin
Top:= ScaleY(0);
Left:= ScaleX(0);
Width:= ScaleX(497);
Height:= ScaleY(313);
Stretch:= true;
end;
with WizardBitmapImage2 do begin
Top:= ScaleY(0);
Left:= ScaleX(0);
Width:= ScaleX(497);
Height:= ScaleY(313);
Stretch:= true;
end;
with MainPanel do begin
with WizardSmallBitmapImage do begin
Top:= ScaleY(0);
Left:= ScaleX(0);
Width:= Mainpanel.Width;
Height:= MainPanel.Height;
end;
end;
end;
end;

[actavir]

Vamp1re, я немного глупость спрошу а "Лого в инсталляторе" это подпись R.G. Catalyst в данном случае? :-)

[Vamp1re]

actavir, да!

[actavir]

Vamp1re, пасибки)))

[Vamp1re]

У меня ошибка при установке:
(см.рис)
Если ктото с ней знаком помогите пожалуйста

[actavir]

Vamp1re, а вот я применил растягивание маленькой картинки, и у меня получилось что она закрыта белым фоном текста в шапке. Вот что:



Как это исправить?