Создание инсталляторов для модпаков на базе Inno Setup

[Kotyarko_O 1,906]

который наведен на компонент 

Смотри 373 строку.

Ekspoint.rar

[Ekspoint 2,122]

Смотри 373 строку.

Ekspoint.rar

спасибо

[liked 19]

@Ekspoint, так, ок, увидел 2 положения для всего: курсор не наведён на компонент, курсор наведён на компонент. В каком случае менять цвет текста?

 

Какие скрипты?

я же писал выше 

 

Давай харе отлынивать помоги осилить скрипт, нужно запилить страницу компонентов и бекапа, тут не могу не как понять как заставить их отображаться

 

Скрипт -  BigMusic_v2.rar

 

вот хочу так в этом скрипте - 122877a4.jpg

[Andrew_Dark 8]

а мне наоборот, который отображается,когда мышь не наведена на компонент.

И ещё, как заменить кнопки далее, назад, установить и тд на свою картинку кнопки???

[MEDNIKs 2]

Парни можно ли скрыть форму OuterNotebook ,если да то как это сделать?

[Kotyarko_O 1,906]

И ещё, как заменить кнопки далее, назад, установить и тд на свою картинку кнопки???

'Вот, на примере кнопки "обзор", изображение вставляется точно по тем же координатам, что и кнопка:'

[Files]
Source: myimage.bmp; DestDir: {tmp}; Flags: dontcopy
 
[_Code]
var
MyImage: TBitmapImage;
 
procedure InitializeWizard;
begin
ExtractTemporaryFile('myimage.bmp');
MyImage := TBitmapImage.Create(WizardForm);
With MyImage do
begin
  Top:=100;
  Left:=330;
  Width:=100;
  Height:=30;
  Parent:=WizardForm.SelectDirPage;
  Bitmap.LoadFromFile(ExpandConstant('{tmp}\myimage.bmp'));
end;
end;

Вот ещё да примера:

http://forum.ru-board.com/topic.cgi?forum=5&topic=30413&start=2562&limit=1&m=13#1

http://forum.ru-board.com/topic.cgi?forum=5&topic=35146&start=1299&limit=1&m=4#1

 

я же писал выше

аа, тот. Я в него не хочу лезть)

 

Парни можно ли скрыть форму OuterNotebook ,если да то как это сделать?

Сомневаюсь, что тебе это нужно.

WizardForm.OuterNotebook.Visible:=False;

[MEDNIKs 2]

 

 

Сомневаюсь, что тебе это нужно.

 

ты прав!

Напишите плиз код  на очистку папки рес модс!

[Ekspoint 2,122]

 

ты прав!

Напишите плиз код  на очистку папки рес модс!

 

#include "SHFileOperation.iss"

var

  BackupPage: TWizardPage;

  DeleteRadioButton, MoveRadioButton, NoneRadioButton: TNewRadioButton;

const

  BackupDescText =

    'Во избежание проблем совместимости и конфликтов между модификациями, рекомендуется удалить все установленные на данный момент модификации клиента.';

  DeleteDescText =

    'Установщик удалит все файлы в папках.';

  MoveDescText =

    'Установщик сделает резервную копию всех файлов в папках.';

  NoneDescText =

    'Установщик оставит всё как есть.';

function BackupCheck_1(): Boolean;

var

  BackupDescLabel, DeleteDescLabel, MoveDescLabel, NoneDescLabel: TLabel;

begin

  BackupPage:=CreateCustomPage(wpWelcome, 'Создание резервных копий файлов перед установкой', 'Пожалуйста, прочтите следующую важную информацию перед тем, как продолжить.');

  BackupDescLabel:=TLabel.Create(WizardForm);

  BackupDescLabel.Parent:=BackupPage.Surface;

  BackupDescLabel.Left:=110;

  BackupDescLabel.Top:=10;

  BackupDescLabel.Width:=BackupPage.SurfaceWidth;

  BackupDescLabel.Height:=90;

  BackupDescLabel.AutoSize:=False;

  BackupDescLabel.Wordwrap:=True;

  BackupDescLabel.Caption:=BackupDescText;

  DeleteRadioButton:=TNewRadioButton.Create(WizardForm);

  DeleteRadioButton.Parent:=BackupPage.Surface;

  DeleteRadioButton.Checked:=True;

  DeleteRadioButton.Top:=105;

  DeleteRadioButton.Left:=110;

  DeleteRadioButton.Width:=BackupPage.SurfaceWidth;

  DeleteRadioButton.Font.Style:=[fsBold];

  DeleteRadioButton.Font.Size:=9;

  DeleteRadioButton.Caption:='Удалить файлы'

  DeleteDescLabel:=TLabel.Create(WizardForm);

  DeleteDescLabel.Parent:=BackupPage.Surface;

  DeleteDescLabel.Left:=110;

  DeleteDescLabel.Top:=DeleteRadioButton.Top + DeleteRadioButton.Height + 4;

  DeleteDescLabel.Width:=BackupPage.SurfaceWidth;

  DeleteDescLabel.Height:=40;

  DeleteDescLabel.AutoSize:=False;

  DeleteDescLabel.Wordwrap:=True;

  DeleteDescLabel.Caption:=DeleteDescText;

  MoveRadioButton:=TNewRadioButton.Create(WizardForm);

  MoveRadioButton.Parent:=BackupPage.Surface;

  MoveRadioButton.Checked:=False;

  MoveRadioButton.Top:=180;

  MoveRadioButton.Left:=110;

  MoveRadioButton.Width:=BackupPage.SurfaceWidth;

  MoveRadioButton.Font.Style:=[fsBold];

  MoveRadioButton.Font.Size:=9;

  MoveRadioButton.Caption:='Сделать резервную копию файлов'

  MoveDescLabel:=TLabel.Create(WizardForm);

  MoveDescLabel.Parent:=BackupPage.Surface;

  MoveDescLabel.Left:=110;

  MoveDescLabel.Top:=MoveRadioButton.Top + MoveRadioButton.Height + 4;

  MoveDescLabel.Width:=BackupPage.SurfaceWidth;

  MoveDescLabel.Height:=40;

  MoveDescLabel.AutoSize:=False;

  MoveDescLabel.Wordwrap:=True;

  MoveDescLabel.Caption:=MoveDescText;

  NoneRadioButton:=TNewRadioButton.Create(WizardForm);

  NoneRadioButton.Parent:=BackupPage.Surface;

  NoneRadioButton.Checked:=False;

  NoneRadioButton.Top:=255;

  NoneRadioButton.Left:=110;

  NoneRadioButton.Width:=BackupPage.SurfaceWidth;

  NoneRadioButton.Font.Style:=[fsBold];

  NoneRadioButton.Font.Size:=9;

  NoneRadioButton.Caption:='Ничего не трогать'

  NoneDescLabel:=TLabel.Create(WizardForm);

  NoneDescLabel.Parent:=BackupPage.Surface;

  NoneDescLabel.Left:=110;

  NoneDescLabel.Top:=NoneRadioButton.Top + NoneRadioButton.Height + 4;

  NoneDescLabel.Width:=BackupPage.SurfaceWidth;

  NoneDescLabel.Height:=40;

  NoneDescLabel.AutoSize:=False;

  NoneDescLabel.Wordwrap:=True;

  NoneDescLabel.Caption:=NoneDescText;

end;

function BackupCheck_2(): Boolean;

begin

  If DeleteRadioButton.Checked then

begin

  DelTree(ExpandConstant('{app}\res_mods\{#Patch}'), True, True, True);

  DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);

  CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));

end;

end;

function BackupCheck_3(): Boolean;

begin

  If MoveRadioButton.Checked then

begin

  MoveDir(ExpandConstant('{app}\res_mods\{#Patch}\'),ExpandConstant('{app}\res_mods\backup\{#Patch}'));

  MoveDir(ExpandConstant('{app}\res_mods\xvm\'),ExpandConstant('{app}\res_mods\backup\xvm'));

  CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));

  DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);

end;

end;

procedure CurStepChanged(CurStep: TSetupStep);

begin

  If CurStep=ssInstall then

begin

  BackupCheck_2();

  BackupCheck_3();

end;

end;

procedure InitializeWizard1();

begin

  BackupCheck_1();

end;

[Kotyarko_O 1,906]

@MEDNIKs, http://www.koreanrandom.com/forum/topic/9050-инсталлятор-для-модпаков/?p=157502

@Ekspoint, под спойлер длинные кода прячь.

[MEDNIKs 2]

Спасибо парни но не получается его в свой код внедрить!

Вернее в скрипт!

Edited July 15, 2014 by MEDNIKs

[Kotyarko_O 1,906]

Спасибо парни но не получается его в свой код внедрить!

Вернее в скрипт!

100% неправильно совмещаешь процедуры InitializeWizard, CurStepChanged.

[MEDNIKs 2]

100% неправильно совмещаешь процедуры InitializeWizard, CurStepChanged.

 

 

Можешь поподробней описать?

 

Или может можно прикрепить эти фунции к уже имеющимся NewRadioButton?

Edited July 15, 2014 by MEDNIKs

[Andrew_Dark 8]

А как изменить кнопку назад, если на одних страницах она есмть а на других нет??? как сделать это и ещё как узнать название страниц?

[Kotyarko_O 1,906]

как узнать название страниц?

В справке есть, + можно посмотреть в редакторе форм.

 

А как изменить кнопку назад, если на одних страницах она есмть а на других нет?

Её нет только на первой странице и на странице окончания распаковки. Они там и не нужны.

 

Можешь поподробней описать?

'Простое совмещение одноимённых процедур:'

Procedure InitializeWizard1();
begin
...
end;

Procedure InitializeWizard();
begin
...
InitializeWizard1();
end;

 

@AtotIK, слушай, нужна твоя помощь.

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

Дошёл до такого:

procedure CurPageChanged(CurPage: Integer);
begin
 case CurPage of
wpWelcome:
 MyButton.Visible;
wpFinished:
 MyButton.Visible;
  else
   MyButton.Hide;
end;
end;

Но показывается только на первой странице.

Вот весь скрипт: 1.rar

Edited July 15, 2014 by Kotyarko_O

[MEDNIKs 2]

За что отвечает форма Bevel1?

[Kotyarko_O 1,906]

За что отвечает форма Bevel1?

Горизонтальная линия, отделяющая нижнюю панель (где находятся кнопки "Далее", "Назад" и т.д.) от основы.

'Отметил на скрине:'

Edited July 15, 2014 by Kotyarko_O

[MEDNIKs 2]

 

 

Горизонтальная линия, отделяющая нижнюю панель (где находятся кнопки "Далее", "Назад" и т.д.) от основы.

 

Спасибо!

[Andrew_Dark 8]

раздел Parent это там присваивается название страницы, на которой будет отображаться моя кнопка???

а как инстал будет знать, что именно эта кнопка и именно на этой странице будет заменена моей???

[Kotyarko_O 1,906]

раздел Parent это там присваивается название страницы, на которой будет отображаться моя кнопка???

а как инстал будет знать, что именно эта кнопка и именно на этой странице будет заменена моей???

 Башка у меня сейчас много в себе не держит. Напомни, о каком ты скрипте?

p.s. Parent - это не раздел.

[MEDNIKs 2]

Ребята помогите создать новую страницу,не хватает тяму!Нужна страница между приветствием и выбором дериктории!

скрипт.rar