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

[Ekspoint]

Ещё есть пример: http://forum.ru-board.com/topic.cgi?forum=5&topic=30413&start=2562&limit=1&m=12#1.

это я и дал,просто цвета и все лишнее убрал

Edited November 26, 2014 by Ekspoint

[Kotyarko_O]

это я и дал,просто цвета и все лишнее убрал

Нет, ты дал не это. У тебя пример через кнопку. А я дал пример, как @Prost и просил: "нажимаешь на надпись и тебя кидает". То есть, через лейбл.

Edited November 26, 2014 by Kotyarko_O

[Prost]

Нет, ты дал не это. У тебя пример через кнопку. А я дал пример, как @Prost и просил: "нажимаешь на надпись и тебя кидает". То есть, через лейбл.

Вылетает такая ошибка.  Ещё у меня стоит скрипт с картинками в модпаке. Как это исправить?

Edited November 27, 2014 by Prost

[AtotIK]

Перевести что написано и понять это.

[Prost]

Перевести что написано и понять это.

И как это исправить?

[AtotIK]

Включить мозг. Дублирующих идентификаторов не должно быть. Но никто не отменял их совмещение или вообще вынос в отдельную процедуру/функцию с последующим подключением к основной.

[Kotyarko_O]

И как это исправить?

100 раз в теме уже обсуждалось.

[Code]
Procedure InitializeWizard1();
begin
...
end;

Procedure InitializeWizard2();
begin
...
end;

Procedure InitializeWizard(); //основной
begin
 InitializeWizard1();
 InitializeWizard2();
end;

[Andrew_Dark]

Включить мозг. Дублирующих идентификаторов не должно быть. Но никто не отменял их совмещение или вообще вынос в отдельную процедуру/функцию с последующим подключением к основной.

А ведь я говорил ему забей, он не послушал, чуствую, это надолго... А ты чего злой такой, Что случилось?

Может прописать ему на выходных сразу всё как надо и пусть не мучается? Делов то на пол часа с модами:) ты как считаешь?

Edited November 26, 2014 by Darksoul

[Ekspoint]

AtotIK 

Как добавить эту функцию?

 

 

[Kotyarko_O]

@Ekspoint,

[Code]
Var
 NewForm: TSetupForm;
 NewButton: TNewButton;

Procedure CreateForm(Sender: TObject);
begin
 NewForm := CreateCustomForm;
 NewForm.FormStyle := bsDialog;
 NewForm.Position := poScreenCenter;
 NewForm.Width := 600;
 NewForm.Height := 600;
 NewForm.Show;
end;

Procedure InitializeWizard();
begin
 NewButton := TNewButton.Create(WizardForm);
 NewButton.Parent := WizardForm;
 NewButton.SetBounds(WizardForm.BackButton.Left - 102, 200, 100, 20);
 NewButton.Caption := 'Открыть форму';
 NewButton.OnClick := @CreateForm;
end;

Дальше сам.

Edited November 27, 2014 by Kotyarko_O

[Ekspoint]

@Ekspoint,

[Code]
Var
 NewForm: TSetupForm;
 NewButton: TNewButton;

Procedure CreateForm(Sender: TObject);
begin
 NewForm := CreateCustomForm;
 NewForm.FormStyle := bsDialog;
 NewForm.Position := poScreenCenter;
 NewForm.Width := 600;
 NewForm.Height := 600;
 NewForm.Show;
end;

Procedure InitializeWizard();
begin
 NewButton := TNewButton.Create(WizardForm);
 NewButton.Parent := WizardForm;
 NewButton.SetBounds(WizardForm.BackButton.Left - 102, 200, 100, 20);
 NewButton.Caption := 'Открыть форму';
 NewButton.OnClick := @CreateForm;
end;

Дальше сам.

тоесть сюда все пичкать? 

Procedure CreateForm(Sender: TObject); 

Edited November 27, 2014 by Ekspoint

[Kotyarko_O]

тоесть сюда все пичкать? 

Procedure CreateForm(Sender: TObject); 

Да.

И родителем, соответственно, указывать созданную форму.

Edited November 27, 2014 by Kotyarko_O

[Prost]

А ведь я говорил ему забей, он не послушал, чуствую, это надолго... А ты чего злой такой, Что случилось?

Может прописать ему на выходных сразу всё как надо и пусть не мучается? Делов то на пол часа с модами:) ты как считаешь?

Ну знаешь, я модпак делаю ещё и для своих друзей с которыми много играю. Так что не надо мне читать нотации и указывать. Я сам решаю что мне делать. 

Edited November 27, 2014 by Prost

[Ekspoint]

Да.

И родителем, соответственно, указывать созданную форму.

вот это я не догоняю,пример можно?

[Andrew_Dark]

Ну знаешь, я модпак делаю ещё и для своих друзей с которыми много играю. Так что не надо мне читать нотации и указывать. Я сам решаю что мне делать. 

Не застявляй меня тебе повторно говорить одно и тоже, потом не плачь, мол я ему сделал, а он меня кинул, ок? А нотации пусть тебе мамка читает;)

Edited November 27, 2014 by Darksoul

[Kotyarko_O]

вот это я не догоняю,пример можно?

На форме:

Label := TNewLabel.Create(NewForm);
Label.Parent := NewForm;

На стандартном окне:

Label := TNewLabel.Create(WizardForm);
Label.Parent := WizardForm;

Edited November 27, 2014 by Kotyarko_O

[Ekspoint]

 

На форме:

Label := TNewLabel.Create(NewForm);
Label.Parent := NewForm;

На стандартном окне:

Label := TNewLabel.Create(WizardForm);
Label.Parent := WizardForm;

и для кнопок точно также да?

[Prost]

Не застявляй меня тебе повторно говорить одно и тоже, потом не плачь, мол я ему сделал, а он меня кинул, ок? А нотации пусть тебе мамка читает;)

Ты можешь меня не трогать,а? Или ты психолог и в душу всегда заглядываешь и заставляешь делать то что ты говоришь. Не твоё дело, что я делаю, может мне нравится делать модпак и получаю от этого малую долю фана

Edited November 27, 2014 by Prost

[Ekspoint]

@Kotyarko_O,

а при выскакивании этого окна у тебя удаляются все установленные моды от Джова?

    и что за название окна такое странное?

[Andrew_Dark]

Ты можешь меня не трогать,а? Или ты психолог и в душу всегда заглядываешь и заставляешь делать то что ты говоришь. Не твоё дело, что я делаю, может мне нравится делать модпак и получаю от этого малую долю фана

Скажу одно: узбагойся:)