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

[insombia]

insombia, может я дурак, но я пытаюсь запустить скрипт что дал Лександер



Или я что то не так делаю?)

[T3X]

T3X, Там написано - работает только на расширенной версии. Иначе пришлось-бы еще и длл-ку InnoCallBaк тащить за собой.

[Gnom_aka_Lexander]

Лександер, а где скачать эту Inno Setup 5.4.2.ее2 ???)))

=-=-=

Спасибо нашел

[T3X]

ЛександерInnoUltra будешь ещё какими то интересными скриптами наполнять?

[insombia]

Как сделать чтобы картинка была на всех страницах инсталятора(Пример здесь не подойдет там не на всех страницах)

[valyok666]

Цитата valyok666:



и ещё твоя библиотека IsPicture разрабатывается дальше или нет???

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

Сейчас только ей и занят. В данным момент приделываю текстурирование кноопок битмапами и прозрачный дирэдит, для второго режима использования.




Цитата Devils Night:



Script Maker 5.1.6.9

»

В шапке более новая версия программы, назявается Inno Script Generator, почитай внимательней. Прект мертв.

Inno Setup Script Includes Проект так-же давно заброшен, в свое время ковырялся я в нем - ничего очсобо полезного, сплошное неудобство.

InnoTools Downloader

- это да, в шапку добавить можно. Но и ссылку на родной сайт нужно указывать. Большинство проектов мрут именно изза того, что распростаранители проявляют полное неуважение к авторам проектов и "забывают" указать сайт проекта.

[insombia]

valyok666 где её взять?

[valyok666]

лови

[T3X]

Цитата valyok666:



посмотри скрипт макер другой там

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

Конечно, другой, там старая версия. 2006-го года.


Цитата valyok666:



кстати как там у picture взаимодействие в ботвой?там вроде похожие функции имеются

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

Ни одной похожей функции нет. (вроде) И принцип работы не просто отличается, общая реализация вставки изображений вообще по другому сделано. В качестве родителя изображений берется фоновое окно инно - MainForm, что позволяет использовать на страницах инсталлятора iSslideShow, а также вставить видеофайл в качестве фона - такая возможность предусмотрена в самой IsPicture.

[T3X]

Цитата insombia:



Как сделать чтобы при нажатии на компоненты открывалось окно новое как здесь

http://rghost.ru/22232271?

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

insombia



Можно так:

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

[Setup]

AppName=My Application

AppVersion=1.5

DefaultDirName={pf}\My Application

Код: Выделить всё

var

  NewButton1: TNewButton;

  Panel1: TPanel;



procedure NewButton1Click(Sender: TObject);

var

  i:integer;

begin

i:=Panel1.Left;

If i= -Panel1.Width then

  begin

  WizardForm.CancelButton.Enabled:=False;

  WizardForm.NextButton.Enabled:=False;

  WizardForm.BackButton.Enabled:=False;

  WizardForm.DirBrowseButton.Enabled:=False;

  while True do

    begin

      Panel1.Left:= ScaleX(i);

      WizardForm.SelectDirPage.Repaint;

      if i=0 then Break;

      i:=i+1;

    end;

  end else

  begin

  while True do

    begin

      Panel1.Left:= ScaleX(i);

      WizardForm.SelectDirPage.Repaint;

      if i=-Panel1.Width then Break;

      i:=i-1;

    end;

  WizardForm.CancelButton.Enabled:=True;

  WizardForm.NextButton.Enabled:=True;

  WizardForm.BackButton.Enabled:=True;

  WizardForm.DirBrowseButton.Enabled:=True;

  end;

end;



procedure InitializeWizard();

begin

  { Panel1 }

  Panel1 := TPanel.Create(WizardForm);

  with Panel1 do

  begin

    Parent := WizardForm.SelectDirPage;

    Top := ScaleY(0);

    Width := WizardForm.SelectDirPage.Width;

    Height := WizardForm.SelectDirPage.Height;

    Left :=  -Panel1.Width;

  end;



    WizardForm.ComponentsDiskSpaceLabel.Parent := Panel1;

    WizardForm.ComponentsList.Parent := Panel1;

    WizardForm.TypesCombo.Parent := Panel1;

    WizardForm.SelectComponentsLabel.Parent := Panel1;



  NewButton1 := TNewButton.Create(WizardForm);

  with NewButton1 do

  begin

    Parent := WizardForm;

    Left := ScaleX(32);

    Top := ScaleY(327);

    Width := ScaleX(75);

    Height := ScaleY(25);

    Caption := 'Компоненты';

    OnClick := @NewButton1Click;

  end;

end;



procedure CurPageChanged(CurPageID: Integer);

begin

NewButton1.Hide;

if CurPageID=wpSelectDir then NewButton1.Show;

end;