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

Mat_y · Отправлено: **09:26, 09-12-2013** | #**1661**

Ребят... а реально ли в установщике сделать галку .."Установить обои на рабочий стол" с соответствующим функционалом?

Shkutu · Отправлено: **12:13, 09-12-2013** | #**1662**

El Sanchez, спасибо.)
А на счет смены кодировки при сохранении текста в файл никто не подскажет?

Farser21 · Отправлено: **14:24, 09-12-2013** | #**1663**

Всем привет, вопрос такой.
В стандартном установщике, когда идет странице выбора компонентов, очень маленькое окно, подскажите как его сделать больше? Чтобы е нужно было постоянно прокручивать бегуной.

Mat_y · Отправлено: **16:13, 09-12-2013** | #**1664**

Цитата Farser21:

В стандартном установщике, когда идет странице выбора компонентов, очень маленькое окно, подскажите как его сделать больше? Чтобы е нужно было постоянно прокручивать бегуной »

Можете настроить это окно как душе угодно.

Код:

ComponentsList := TLabel.Create(WizardForm);
with ComponentsList do begin
    WizardForm.ComponentsList.Left:= ScaleX(30)///положение панели
    WizardForm.ComponentsList.Top:= ScaleY(100);
    WizardForm.ComponentsList.Width:= ScaleX(400)///размер панели
    WizardForm.ComponentsList.Height:= ScaleY(220)
    WizardForm.ComponentsList.Color:= $272727;///цвет фона в панели страници компонентов
    WizardForm.ComponentsList.Font.Color:= ClWhite;///цвет текста в панели страници компонентов
    WizardForm.ComponentsList.Font.Style:= [fsBold];
    WizardForm.ComponentsList.Font.Size:= 8;
    WizardForm.ComponentsList.Font.Name:= 'Arial'
    WizardForm.ComponentsList.Parent:= WizardForm.SelectComponentsPage;
    WizardForm.SelectComponentsPage;
  end;

Nordek · Конфигурация компьютера

Farser21

Farser21, Ну что ты копипастишь одно и тоже? Если не ответили, то это не значит что пропустили или не заметили твоё сообщение. Просто гуру-кодеры пока в спячке.

Farser21,
Открой "Inno Setup Compiler".
Перейди во вкладку "WizardForm Desinger (Дизайнер диалогов)":

и меняй как тебе вздумается.
Только начинай с чистого скрипта, чтоб не запоганить ранее созданный.
С левого бока, выбираешь желаемый диалог который хочешь отредактировать.
Кликаешь на объект. Затем можешь расширить этот объект ухватив за край и/или передвинуть объект.
Если нужно передвинуть например сразу три кнопки. То зажимаешь SHIFT, выбираешь эти три кнопки затем отпускаешь SHIFT и перемещаешь.
Так же вверху есть панель, с помощью которой можешь добавить кнопку, прогрессбар и пр.
Например некоторые объекты не меняются. Как скажем "InnerNotebook" и "OuterNotebook", их нужно выбирать вручную (с правого бока):

как выбрал один из них. Переходишь к диалогу, ухватываешь за край и расширяешь.

Цитата Farser21:

очень маленькое окно, подскажите как его сделать больше? »

Скорее всего тебя интересует "InnerNotebook".
Только будь готов к тому что, придётся увеличивать размер окна и изменять все формы.

Farser21 · Отправлено: **18:41, 09-12-2013** | #**1666**

Mat_y, Nordek спасибо. Только куда вставлять этот код?

Tco 03 · Отправлено: **18:54, 09-12-2013** | #**1667**

Цитата Farser21:

Только куда вставлять этот код? »

В любое место процедуры InitializeWizard
Достаточно просто:

procedure InitializeWizard();
begin
WizardForm.ComponentsList.SetBounds(ScaleX(30), ScaleY(100), ScaleX(400), ScaleY(220));
end;

Nordek · Конфигурация компьютера

Farser21, Вот пример инсталла набросал:

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.

[Tasks]
Name: a; Description: a
Name: b; Description: b
Name: c; Description: c
Name: d; Description: d
Name: e; Description: e

[Components]
Name: a; Description: a
Name: b; Description: b
Name: c; Description: c
Name: d; Description: d
Name: e; Description: e

[Code]
procedure InitializeWizard();
begin
  with WizardForm do
  begin
    ClientHeight := ScaleY(434);
    ClientWidth := ScaleX(609);
  end;

  with WizardForm.Bevel do
  begin
    Top := ScaleY(393);
    Width := ScaleX(610);
  end;

  with WizardForm.CancelButton do
  begin
    Left := ScaleX(516);
    Top := ScaleY(399);
  end;

  with WizardForm.NextButton do
  begin
    Left := ScaleX(431);
    Top := ScaleY(399);
  end;

  with WizardForm.BackButton do
  begin
    Left := ScaleX(355);
    Top := ScaleY(399);
  end;

  with WizardForm.OuterNotebook do
  begin
    Width := ScaleX(609);
    Height := ScaleY(393);
  end;

  with WizardForm.WizardBitmapImage do
  begin
    Height := ScaleY(393);
  end;

  with WizardForm.WelcomeLabel2 do
  begin
    Width := ScaleX(429);
  end;

  with WizardForm.WelcomeLabel1 do
  begin
    Width := ScaleX(429);
  end;

  with WizardForm.Bevel1 do
  begin
    Width := ScaleX(610);
  end;

  with WizardForm.InnerNotebook do
  begin
    Width := ScaleX(529);
    Height := ScaleY(317);
  end;

  with WizardForm.LicenseNotAcceptedRadio do
  begin
    Top := ScaleY(280);
  end;

  with WizardForm.LicenseAcceptedRadio do
  begin
    Top := ScaleY(260);
  end;

  with WizardForm.LicenseMemo do
  begin
    Width := ScaleX(529);
    Height := ScaleY(220);
  end;

  with WizardForm.InfoBeforeMemo do
  begin
    Width := ScaleX(529);
    Height := ScaleY(277);
  end;

  with WizardForm.DiskSpaceLabel do
  begin
    Top := ScaleY(304);
  end;

  with WizardForm.ComponentsDiskSpaceLabel do
  begin
    Top := ScaleY(304);
  end;

  with WizardForm.ComponentsList do
  begin
    Width := ScaleX(528);
    Height := ScaleY(208);
  end;

  with WizardForm.TypesCombo do
  begin
    Width := ScaleX(528);
  end;

  with WizardForm.NoIconsCheck do
  begin
    Top := ScaleY(303);
  end;

  with WizardForm.TasksList do
  begin
    Width := ScaleX(528);
    Height := ScaleY(260);
  end;

  with WizardForm.ReadyMemo do
  begin
    Width := ScaleX(529);
    Height := ScaleY(277);
  end;

  with WizardForm.PreparingMemo do
  begin
    Width := ScaleX(481);
    Height := ScaleY(193);
  end;

  with WizardForm.FilenameLabel do
  begin
    Width := ScaleX(528);
  end;

  with WizardForm.ProgressGauge do
  begin
    Width := ScaleX(528);
  end;

  with WizardForm.InfoAfterMemo do
  begin
    Width := ScaleX(528);
    Height := ScaleY(277);
  end;

  with WizardForm.MainPanel do
  begin
    Width := ScaleX(609);
  end;

  with WizardForm.WizardSmallBitmapImage do
  begin
    Left := ScaleX(552);
  end;

  with WizardForm.WizardBitmapImage2 do
  begin
    Height := ScaleY(393);
  end;

  with WizardForm.RunList do
  begin
    Width := ScaleX(413);
    Height := ScaleY(227);
  end;

  with WizardForm.FinishedLabel do
  begin
    Width := ScaleX(421);
  end;

  with WizardForm.FinishedHeadingLabel do
  begin
    Width := ScaleX(421);
  end;
end;

nik1967 · Конфигурация компьютера

Цитата El Sanchez:

Ну раз обещал, последняя моя версия: »

Спасибо большое за скрипт закачки! Пара вопросов - можно ли как то изменить МБ на MB при переключении на другую локаль? Всё остальное решаемо с помощью [CustomMessages].
И да, ещё - если кликнуть и удерживать л.к.м. на верхней части инсталлятора (так сказать, поставить на паузу) - инсталлятор зависает

.
А, нет - ещё и сек на sec в строке прошло (Elapsed).

habib2302 · Конфигурация компьютера

доброе время суток.как добавить 2-ой путь в скрипт для удаления настроек/сохранений

Код:

 procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
 begin
 case CurUninstallStep of
 usPostUninstall:
 if DirExists(AddBackslash(ExpandConstant('{userdocs}')) + 'Мои игры\The Saboteur™\Сохранения') then
 begin
 if MsgBoxEx(0, 'Удалить сохранения игры находящиеся по адресу:' + #13#13 + AddQuotes(AddBackslash(ExpandConstant('{userdocs}')) + 'Мои игры\The Saboteur™\Сохранения'), 'Удаление сохранений', $00000004 or $00000020, 0, 0) = IDYES then
 DelTree(AddBackslash(ExpandConstant('{userdocs}')) + 'Мои игры\The Saboteur™\Сохранения', True, True, True);
 end;
 end;
 end;