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

[MEDNIKs 2]

С сылкой на сайт!

[AtotIK 580]

MEDNIKs, держи:

[~~~~~~~~~~Code~~~~~~~~~~]
var
  FAQButton: TButton;

procedure FAQButtonClick(Sender: TObject);
var
  ResultCode: Integer;
begin
  ShellExec('open', 'http://google.ru/', '', '', SW_SHOWNORMAL, ewNoWait, ResultCode);
end;

procedure FAQButtonCreate();
begin
  FAQButton:=TButton.Create(WizardForm);
  FAQButton.SetBounds(ScaleX(10), WizardForm.CancelButton.Top, WizardForm.CancelButton.Width, WizardForm.CancelButton.Height);
  FAQButton.Caption:='F.A.Q.';
  FAQButton.OnClick:=@FAQButtonClick;
  FAQButton.Parent:=WizardForm;
end;

procedure InitializeWizard();
begin
  FAQButtonCreate();
end;

[MEDNIKs 2]

 

MEDNIKs, держи:

[~~~~~~~~~~Code~~~~~~~~~~]
var
  FAQButton: TButton;

procedure FAQButtonClick(Sender: TObject);
var
  ResultCode: Integer;
begin
  ShellExec('open', 'http://google.ru/', '', '', SW_SHOWNORMAL, ewNoWait, ResultCode);
end;

procedure FAQButtonCreate();
begin
  FAQButton:=TButton.Create(WizardForm);
  FAQButton.SetBounds(ScaleX(10), WizardForm.CancelButton.Top, WizardForm.CancelButton.Width, WizardForm.CancelButton.Height);
  FAQButton.Caption:='F.A.Q.';
  FAQButton.OnClick:=@FAQButtonClick;
  FAQButton.Parent:=WizardForm;
end;

procedure InitializeWizard();
begin
  FAQButtonCreate();
end;

СПАСИБО!А вставлять в любом месте можно?А то чёт ругается!

[liked 19]

 

MEDNIKs, держи:

[~~~~~~~~~~Code~~~~~~~~~~]
var
  FAQButton: TButton;

procedure FAQButtonClick(Sender: TObject);
var
  ResultCode: Integer;
begin
  ShellExec('open', 'http://google.ru/', '', '', SW_SHOWNORMAL, ewNoWait, ResultCode);
end;

procedure FAQButtonCreate();
begin
  FAQButton:=TButton.Create(WizardForm);
  FAQButton.SetBounds(ScaleX(10), WizardForm.CancelButton.Top, WizardForm.CancelButton.Width, WizardForm.CancelButton.Height);
  FAQButton.Caption:='F.A.Q.';
  FAQButton.OnClick:=@FAQButtonClick;
  FAQButton.Parent:=WizardForm;
end;

procedure InitializeWizard();
begin
  FAQButtonCreate();
end;

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

 

Скрипт -  BigMusic_v2.rar

 

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

BigMusic_v2.rar

[MEDNIKs 2]

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

[Kotyarko_O 1,906]

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

Вот так:

procedure MyButtonClick(Sender: TObject);
begin
MsgBoxEx(WizardForm.Handle, 'Ты меня не послушал!'#13'Нажмёшь теперь "Ок" - твой комп рванёт.', mb_OK or mb_ICONINFORMATION, 0, 0);
end;

procedure InitializeWizard();
var
  MyButton: TButton;
begin
  MyButton := TButton.Create(WizardForm.SelectDirPage.Parent);
  MyButton.Parent := WizardForm.SelectDirPage;
  MyButton.Top := 150;
  MyButton.Left := 130;
  MyButton.Width := 100;
  MyButton.Height := 25;
  MyButton.Caption := 'Не нажимать';
  MyButton.onClick := @MyButtonClick;
end;

[AtotIK 580]

MEDNIKs, FAQButton.Parent:=WizardForm; меняешь на нужное.

Edited July 13, 2014 by AtotIK

[Andrew_Dark 8]

Где и как задать цвет текста для ComponentsInfo и ComponentsImgInfo???

Edited July 14, 2014 by Darksoul

[Ekspoint 2,122]

такой же вопрос 

[Kotyarko_O 1,906]

Где и как задать цвет текста для ComponentsInfo и ComponentsImgInfo???

такой же вопрос 

Не припомню такого компонента в стандартной форме. Это что, из скрипта, который выделяет определённые области под картинку для компонента и описания к нему? - В таком случае мне надо видеть скрипт. Скиньте этот кусок кода или целый код, посмотрю.

[Ekspoint 2,122]

Не припомню такого компонента в стандартной форме. Это что, из скрипта, который выделяет определённые области под картинку для компонента и описания к нему? - В таком случае мне надо видеть скрипт. Скиньте этот кусок кода или целый код, посмотрю.

вот весь код https://yadi.sk/d/2umvVwjmWbr4y

[Kotyarko_O 1,906]

@Ekspoint,

'этот текст?'

[Ekspoint 2,122]

@Ekspoint,

'этот текст?'

14.07.jpg

да и название модов

[Kotyarko_O 1,906]

да и название модов

 Нельзя указывать цвет для компонентов, вообще. Вид компонентов можно изменить только на это: fsBold, fsItalic, fsUnderline, fsStrikeOut. Знаешь, что это такое?

А для надписей в рамках ща посмотрю.

[Ekspoint 2,122]

 Нельзя указывать цвет для компонентов, вообще. Вид компонентов можно изменить только на это: fsBold, fsItalic, fsUnderline, fsStrikeOut. Знаешь, что это такое?

А для надписей в рамках ща посмотрю.

нет не знаю

спасибо

[Kotyarko_O 1,906]

нет не знаю

fsBold           -  Жирный текст.

fsItaliс           -  Наклонный текст.

fsUnderline    -  Подчёркнутый текст.

fsStrikeOut    -  Перечёркнутый текст.

Edited July 14, 2014 by Kotyarko_O

[Ekspoint 2,122]

fsBold           -  Жирный текст.

fsItaliс           -  Наклонный текст.

fsUnderline    -  Подчёркнутый текст.

fsStrikeOut    -  Перечёркнутый текст.

а как менять то 

где

Edited July 14, 2014 by Ekspoint

[liked 19]

Видать такие скрипты не кто не умеет разбирать! только стандартные

[Kotyarko_O 1,906]

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

 

Видать такие скрипты не кто не умеет разбирать! только стандартные

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

Edited July 14, 2014 by Kotyarko_O

[Ekspoint 2,122]

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

 

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

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