Jump to content
Korean Random
EvilAlex

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

Recommended Posts

походу всё получилось даже с не доскачеными танками нашёл путь туда куда нужно

Вот так попробуй немного в первом примере твоего скрипта не туда вставил...

Edited by Nowik1971
  • Upvote 1
  • Downvote 2

Share this post


Link to post

Short link
Share on other sites

привет всем, подскажите как сделать в инсталятаре, что бы большие файлы докачивались с сервера,при выборе мода?

Share this post


Link to post

Short link
Share on other sites

привет всем, подскажите как сделать в инсталятаре, что бы большие файлы докачивались с сервера,при выборе мода?

Поиск не работает у вас по теме или как?

Вот тут есть.

Share this post


Link to post

Short link
Share on other sites

Всем Привет  

искал в теме не нашел увы ...

 

может кто может помочь !

хочу создать отдельную страничку которая будет после выбора модов с выбором чебоксов отключения различных эффектов для повышения FPS (т.е. страницу WoT Tweaker)

Edited by MS_RAMIS

Share this post


Link to post

Short link
Share on other sites

Всем Привет  

искал в теме не нашел увы ...

 

может кто может помочь !

хочу создать отдельную страничку которая будет после выбора модов с выбором чебоксов отключения различных эффектов для повышения FPS (т.е. страницу WoT Tweaker)

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

Edited by Nowik1971
  • Downvote 3

Share this post


Link to post

Short link
Share on other sites

 

извините, но я плохо разбираюсь в этом . .. но путь файла куда 

 

 

 

 

может кто может помочь ! хочу создать отдельную страничку которая будет после выбора модов с выбором чебоксов отключения различных эффектов для повышения FPS (т.е. страницу WoT Tweaker)
Edited by MS_RAMIS

Share this post


Link to post

Short link
Share on other sites

— Ну-ка, поглядим, как тут избы делают?

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

И сделают все за тебя.....

"— Ну-ка двое из ларца. Замесить и нарубить! бррр… ну, наоборот же, все нарубить и замесить… Вы что, нарочно надо мной издеваться будете?

— Ага!

— Во-первых, пирожного! Во-вторых… Вы, чего, и пальцы за меня загибать будете?

— Ага!

— Так вы что, и конфеты за меня есть будете?!..

— АГА!!!" :ok: 

 

Edited by Nowik1971
  • Upvote 2
  • Downvote 2

Share this post


Link to post

Short link
Share on other sites

....

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

И сделают все за тебя.....

 

 

когда просил помощи , я имел ввиду что мне нужна помощь !!! а не то что клянчил, и что бы за меня все сделали....

 

Я уже сам пробовал сделать, но увы у меня не получилось ... 

 

мой код

[Files]
Source: "MODS\WOT_TWEAKER\Отключения тумана\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\1;
Source: "MODS\WOT_TWEAKER\Отключить облака\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\2;
Source: "MODS\WOT_TWEAKER\Отключить тень под танками\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\3;
Source: "MODS\WOT_TWEAKER\Отключить эффект движения деревьев\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\4;
Source: "MODS\WOT_TWEAKER\Отключить эффекты разрушения объектов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\5;
Source: "MODS\WOT_TWEAKER\Отключить эффект взрыва снарядов и попадания в объекты\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\6;
Source: "MODS\WOT_TWEAKER\Отключить эффекты уничтожения танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\7;
Source: "MODS\WOT_TWEAKER\Отключить эффекты попадания по танкам\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\8;
Source: "MODS\WOT_TWEAKER\Отключить эффекты проявления погоды и дым от объектов на картах\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\9;
Source: "MODS\WOT_TWEAKER\Отключить дым и пламя от выстрелов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\10;
Source: "MODS\WOT_TWEAKER\Отключить дым от уничтоженных танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\11;
Source: "MODS\WOT_TWEAKER\Отключить дым из выхлопных труб танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\12;



[Tasks]
Name: "Tweaker"; Description: "<<WoT Tweaker>>";
Name: "Tweaker\1"; Description: "Отключить туман"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\2"; Description: "Отключить отображение облаков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\3"; Description: "Отключить тень под танками"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\4"; Description: "Отключить эффект движения деревьев"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\5"; Description: "Отключить эффекты разрушения объектов"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\6"; Description: "Отключить эффект взрыва снарядов и попадания в объекты"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\7"; Description: "Отключить эффекты уничтожения танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\8"; Description: "Отключить эффекты попадания по танкам"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\9"; Description: "Отключить эффекты проявления погоды и дым от объектов на картах"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\10"; Description: "Отключить дым и пламя от выстрелов"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\11"; Description: "Отключить дым от уничтоженных танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\12"; Description: "Отключить дым из выхлопных труб танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;

 

нужно убрать ползунок (полосу прокрутки) или увеличить "окно" где пишутся чекбоксы.... (если не понятно написал сори)

на скрине видно надеюсь

 

post-18777-0-86984400-1481625653_thumb.png

Edited by MS_RAMIS

Share this post


Link to post

Short link
Share on other sites

когда просил помощи , я имел ввиду что мне нужна помощь !!! а не то что клянчил, и что бы за меня все сделали....

 

Я уже сам пробовал сделать, но увы у меня не получилось ... 

 

мой код

[Files]
Source: "MODS\WOT_TWEAKER\Отключения тумана\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\1;
Source: "MODS\WOT_TWEAKER\Отключить облака\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\2;
Source: "MODS\WOT_TWEAKER\Отключить тень под танками\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\3;
Source: "MODS\WOT_TWEAKER\Отключить эффект движения деревьев\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\4;
Source: "MODS\WOT_TWEAKER\Отключить эффекты разрушения объектов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\5;
Source: "MODS\WOT_TWEAKER\Отключить эффект взрыва снарядов и попадания в объекты\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\6;
Source: "MODS\WOT_TWEAKER\Отключить эффекты уничтожения танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\7;
Source: "MODS\WOT_TWEAKER\Отключить эффекты попадания по танкам\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\8;
Source: "MODS\WOT_TWEAKER\Отключить эффекты проявления погоды и дым от объектов на картах\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\9;
Source: "MODS\WOT_TWEAKER\Отключить дым и пламя от выстрелов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\10;
Source: "MODS\WOT_TWEAKER\Отключить дым от уничтоженных танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\11;
Source: "MODS\WOT_TWEAKER\Отключить дым из выхлопных труб танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\12;



[Tasks]
Name: "Tweaker"; Description: "<<WoT Tweaker>>";
Name: "Tweaker\1"; Description: "Отключить туман"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\2"; Description: "Отключить отображение облаков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\3"; Description: "Отключить тень под танками"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\4"; Description: "Отключить эффект движения деревьев"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\5"; Description: "Отключить эффекты разрушения объектов"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\6"; Description: "Отключить эффект взрыва снарядов и попадания в объекты"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\7"; Description: "Отключить эффекты уничтожения танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\8"; Description: "Отключить эффекты попадания по танкам"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\9"; Description: "Отключить эффекты проявления погоды и дым от объектов на картах"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\10"; Description: "Отключить дым и пламя от выстрелов"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\11"; Description: "Отключить дым от уничтоженных танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\12"; Description: "Отключить дым из выхлопных труб танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;

 

Я конечно как и ты мало в этом разбираюсь но по моему ты не тот кусок кода показал чтобы тебе помогли с прокруткой или с увеличением окна)))

Share this post


Link to post

Short link
Share on other sites

когда просил помощи , я имел ввиду что мне нужна помощь !!! а не то что клянчил, и что бы за меня все сделали....

 

Я уже сам пробовал сделать, но увы у меня не получилось ... 

 

мой код

[Files]
Source: "MODS\WOT_TWEAKER\Отключения тумана\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\1;
Source: "MODS\WOT_TWEAKER\Отключить облака\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\2;
Source: "MODS\WOT_TWEAKER\Отключить тень под танками\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\3;
Source: "MODS\WOT_TWEAKER\Отключить эффект движения деревьев\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\4;
Source: "MODS\WOT_TWEAKER\Отключить эффекты разрушения объектов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\5;
Source: "MODS\WOT_TWEAKER\Отключить эффект взрыва снарядов и попадания в объекты\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\6;
Source: "MODS\WOT_TWEAKER\Отключить эффекты уничтожения танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\7;
Source: "MODS\WOT_TWEAKER\Отключить эффекты попадания по танкам\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\8;
Source: "MODS\WOT_TWEAKER\Отключить эффекты проявления погоды и дым от объектов на картах\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\9;
Source: "MODS\WOT_TWEAKER\Отключить дым и пламя от выстрелов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\10;
Source: "MODS\WOT_TWEAKER\Отключить дым от уничтоженных танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\11;
Source: "MODS\WOT_TWEAKER\Отключить дым из выхлопных труб танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\12;



[Tasks]
Name: "Tweaker"; Description: "<<WoT Tweaker>>";
Name: "Tweaker\1"; Description: "Отключить туман"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\2"; Description: "Отключить отображение облаков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\3"; Description: "Отключить тень под танками"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\4"; Description: "Отключить эффект движения деревьев"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\5"; Description: "Отключить эффекты разрушения объектов"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\6"; Description: "Отключить эффект взрыва снарядов и попадания в объекты"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\7"; Description: "Отключить эффекты уничтожения танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\8"; Description: "Отключить эффекты попадания по танкам"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\9"; Description: "Отключить эффекты проявления погоды и дым от объектов на картах"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\10"; Description: "Отключить дым и пламя от выстрелов"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\11"; Description: "Отключить дым от уничтоженных танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\12"; Description: "Отключить дым из выхлопных труб танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;

 

нужно убрать ползунок (полосу прокрутки) или увеличить "окно" где пишутся чекбоксы.... (если не понятно написал сори)

на скрине видно надеюсь

 

attachicon.gif2016-12-13_075515.png

Посмотри здесь если сам не воспользовался поиском по теме... http://www.koreanrandom.com/forum/topic/9050-инсталлятор-для-модпаков/?p=287645

  • Downvote 1

Share this post


Link to post

Short link
Share on other sites

 Увы не работает .... там в окне Components,  а у меня идет после Components ..

 

Поменяй... Это ведь пример... Список страниц в справке или погугли ... не помню где-то сам искал и находил в сети...

Edited by Nowik1971

Share this post


Link to post

Short link
Share on other sites

поменял бы ... но я уже писал что не разбираюсь в этом , не мастер в этом как некоторые ... и поэтому нужна помощь!!!

 

я пробовал на примерах что нашел ,

 

код1

[Files]
Source: "MODS\WOT_TWEAKER\Отключения тумана\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(1);
Source: "MODS\WOT_TWEAKER\Отключить облака\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(2);
Source: "MODS\WOT_TWEAKER\Отключить тень под танками\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(3);
Source: "MODS\WOT_TWEAKER\Отключить эффект движения деревьев\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(4); 
Source: "MODS\WOT_TWEAKER\Отключить эффекты разрушения объектов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(5); 
Source: "MODS\WOT_TWEAKER\Отключить эффект взрыва снарядов и попадания в объекты\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(6);
Source: "MODS\WOT_TWEAKER\Отключить эффекты уничтожения танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(7);
Source: "MODS\WOT_TWEAKER\Отключить эффекты попадания по танкам\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(8);
Source: "MODS\WOT_TWEAKER\Отключить эффекты проявления погоды и дым от объектов на картах\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(9);
Source: "MODS\WOT_TWEAKER\Отключить дым и пламя от выстрелов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(10);
Source: "MODS\WOT_TWEAKER\Отключить дым от уничтоженных танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(11);
Source: "MODS\WOT_TWEAKER\Отключить дым из выхлопных труб танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(12);

[code]
var
  Tweaker: TNewCheckListBox;
Procedure InitializeWizard1();
begin
  Tweaker:=TNewCheckListBox.Create(WizardForm);
  Tweaker.Parent:=WizardForm.SelectTasksPage;
  Tweaker.Left:=ScaleX(32);
  Tweaker.Top:=ScaleY(21);
  Tweaker.Width:=ScaleX(729);
  Tweaker.Height:=ScaleY(248);
  Tweaker.Cursor:=crHand;
  Tweaker.BorderStyle:=bsSingle;
  Tweaker.Color:=clWindow;
  Tweaker.DragCursor:=crHand;
  Tweaker.DragMode:=dmAutomatic;
  Tweaker.Flat:=True;
  Tweaker.Font.Color:=clBlue;
  Tweaker.Font.Height:=-12;
  Tweaker.Font.Name:='@Arial Unicode MS';
  Tweaker.ParentFont:=False;
  Tweaker.ShowLines:=True;
  Tweaker.TreeViewStyle:=True;
  Tweaker.ItemHeightFixed:=True;
//**************************************************************************//
  Tweaker.AddCheckBox('<<WoT Tweaker Plus>>', '', 0, True, True, True, False, nil);                      //0
  Tweaker.AddCheckBox('Отключить туман', '0.1 Мб', 1, True, True, False, True, nil);          //1
  Tweaker.AddCheckBox('Отключить отображение облаков', '0.1 Мб', 1, True, True, False, True, nil);      //2
  Tweaker.AddCheckBox('Отключить тень под танками', '0.1 Мб', 1, True, True, False, True, nil);   //3
  Tweaker.AddCheckBox('Отключить эффект движения деревьев', '0.1 Мб', 1, True, True, False, True, nil);   //4
  Tweaker.AddCheckBox('Отключить эффекты разрушения объектов', '0.1 Мб', 1, True, True, False, True, nil);      //5
  Tweaker.AddCheckBox('Отключить эффект взрыва снарядов и попадания в объекты', '0.1 Мб', 1, True, True, False, True, nil);       //6
  Tweaker.AddCheckBox('Отключить эффекты уничтожения танков', '0.1 Мб', 1, True, True, False, True, nil);       //7
  Tweaker.AddCheckBox('Отключить эффекты попадания по танкам', '0.1 Мб', 1, True, True, False, True, nil);     //8
  Tweaker.AddCheckBox('Отключить эффекты проявления погоды и дым от объектов на картах', '0.1 Мб', 1, True, True, False, True, nil);   //9
  Tweaker.AddCheckBox('Отключить дым и пламя от выстрелов', '0.1 Мб', 1, True, True, False, True, nil);       //10 
  Tweaker.AddCheckBox('Отключить дым от уничтоженных танков', '0.1 Мб', 1, True, True, False, True, nil);       //11
  Tweaker.AddCheckBox('Отключить дым из выхлопных труб танков', '0.1 Мб', 1, True, True, False, True, nil);       //12
end;
//**************************************************************************//
Function CheckBoxChecked(Idx: Integer): Boolean;
begin
case Idx of
0:
  Result := Tweaker.Checked[0];
1:
  Result := Tweaker.Checked[1];
2:
  Result := Tweaker.Checked[2];
3:
  Result := Tweaker.Checked[3];
4:
  Result := Tweaker.Checked[4];
5:
  Result := Tweaker.Checked[5];
6:
  Result := Tweaker.Checked[6];
7:
  Result := Tweaker.Checked[7];
8:
  Result := Tweaker.Checked[8];
9:
  Result := Tweaker.Checked[9];
10:
  Result := Tweaker.Checked[10];
11:
  Result := Tweaker.Checked[11];
12:
  Result := Tweaker.Checked[12];
end;
end;

 



 

код2



 
[Tasks]
Name: "Tweaker"; Description: "<<WoT Tweaker Plus>>";
Name: "Tweaker\1"; Description: "Отключить туман"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\2"; Description: "Отключить отображение облаков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\3"; Description: "Отключить тень под танками"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\4"; Description: "Отключить эффект движения деревьев"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\5"; Description: "Отключить эффекты разрушения объектов"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\6"; Description: "Отключить эффект взрыва снарядов и попадания в объекты"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\7"; Description: "Отключить эффекты уничтожения танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\8"; Description: "Отключить эффекты попадания по танкам"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\9"; Description: "Отключить эффекты проявления погоды и дым от объектов на картах"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\10"; Description: "Отключить дым и пламя от выстрелов"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\11"; Description: "Отключить дым от уничтоженных танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\12"; Description: "Отключить дым из выхлопных труб танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;

[Files]
Source: "MODS\WOT_TWEAKER\Отключения тумана\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\1;
Source: "MODS\WOT_TWEAKER\Отключить облака\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\2;
Source: "MODS\WOT_TWEAKER\Отключить тень под танками\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\3;
Source: "MODS\WOT_TWEAKER\Отключить эффект движения деревьев\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\4; 
Source: "MODS\WOT_TWEAKER\Отключить эффекты разрушения объектов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\5; 
Source: "MODS\WOT_TWEAKER\Отключить эффект взрыва снарядов и попадания в объекты\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\6;
Source: "MODS\WOT_TWEAKER\Отключить эффекты уничтожения танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\7;
Source: "MODS\WOT_TWEAKER\Отключить эффекты попадания по танкам\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\8;
Source: "MODS\WOT_TWEAKER\Отключить эффекты проявления погоды и дым от объектов на картах\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\9;
Source: "MODS\WOT_TWEAKER\Отключить дым и пламя от выстрелов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\10;
Source: "MODS\WOT_TWEAKER\Отключить дым от уничтоженных танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\11;
Source: "MODS\WOT_TWEAKER\Отключить дым из выхлопных труб танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\12;

 

были и другие варианты , но увы то получается  ...

 

Share this post


Link to post

Short link
Share on other sites

 Увы не работает .... там в окне Components,  а у меня идет после Components ...

 

а ты вот тут вот в своем коде что то менял ваще? пробовал? 

[code]
var
  Tweaker: TNewCheckListBox;
Procedure InitializeWizard1();
begin
  Tweaker:=TNewCheckListBox.Create(WizardForm);
  Tweaker.Parent:=WizardForm.SelectTasksPage;
  Tweaker.Left:=ScaleX(32);
  Tweaker.Top:=ScaleY(21);
  Tweaker.Width:=ScaleX(729);
  Tweaker.Height:=ScaleY(248);
  Tweaker.Cursor:=crHand;
  Tweaker.BorderStyle:=bsSingle;
  Tweaker.Color:=clWindow;
  Tweaker.DragCursor:=crHand;
  Tweaker.DragMode:=dmAutomatic;
  Tweaker.Flat:=True;
  Tweaker.Font.Color:=clBlue;
  Tweaker.Font.Height:=-12;
  Tweaker.Font.Name:='@Arial Unicode MS';
  Tweaker.ParentFont:=False;
  Tweaker.ShowLines:=True;
  Tweaker.TreeViewStyle:=True;
  Tweaker.ItemHeightFixed:=True;
//**************************************************************************//

как уже  говорил я  сам как и ты мало что знаю но поиграй с параметрами широты и высоты и влево вправо  вот тут..

  Tweaker.Left:=ScaleX(32);
  Tweaker.Top:=ScaleY(21);
  Tweaker.Width:=ScaleX(729);
  Tweaker.Height:=ScaleY(248);

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

  Tweaker.ItemHeightFixed:=True;
Edited by ЛОМ

Share this post


Link to post

Short link
Share on other sites

как из этого компонент листа с картинкой сделать ещё 2 компонент лист  

 

если копировать его  то получается что на одном нажал то и на другом нажато тоже самое ((((

[setup]

AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[Files]
Source: "C:\Users\sergy\Desktop\modpac\картинки\25.bmp"; DestName: "CompDescImg1.bmp"; Flags: dontcopy


[Components]
Name: KMP; Description: MODPACK ;



type
TComponentDesc = record
Description: String;
ImageName: String;
Index: Integer;
end;

var
ComponentsPage: TWizardPage;
ComponentsList: TNewCheckListBox;
CompDescs: array of TComponentDesc;
CompDescPanel, CompDescImgPanel: TPanel;
CompIndex, LastIndex: Integer;
CompDescImg: TBitmapImage;

procedure ShowCompDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea);
var
i: Integer;
begin
if Index = LastIndex then Exit;
CompIndex := -1;
for i := 0 to GetArrayLength(CompDescs) -1 do
begin
if (CompDescs[i].Index = Index) then
begin
CompIndex := i;
Break;
end;
end;
if (CompIndex >= 0) and (Area = iaItem) then
begin
if not FileExists(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName) then
ExtractTemporaryFile(CompDescs[CompIndex].ImageName);
CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName);
CompDescImg.Show;
end else
begin
CompDescImg.Hide;
end;
LastIndex := Index;
end;

procedure CompListMouseLeave(Sender: TObject);
begin
CompDescImg.Hide;
LastIndex := -1;
end;

procedure AddCompDescription(AIndex: Integer; ADescription: String; AImageName: String);
var
i: Integer;
begin
i := GetArrayLength(CompDescs);
SetArrayLength(CompDescs, i + 1);
CompDescs[i].Description := ADescription;
CompDescs[i].ImageName := AImageName;
CompDescs[i].Index := AIndex - 1
end;

procedure RedesignWizardForm1;
begin
ComponentsPage := CreateCustomPage(wpSelectComponents, SetupMessage(msgWizardSelectComponents), SetupMessage(msgSelectComponentsDesc));

ComponentsList := TNewCheckListBox.Create(WizardForm);
with ComponentsList do
begin
Parent := ComponentsPage.Surface;
SetBounds(ScaleX(0), ScaleY(0), ScaleX(184), ScaleY(205));
OnItemMouseMove := @ShowCompDescription;


AddCheckBox('МСМТМИТМТМ', '', 0, False, True, False, True, nil);
AddRadioButton('Battle Assistant', '', 1, False, True, nil);
end;



CompDescImgPanel := TPanel.Create(WizardForm);
with CompDescImgPanel do
begin
Parent := ComponentsPage.Surface;
SetBounds(ScaleX(192), ScaleY(0), ScaleX(225), ScaleY(120)); //=========размер рамки картинки
BevelInner := bvLowered;
end;



CompDescImg := TBitmapImage.Create(WizardForm);
with CompDescImg do
begin
Parent := CompDescImgPanel;
SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));//=========размер картинки
Stretch := True;
Hide;
end;

AddCompDescription(2, ('CompDesc1'), 'CompDescImg1.bmp');
end;

function IsComponent(CompIndex: Integer): Boolean;
var
i: Integer;
begin
Result := False;
for i := 0 to ComponentsList.ItemCount - 1 do
begin
if CompIndex <= (ComponentsList.ItemCount - 1) then
Result := ComponentsList.Checked[CompIndex];
end;
end;


procedure InitializeWizard();
begin
RedesignWizardForm1;

end;

 

 

или проще говоря у меня есть два комп листа с картинками : 1 комплист стандартный, 2 комплис на основе этого скрипта, мне бы хотелось 3 комплист

 

может есть у кого скрипт  или помогите этот как ни будь раздвоить а то у меня получается что на одном выбираешь  до и на другом уже выбрано тоже самое

Edited by sergy2010

Share this post


Link to post

Short link
Share on other sites

как из этого компонент листа с картинкой сделать ещё 2 компонент лист  

 

если копировать его  то получается что на одном нажал то и на другом нажато тоже самое ((((

[setup]

AppName=My Program

AppVerName=My Program v.1.2

DefaultDirName={pf}\My Program

 

[Files]

Source: "C:\Users\sergy\Desktop\modpac\картинки\25.bmp"; DestName: "CompDescImg1.bmp"; Flags: dontcopy

 

 

[Components]

Name: KMP; Description: MODPACK ;

 

 

type

TComponentDesc = record

Description: String;

ImageName: String;

Index: Integer;

end;

 

var

ComponentsPage: TWizardPage;

ComponentsList: TNewCheckListBox;

CompDescs: array of TComponentDesc;

CompDescPanel, CompDescImgPanel: TPanel;

CompIndex, LastIndex: Integer;

CompDescImg: TBitmapImage;

 

procedure ShowCompDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea);

var

i: Integer;

begin

if Index = LastIndex then Exit;

CompIndex := -1;

for i := 0 to GetArrayLength(CompDescs) -1 do

begin

if (CompDescs[i].Index = Index) then

begin

CompIndex := i;

Break;

end;

end;

if (CompIndex >= 0) and (Area = iaItem) then

begin

if not FileExists(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName) then

ExtractTemporaryFile(CompDescs[CompIndex].ImageName);

CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName);

CompDescImg.Show;

end else

begin

CompDescImg.Hide;

end;

LastIndex := Index;

end;

 

procedure CompListMouseLeave(Sender: TObject);

begin

CompDescImg.Hide;

LastIndex := -1;

end;

 

procedure AddCompDescription(AIndex: Integer; ADescription: String; AImageName: String);

var

i: Integer;

begin

i := GetArrayLength(CompDescs);

SetArrayLength(CompDescs, i + 1);

CompDescs[i].Description := ADescription;

CompDescs[i].ImageName := AImageName;

CompDescs[i].Index := AIndex - 1

end;

 

procedure RedesignWizardForm1;

begin

ComponentsPage := CreateCustomPage(wpSelectComponents, SetupMessage(msgWizardSelectComponents), SetupMessage(msgSelectComponentsDesc));

 

ComponentsList := TNewCheckListBox.Create(WizardForm);

with ComponentsList do

begin

Parent := ComponentsPage.Surface;

SetBounds(ScaleX(0), ScaleY(0), ScaleX(184), ScaleY(205));

OnItemMouseMove := @ShowCompDescription;

 

 

AddCheckBox('МСМТМИТМТМ', '', 0, False, True, False, True, nil);

AddRadioButton('Battle Assistant', '', 1, False, True, nil);

end;

 

 

 

CompDescImgPanel := TPanel.Create(WizardForm);

with CompDescImgPanel do

begin

Parent := ComponentsPage.Surface;

SetBounds(ScaleX(192), ScaleY(0), ScaleX(225), ScaleY(120)); //=========размер рамки картинки

BevelInner := bvLowered;

end;

 

 

 

CompDescImg := TBitmapImage.Create(WizardForm);

with CompDescImg do

begin

Parent := CompDescImgPanel;

SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));//=========размер картинки

Stretch := True;

Hide;

end;

 

AddCompDescription(2, ('CompDesc1'), 'CompDescImg1.bmp');

end;

 

function IsComponent(CompIndex: Integer): Boolean;

var

i: Integer;

begin

Result := False;

for i := 0 to ComponentsList.ItemCount - 1 do

begin

if CompIndex <= (ComponentsList.ItemCount - 1) then

Result := ComponentsList.Checked[CompIndex];

end;

end;

 

 

procedure InitializeWizard();

begin

RedesignWizardForm1;

 

end;

 

 

или проще говоря у меня есть два комп листа с картинками : 1 комплист стандартный, 2 комплис на основе этого скрипта, мне бы хотелось 3 комплист

 

может есть у кого скрипт  или помогите этот как ни будь раздвоить а то у меня получается что на одном выбираешь  до и на другом уже выбрано тоже самое

 

А ты из секции [Components] удалил те моды которые у тебя должны быть на второй странице? я тоже как то не догнал и все моды были и на первой и второй странице)))   конечно если я правильно понял твою проблему)))

Edited by ЛОМ

Share this post


Link to post

Short link
Share on other sites

да даже переименновываешь или другие пишешь они обратно появляются на 3  из 2 страницы тоесть копируют автоматом и копец что я только не делал

 

комплист 3 пытался сделать на основе скрипта что выше

Edited by sergy2010

Share this post


Link to post

Short link
Share on other sites

да даже переименновываешь или другие пишешь они обратно появляются на 3  из 2 страницы тоесть копируют автоматом и копец что я только не делал

 

комплист 3 пытался сделать на основе скрипта что выше

 

когда ты сделал комплист на две страницы а не на три тогда  всё нормально было? 

Share this post


Link to post

Short link
Share on other sites

да но первый комлист стандартный второй на основе того скрипта нужен 3 лист

Share this post


Link to post

Short link
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...