Inno Setup (создание инсталяционных пакетов). Часть 3

[MAKS_MAFIA]

Всем привет.
А можно сделать так, чтобы при наведении на компонент списка появлялась картинка. Заранее спасибо.

 

[Shegorat]

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

Почти то, что нужно, но принцип думаю понятен
http://krinkels.org//downloads.php?do=file&id=106
http://krinkels.org//downloads.php?do=file&id=107

 

[urban]

есть у кого-то есть пример для текстурирования прогресс бара через ботву? мне год назад давали пример как раз для исдона

 

[sergey3695]

urban, progressbar_example.iss - в примерах с b2p.dll
Если ты собрался пользоваться ботвой,то сначало пойми что к чему,а потом пользуйся. Так,с бухты барахты,толку мало. Там на самом деле не сложно. Просто если что непонятно будет,то загляни в botva2.iss (там подробное описание всех используемых функций).
-----
За год можно было бы и разобраться,если это тебе действительно надо и интересно

 

[Tolyak26]

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

Вот файлы скрипта. http://rghost.ru/private/47773628/e78083bade84dce7689da72e2daf3e6b

В нём не показывает надпись "Установка Доп ПО..." при процессе установки, например DirectX, Visual C++ после завершения копирования файлов игры. Сам не в силах поправить.

 

[urban]

Tolyak26, в секции [run] StatusMSG: "Installing Product 2...";

 

[Tolyak26]

urban, В первую очередь это и сделал Но нужного эффекта это не дает.

 

[urban]

Tolyak26, выложи весь скрипт

 

[Tolyak26]

Скрипт прям весь выкладывать не хочется.

http://rghost.ru/47774701

 

[urban]

Tolyak26, а как я по твоему проверю работает ли оно без файлов?

 

[Tolyak26]

http://rghost.ru/47775172 все таки выложу, все равно скрипт не мой.

 

[urban]

http://i50.fastpic.ru/big/2013/0730/62/a4775e2e7ff2664d17f618da4b4eca62.jpg
как в выделенную область перенести приценты?или хотя бы рядом,если что я прогресс бар перемещу

 

[vint56]

urban
LabelPct1 := TLabel.Create(WizardForm);
with LabelPct1 do begin
Parent := ISDoneProgressBar1;
AutoSize := False;
Left := ScaleX(200);
Top := 3;
Width := ScaleX(80);
end;

 

[Mailchik]

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

Вот файлы скрипта. http://rghost.ru/private/47773628/e78083bade84dce7689da72e2daf3e6b

В нём не показывает надпись "Установка Доп ПО..." при процессе установки, например DirectX, Visual C++ после завершения копирования файлов игры. Сам не в силах поправить.

http://rghost.ru/private/47797742/c53e79f5590659198c2bc2fe01172d02

 

[EvilAlex]

доброго времени суток !

Ищу отдельный код на изменение деинстоллятора или уже готовый маленький деинстоллятор...

Заранее спасибо !

 

[Mailchik]

EvilAlex, код...

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[B][[/B]Code]
procedure InitializeUninstallProgressForm;
begin
  with UninstallProgressForm do begin
    Width := ScaleX(757);
    Height := ScaleY(500);
    Position := poScreenCenter;
    CancelButton.SetBounds(ScaleX(650), ScaleY(420), ScaleX(75), ScaleY(25));
    
    with ProgressBar do begin
      Parent := UninstallProgressForm;
      SetBounds(ScaleX(10), ScaleY(370), ScaleX(727), ScaleY(25));
    end;

    OuterNotebook.Hide;
    MainPanel.Hide;
    Bevel1.Hide;
    StatusLabel.Hide;
    BeveledLabel.Hide;
  end;
end;

 

[EvilAlex]

Mailchik, кнопка отмены не работает. можно ее както включить ? Перепробывал все. загораеться но при нажатии нет реакции...

 

[Mailchik]

EvilAlex, по стандарту в инно в деинсталляторе кнопка отмены отключена. вкелючить: CancelButton.Enabled := True;
Совсем не понятно, зачем вам эта кнопка, на нее нажать то не успеваешь. Но вот пример: код..

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files]
Source: {fonts}\*; DestDir: {app}; Flags: external recursesubdirs

[B][[/B]Code]
procedure TestClick(Sender: TObject);
begin
 MsgBox('test', mbInformation, MB_OK);
end;

procedure InitializeUninstallProgressForm;
begin
  with UninstallProgressForm do begin
    Width := ScaleX(757);
    Height := ScaleY(500);
    Position := poScreenCenter;
    CancelButton.SetBounds(ScaleX(650), ScaleY(420), ScaleX(75), ScaleY(25));
    CancelButton.Enabled := True;
    CancelButton.OnClick := @TestClick;

    with ProgressBar do begin
      Parent := UninstallProgressForm;
      SetBounds(ScaleX(10), ScaleY(370), ScaleX(727), ScaleY(25));
    end;

    OuterNotebook.Hide;
    MainPanel.Hide;
    Bevel1.Hide;
    StatusLabel.Hide;
    BeveledLabel.Hide;
  end;
end;

 

[EvilAlex]

Mailchik, да малоли запущу удоление, у меня бывает)))

 

[Carlos]

Mailchik, А можно ли в этот пример картинку вставить?