Nowik1971 2 #367567 Posted November 30, 2016 (edited) походу всё получилось даже с не доскачеными танками нашёл путь туда куда нужно Вот так попробуй немного в первом примере твоего скрипта не туда вставил... Edited December 7, 2016 by Nowik1971 1 2 Quote Share this post Link to post Short link Share on other sites
KIBORG 17 #368210 Posted December 7, 2016 привет всем, подскажите как сделать в инсталятаре, что бы большие файлы докачивались с сервера,при выборе мода? Quote Share this post Link to post Short link Share on other sites
Xotabych 337 #368214 Posted December 7, 2016 привет всем, подскажите как сделать в инсталятаре, что бы большие файлы докачивались с сервера,при выборе мода? Поиск не работает у вас по теме или как? Вот тут есть. Quote Share this post Link to post Short link Share on other sites
KIBORG 17 #368231 Posted December 7, 2016 Поиск не работает у вас по теме или как? Вот тут есть. спасибо Quote Share this post Link to post Short link Share on other sites
MS_RAMIS 0 #368374 Posted December 9, 2016 (edited) Всем Привет искал в теме не нашел увы ... может кто может помочь ! хочу создать отдельную страничку которая будет после выбора модов с выбором чебоксов отключения различных эффектов для повышения FPS (т.е. страницу WoT Tweaker) Edited December 9, 2016 by MS_RAMIS Quote Share this post Link to post Short link Share on other sites
Nowik1971 2 #368376 Posted December 9, 2016 (edited) Всем Привет искал в теме не нашел увы ... может кто может помочь ! хочу создать отдельную страничку которая будет после выбора модов с выбором чебоксов отключения различных эффектов для повышения FPS (т.е. страницу WoT Tweaker) Плохо искал вот: http://www.koreanrandom.com/forum/topic/9050-инсталлятор-для-модпаков/?p=207638 Edited December 9, 2016 by Nowik1971 3 Quote Share this post Link to post Short link Share on other sites
MS_RAMIS 0 #368377 Posted December 9, 2016 (edited) Плохо искал вот: http://www.koreanrandom.com/forum/topic/9050-инсталлятор-для-модпаков/?p=207638 извините, но я плохо разбираюсь в этом . .. но путь файла куда может кто может помочь ! хочу создать отдельную страничку которая будет после выбора модов с выбором чебоксов отключения различных эффектов для повышения FPS (т.е. страницу WoT Tweaker) Edited December 9, 2016 by MS_RAMIS Quote Share this post Link to post Short link Share on other sites
Nowik1971 2 #368383 Posted December 9, 2016 (edited) — Ну-ка, поглядим, как тут избы делают? Не клянчи, а учи тут помогают только тому кто хоть что-то учит и понимает, а за тебя никто ничего делать не будет.... есть раздел форума платных услуг там и спрашивай после оплаты... И сделают все за тебя..... "— Ну-ка двое из ларца. Замесить и нарубить! бррр… ну, наоборот же, все нарубить и замесить… Вы что, нарочно надо мной издеваться будете? — Ага! — Во-первых, пирожного! Во-вторых… Вы, чего, и пальцы за меня загибать будете? — Ага! — Так вы что, и конфеты за меня есть будете?!.. — АГА!!!" Edited December 9, 2016 by Nowik1971 2 2 Quote Share this post Link to post Short link Share on other sites
MS_RAMIS 0 #368739 Posted December 13, 2016 (edited) .... Не клянчи, а учи тут помогают только тому кто хоть что-то учит и понимает, а за тебя никто ничего делать не будет.... есть раздел форума платных услуг там и спрашивай после оплаты... И сделают все за тебя..... когда просил помощи , я имел ввиду что мне нужна помощь !!! а не то что клянчил, и что бы за меня все сделали.... Я уже сам пробовал сделать, но увы у меня не получилось ... мой код [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; нужно убрать ползунок (полосу прокрутки) или увеличить "окно" где пишутся чекбоксы.... (если не понятно написал сори) на скрине видно надеюсь Edited December 13, 2016 by MS_RAMIS Quote Share this post Link to post Short link Share on other sites
Lom 48 #368744 Posted December 13, 2016 когда просил помощи , я имел ввиду что мне нужна помощь !!! а не то что клянчил, и что бы за меня все сделали.... Я уже сам пробовал сделать, но увы у меня не получилось ... мой код [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; Я конечно как и ты мало в этом разбираюсь но по моему ты не тот кусок кода показал чтобы тебе помогли с прокруткой или с увеличением окна))) Quote Share this post Link to post Short link Share on other sites
Nowik1971 2 #368749 Posted December 13, 2016 когда просил помощи , я имел ввиду что мне нужна помощь !!! а не то что клянчил, и что бы за меня все сделали.... Я уже сам пробовал сделать, но увы у меня не получилось ... мой код [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; нужно убрать ползунок (полосу прокрутки) или увеличить "окно" где пишутся чекбоксы.... (если не понятно написал сори) на скрине видно надеюсь 2016-12-13_075515.png Посмотри здесь если сам не воспользовался поиском по теме... http://www.koreanrandom.com/forum/topic/9050-инсталлятор-для-модпаков/?p=287645 1 Quote Share this post Link to post Short link Share on other sites
MS_RAMIS 0 #368774 Posted December 13, 2016 Посмотри здесь если сам не воспользовался поиском по теме... http://www.koreanran...паков/?p=287645 Увы не работает .... там в окне Components, а у меня идет после Components ... Quote Share this post Link to post Short link Share on other sites
Nowik1971 2 #368798 Posted December 13, 2016 (edited) Увы не работает .... там в окне Components, а у меня идет после Components .. Поменяй... Это ведь пример... Список страниц в справке или погугли ... не помню где-то сам искал и находил в сети... Edited December 13, 2016 by Nowik1971 Quote Share this post Link to post Short link Share on other sites
MS_RAMIS 0 #368803 Posted December 13, 2016 поменял бы ... но я уже писал что не разбираюсь в этом , не мастер в этом как некоторые ... и поэтому нужна помощь!!! я пробовал на примерах что нашел , код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; были и другие варианты , но увы то получается ... Quote Share this post Link to post Short link Share on other sites
Lom 48 #368821 Posted December 13, 2016 (edited) Увы не работает .... там в окне 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 December 13, 2016 by ЛОМ Quote Share this post Link to post Short link Share on other sites
sergy2010 24 #371118 Posted December 21, 2016 (edited) как из этого компонент листа с картинкой сделать ещё 2 компонент лист если копировать его то получается что на одном нажал то и на другом нажато тоже самое (((( [setup]AppName=My ProgramAppVerName=My Program v.1.2DefaultDirName={pf}\My Program[Files]Source: "C:\Users\sergy\Desktop\modpac\картинки\25.bmp"; DestName: "CompDescImg1.bmp"; Flags: dontcopy[Components]Name: KMP; Description: MODPACK ; typeTComponentDesc = recordDescription: String;ImageName: String;Index: Integer;end;varComponentsPage: 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);vari: Integer;beginif Index = LastIndex then Exit;CompIndex := -1;for i := 0 to GetArrayLength(CompDescs) -1 dobeginif (CompDescs[i].Index = Index) thenbeginCompIndex := i;Break;end;end;if (CompIndex >= 0) and (Area = iaItem) thenbeginif not FileExists(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName) thenExtractTemporaryFile(CompDescs[CompIndex].ImageName);CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName);CompDescImg.Show;end elsebeginCompDescImg.Hide;end;LastIndex := Index;end;procedure CompListMouseLeave(Sender: TObject);beginCompDescImg.Hide;LastIndex := -1;end;procedure AddCompDescription(AIndex: Integer; ADescription: String; AImageName: String);vari: Integer;begini := GetArrayLength(CompDescs);SetArrayLength(CompDescs, i + 1);CompDescs[i].Description := ADescription;CompDescs[i].ImageName := AImageName;CompDescs[i].Index := AIndex - 1end;procedure RedesignWizardForm1;beginComponentsPage := CreateCustomPage(wpSelectComponents, SetupMessage(msgWizardSelectComponents), SetupMessage(msgSelectComponentsDesc));ComponentsList := TNewCheckListBox.Create(WizardForm);with ComponentsList dobeginParent := 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 dobeginParent := ComponentsPage.Surface;SetBounds(ScaleX(192), ScaleY(0), ScaleX(225), ScaleY(120)); //=========размер рамки картинкиBevelInner := bvLowered;end;CompDescImg := TBitmapImage.Create(WizardForm);with CompDescImg dobeginParent := 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;vari: Integer;beginResult := False;for i := 0 to ComponentsList.ItemCount - 1 dobeginif CompIndex <= (ComponentsList.ItemCount - 1) thenResult := ComponentsList.Checked[CompIndex];end;end;procedure InitializeWizard();beginRedesignWizardForm1;end; или проще говоря у меня есть два комп листа с картинками : 1 комплист стандартный, 2 комплис на основе этого скрипта, мне бы хотелось 3 комплист может есть у кого скрипт или помогите этот как ни будь раздвоить а то у меня получается что на одном выбираешь до и на другом уже выбрано тоже самое Edited December 21, 2016 by sergy2010 Quote Share this post Link to post Short link Share on other sites
Lom 48 #371596 Posted December 24, 2016 (edited) как из этого компонент листа с картинкой сделать ещё 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 ; typeTComponentDesc = recordDescription: String;ImageName: String;Index: Integer;end; varComponentsPage: 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);vari: Integer;beginif Index = LastIndex then Exit;CompIndex := -1;for i := 0 to GetArrayLength(CompDescs) -1 dobeginif (CompDescs[i].Index = Index) thenbeginCompIndex := i;Break;end;end;if (CompIndex >= 0) and (Area = iaItem) thenbeginif not FileExists(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName) thenExtractTemporaryFile(CompDescs[CompIndex].ImageName);CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName);CompDescImg.Show;end elsebeginCompDescImg.Hide;end;LastIndex := Index;end; procedure CompListMouseLeave(Sender: TObject);beginCompDescImg.Hide;LastIndex := -1;end; procedure AddCompDescription(AIndex: Integer; ADescription: String; AImageName: String);vari: Integer;begini := GetArrayLength(CompDescs);SetArrayLength(CompDescs, i + 1);CompDescs[i].Description := ADescription;CompDescs[i].ImageName := AImageName;CompDescs[i].Index := AIndex - 1end; procedure RedesignWizardForm1;beginComponentsPage := CreateCustomPage(wpSelectComponents, SetupMessage(msgWizardSelectComponents), SetupMessage(msgSelectComponentsDesc)); ComponentsList := TNewCheckListBox.Create(WizardForm);with ComponentsList dobeginParent := 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 dobeginParent := ComponentsPage.Surface;SetBounds(ScaleX(192), ScaleY(0), ScaleX(225), ScaleY(120)); //=========размер рамки картинкиBevelInner := bvLowered;end; CompDescImg := TBitmapImage.Create(WizardForm);with CompDescImg dobeginParent := 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;vari: Integer;beginResult := False;for i := 0 to ComponentsList.ItemCount - 1 dobeginif CompIndex <= (ComponentsList.ItemCount - 1) thenResult := ComponentsList.Checked[CompIndex];end;end; procedure InitializeWizard();beginRedesignWizardForm1; end; или проще говоря у меня есть два комп листа с картинками : 1 комплист стандартный, 2 комплис на основе этого скрипта, мне бы хотелось 3 комплист может есть у кого скрипт или помогите этот как ни будь раздвоить а то у меня получается что на одном выбираешь до и на другом уже выбрано тоже самое А ты из секции [Components] удалил те моды которые у тебя должны быть на второй странице? я тоже как то не догнал и все моды были и на первой и второй странице))) конечно если я правильно понял твою проблему))) Edited December 24, 2016 by ЛОМ Quote Share this post Link to post Short link Share on other sites
sergy2010 24 #371638 Posted December 24, 2016 (edited) да даже переименновываешь или другие пишешь они обратно появляются на 3 из 2 страницы тоесть копируют автоматом и копец что я только не делал комплист 3 пытался сделать на основе скрипта что выше Edited December 24, 2016 by sergy2010 Quote Share this post Link to post Short link Share on other sites
Lom 48 #371641 Posted December 24, 2016 да даже переименновываешь или другие пишешь они обратно появляются на 3 из 2 страницы тоесть копируют автоматом и копец что я только не делал комплист 3 пытался сделать на основе скрипта что выше когда ты сделал комплист на две страницы а не на три тогда всё нормально было? Quote Share this post Link to post Short link Share on other sites
sergy2010 24 #371647 Posted December 24, 2016 да но первый комлист стандартный второй на основе того скрипта нужен 3 лист Quote Share this post Link to post Short link Share on other sites