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

Iska · Отправлено: **20:24, 07-02-2014** | #**2161**

Цитата The_Immortal:

и в КОНСОЛЬ »

А без консоли? Лог-файл никак не устраивает? Ибо InnoSetup создаёт GUI-инсталляцию, и для консоли как минимум нужны лишние телодвижения.

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

Цитата diman_21Ru:

Как можно растянуть окно для текста компонентов на весь экран ? »

Как-то не особо понятно.

Регулируй по своему InnerNotebook, OuterNotebook и остальные по необходимости

InnerNotebook

OuterNotebook

Необработанный пример большого инсталлятора

Код:

[Code]
procedure InitializeWizard();
begin
  with WizardForm do
  begin
    AutoScroll := False;
    ClientHeight := ScaleY(550);
    ClientWidth := ScaleX(709);
  end;

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

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

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

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

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

  with WizardForm.WizardBitmapImage do
  begin
    Width := ScaleX(212);
    Height := ScaleY(506);
  end;

  with WizardForm.WelcomeLabel2 do
  begin
    Left := ScaleX(240);
    Width := ScaleX(445);
    Height := ScaleY(415);
  end;

  with WizardForm.WelcomeLabel1 do
  begin
    Left := ScaleX(240);
    Width := ScaleX(445);
  end;

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

  with WizardForm.InnerNotebook do
  begin
    Left := ScaleX(8);
    Top := ScaleY(64);
    Width := ScaleX(697);
    Height := ScaleY(437);
  end;

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

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

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

  with WizardForm.LicenseLabel1 do
  begin
    Width := ScaleX(697);
  end;

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

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

  with WizardForm.DirBrowseButton do
  begin
    Left := ScaleX(614);
  end;

  with WizardForm.DirEdit do
  begin
    Width := ScaleX(604);
  end;

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

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

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

  with WizardForm.SelectComponentsLabel do
  begin
    Width := ScaleX(681);
  end;

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

  with WizardForm.GroupBrowseButton do
  begin
    Left := ScaleX(614);
  end;

  with WizardForm.GroupEdit do
  begin
    Width := ScaleX(604);
  end;

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

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

  with WizardForm.PreparingLabel do
  begin
    Width := ScaleX(673);
    Height := ScaleY(113);
  end;

  with WizardForm.PreparingMemo do
  begin
    Top := ScaleY(168);
    Width := ScaleX(649);
    Height := ScaleY(249);
  end;

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

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

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

  with WizardForm.WizardSmallBitmapImage do
  begin
    Left := ScaleX(656);
    Top := ScaleY(0);
  end;

  with WizardForm.WizardBitmapImage2 do
  begin
    Width := ScaleX(212);
    Height := ScaleY(506);
  end;

  with WizardForm.RunList do
  begin
    Left := ScaleX(240);
  end;

  with WizardForm.NoRadio do
  begin
    Left := ScaleX(240);
  end;

  with WizardForm.YesRadio do
  begin
    Left := ScaleX(240);
  end;

  with WizardForm.FinishedLabel do
  begin
    Left := ScaleX(240);
    Width := ScaleX(445);
  end;

  with WizardForm.FinishedHeadingLabel do
  begin
    Left := ScaleX(240);
    Width := ScaleX(445);
  end;
end;

diman_21Ru · Отправлено: **21:04, 07-02-2014** | #**2163**

Nordek,нет не то , я имел введу что окно для компонентов маленькое хочу как на втором скрине чтоб вышло

vint56 · Отправлено: **00:28, 08-02-2014** | #**2164**

diman_21Ru

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

Цитата Ivan_009:

Как добавить в начале скрипта проверку на Расширенную версию Inno Setup Compiler... »

Код:

#ifndef IS_ENHANCED
  #error Enhanced edition of Inno Setup (restools) is required to compile this script
#endif

The_Immortal · Отправлено: **05:07, 08-02-2014** | #**2166**

Iska,

Цитата Iska:

А без консоли? Лог-файл никак не устраивает? »

Неа, нужен именно вывод в консоль...

Цитата Iska:

и для консоли как минимум нужны лишние телодвижения »

А в каком хотя бы направлении смотреть, не подскажите?

Iska · Отправлено: **05:38, 08-02-2014** | #**2167**

Цитата The_Immortal:

А в каком хотя бы направлении смотреть, не подскажите? »

Вот в этом: Console Reference.

diman_21Ru · Отправлено: **10:32, 08-02-2014** | #**2168**

vint56 ,вышло чтото как то не так судя по скрину )

Farser21 · Отправлено: **11:38, 08-02-2014** | #**2169**

Всем привет, наткнулся на такую проблему. Стоит процедура на показ картинок при наведении на компонент. Установил координаты, все показывает в нужном месте. Но стоит только мне переместить окно установщика немного выше, то картинка остается на прошлом месте и не перемещается за окном установщика. Ну собственно и сам вопрос. Как сделать, чтобы картинка перемещалась за установщиком и не фиксировалась на самом экране а фиксировалась прямо на указанных координатах в установщике.

Заранее всем спасибо за ответ!

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

Farser21, было.
http://forum.oszone.net/post-2296393-1949.html