Jump to content
Korean Random

Andrew_Dark

User
 View Profile  See their activity

  • Posts

    398

  • Joined

  • Last visited

  • Days Won

    2

 Content Type 

Posts posted by Andrew_Dark

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

    in Modding General Discussion

    Posted · Edited by Darksoul

    Это пацанкий дворовой мод-пак, ты фишку не сечешь, доступный уровень чё )))))

    Скинь ссылку на ваш клановый, я поржу тоже;)

    Кстати, вопрос:

    Есть страница, фоном которой является картинка в png формате.

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

    #include "SHFileOperation.iss"
[code]
var
  DarksoulBox:TListBox;
  DeleteRadioButton, MoveRadioButton, NoneRadioButton: TNewRadioButton;
const
  DarksoulDescText =
    'Во избежание проблем  и конфликтов между модификациями, рекомендуется удалить все установленные на данный момент модификации клиента.';
  DeleteDescText =
    'Установщик очистит папку res_mods и установит новые модификации.';
  MoveDescText =
    'Установщик сделает резервную копию всех файлов в папке res_mods.';
  NoneDescText =
    'Установщик установит новые моды поверх старых.';
function BackupCheck_1(): Boolean;
var
  Darksoul, BackupDescLabel, DeleteDescLabel, MoveDescLabel, NoneDescLabel: TLabel;
begin
  Darksoul:=TLabel.Create(WizardForm.SelectDirPage);
  Darksoul.Parent:=WizardForm.SelectDirPage;
  Darksoul.Left:=ScaleX(5);
  Darksoul.Top:=ScaleY(145);
  Darksoul.Width:=ScaleX(715);
  Darksoul.Height:=ScaleY(45);
  Darksoul.AutoSize:=False;
  Darksoul.Wordwrap:=True;
  Darksoul.Caption:=DarksoulDescText;
  Darksoul.Font.Style:=[fsBold];
  Darksoul.Font.Color:=clBlack;
  Darksoul.Font.Size:=9;
  //////////hfvrf djrheu//////
  DarksoulBox:=TListBox.Create(WizardForm.SelectDirPage);
  DarksoulBox.Parent:=WizardForm;
  DarksoulBox.Left:=ScaleX(0);
  DarksoulBox.Top:=ScaleY(210);
  DarksoulBox.Width:=ScaleX(715);
  DarksoulBox.Height:=ScaleY(300);
  DarksoulBox.Color:=$e9e9e9;
  /////////rjytw hfvrb///////////
  /////////////////*****конец описания вверху бекапа******////////////////
  DeleteRadioButton:=TNewRadioButton.Create(WizardForm.SelectDirPage);
  DeleteRadioButton.Parent:=WizardForm;
  DeleteRadioButton.Checked:=True;
  DeleteRadioButton.Top:=ScaleY(220);
  DeleteRadioButton.Left:=ScaleX(5);
  DeleteRadioButton.Width:=ScaleX(400);
  DeleteRadioButton.Font.Style:=[fsBold];
  DeleteRadioButton.Font.Size:=9;
  DeleteRadioButton.Caption:='Удалить моды'
  DeleteDescLabel:=TLabel.Create(DarksoulBox);
  DeleteDescLabel.Parent:=DarksoulBox;
  DeleteDescLabel.Left:=ScaleX(15);
  DeleteDescLabel.Top:=ScaleY(40);
  DeleteDescLabel.Width:=ScaleX(400);
  DeleteDescLabel.Height:=ScaleY(20);
  DeleteDescLabel.AutoSize:=False;
  DeleteDescLabel.Wordwrap:=True;
  DeleteDescLabel.Caption:=DeleteDescText;
  DeleteDescLabel.Transparent:=True;
  MoveRadioButton:=TNewRadioButton.Create(WizardForm.SelectDirPage);
  MoveRadioButton.Parent:=WizardForm;
  MoveRadioButton.Checked:=False;
  MoveRadioButton.Top:=ScaleY(290);
  MoveRadioButton.Left:=ScaleX(5);
  MoveRadioButton.Width:=ScaleX(400);
  MoveRadioButton.Font.Style:=[fsBold];
  MoveRadioButton.Font.Size:=9;
  MoveRadioButton.Caption:='Сделать резервную копию всех модов'
  MoveDescLabel:=TLabel.Create(DarksoulBox);
  MoveDescLabel.Parent:=DarksoulBox;
  MoveDescLabel.Left:=ScaleX(15);
  MoveDescLabel.Top:=ScaleY(115);
  MoveDescLabel.Width:=ScaleX(400);
  MoveDescLabel.Height:=ScaleY(40);
  MoveDescLabel.AutoSize:=False;
  MoveDescLabel.Wordwrap:=True;
  MoveDescLabel.Caption:=MoveDescText;
  MoveDescLabel.Transparent:=True;
  NoneRadioButton:=TNewRadioButton.Create(WizardForm.SelectDirPage);
  NoneRadioButton.Parent:=WizardForm;
  NoneRadioButton.Checked:=False;
  NoneRadioButton.Top:=ScaleY(365);
  NoneRadioButton.Left:=ScaleX(5);
  NoneRadioButton.Width:=ScaleX(400);
  NoneRadioButton.Font.Style:=[fsBold];
  NoneRadioButton.Font.Size:=9;
  NoneRadioButton.Caption:='Ничего не трогать'
  NoneDescLabel:=TLabel.Create(DarksoulBox);
  NoneDescLabel.Parent:=DarksoulBox;
  NoneDescLabel.Left:=ScaleX(15);
  NoneDescLabel.Top:=ScaleY(185);
  NoneDescLabel.Width:=ScaleX(400);
  NoneDescLabel.Height:=ScaleY(40);
  NoneDescLabel.AutoSize:=False;
  NoneDescLabel.Wordwrap:=True;
  NoneDescLabel.Caption:=NoneDescText;
  NoneDescLabel.Transparent:=True;
  end;
function BackupCheck_2(): Boolean;
begin
  If DeleteRadioButton.Checked then
begin
  DelTree(ExpandConstant('{app}\res_mods'), 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}\Darksoul Modpack\Backup\{#Patch}'));
  MoveDir(ExpandConstant('{app}\res_mods\xvm\'),ExpandConstant('{app}\Darksoul Modpack\Backup\xvm'));
  CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));
end;
end;
procedure InitializeWizard1();
begin
  BackupCheck_1();
end;

    P.S. BackupCheck_2();  и BackupCheck_3(); прописаны в Curstep, если что.

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

    in Modding General Discussion

    Posted

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

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

    • Downvote 1

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

    in Modding General Discussion

    Posted · Edited by Darksoul

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

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

    • Downvote 1

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

    in Modding General Discussion

    Posted · Edited by Darksoul

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

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

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

    • Downvote 1

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

    in Modding General Discussion

    Posted

    Просто добавив этот код картинок не будет. Впрочем, вон вам уже рвутся помогать.

     

    Компонент - дочерний?

     

    Проблемы с вашей стороны. Инициализацию хотя бы объединяли?..

    'Пруф.'

    attachicon.gif22.11.png

    Неа.

    С нашей? Котярко, я знал, что ты *****, но не настолько же;)

    Не сомневался.

     

    Прикрепите скрипт.

    Слушай, ты бы сопляк [мат] свой на привязи держал, ок? Держите Ваше мнение при себе, уважаемый;)

    • Upvote 1
    • Downvote 3

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

    in Modding General Discussion

    Posted

    Ты сначала измени то убожество, что клану сотворил, не дизайн, а убожество, очки чтоли купи, кто тебя учил на тёмном цвете кривить текст темно-зелёным? Не видно почти даже что написано... Ты там маты написал, и боишься чтобы мамка не читанула?

    • Upvote 2
    • Downvote 1
×
×
  • Create New...