Скрипты Inno Setup. Помощь и советы [часть 3]

[david141]

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

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

Народ, выручите пожалуйста. Как сделать чтобы верхняяя картинка была растянута на всю длинну инсталлятора, это как в
http://s004.radikal.ru/i205/1103/ff/5b74ba19e2a2.jpg
И ещё там внизу есть надпись 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]

У меня ошибка при установке:
(см.рис) http://s54.radikal.ru/i146/1103/18/72c4f25454e1.jpg
Если ктото с ней знаком помогите пожалуйста

[actavir]

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

http://s14.radikal.ru/i187/1103/b8/bec0a2964601.jpg

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

[Vamp1re]

actavir, procedure InitializeWizard(); begin WizardForm.PageDescriptionLabel.Visible:= False; WizardForm.PageNameLabel.Visible:= False; end;

[actavir]

Vamp1re, только в этом варианте текста то не остаётся, а нельзя сделать чтобы текст был но только текст без фона?
А то без текста фигово(((

[R3Pa4eK]

Как реализовать активную кнопку отмены (что-бы после нажатия запускался деинсталлятор) в скрипте ExecAndWait?

[Vamp1re]

actavir, Попробуй еще ето:


procedure InitializeWizard;
begin
WizardForm.TypesCombo.ItemIndex:=0;
WizardForm.BeveledLabel.Enabled:=True;]

[actavir]

Vamp1re, а этот код нужно было дополнить или предыдущий заменить на этот?

Народ может кто-нибудь ещё знает как реализовать верхнюю часть инсталлятора, текст над картинкой без фона можно как нибудь сделать?
http://s004.radikal.ru/i205/1103/ff/5b74ba19e2a2.jpg

[duxa]

Не подскажите как сделать окно инсталлятора поверх всех остальных?
Пробовал через BringToFrontAndRestore(), но мой вариант не сработал.

[Gnom_aka_Lexander]

Попытка помоч сразу многим :) Собрал все, что нашел, Примеры скриптов. (http://innoultra.ru/?page_id=18)
Продолжаю искать и пополнять. Если ктото найдет интересный или полезный пример, кидайте в личку.

[Vamp1re]

actavir, заменить

[dracosha]

Всем привет.
Можно ли заставить установщик скопировать текст (настройки) из одного ини в другой (и что б с возможностью замены уже имеющихся ключей).
ps Писать длинный код в секцию INI не устраивает. (слишком много вариантов настроек)
Помогите пожалуйста.