Nowik1971 Posted November 30, 2016 Share Posted November 30, 2016 (edited) походу всё получилось даже с не доскачеными танками нашёл путь туда куда нужно Вот так попробуй немного в первом примере твоего скрипта не туда вставил... Edited December 7, 2016 by Nowik1971 1 2 @ Quote Link to comment Short link Share on other sites More sharing options...
KIBORG Posted December 7, 2016 Share Posted December 7, 2016 привет всем, подскажите как сделать в инсталятаре, что бы большие файлы докачивались с сервера,при выборе мода? @ Quote Link to comment Short link Share on other sites More sharing options...
Xotabych Posted December 7, 2016 Share Posted December 7, 2016 привет всем, подскажите как сделать в инсталятаре, что бы большие файлы докачивались с сервера,при выборе мода? Поиск не работает у вас по теме или как? Вот тут есть. @ Quote Link to comment Short link Share on other sites More sharing options...
KIBORG Posted December 7, 2016 Share Posted December 7, 2016 Поиск не работает у вас по теме или как? Вот тут есть. спасибо @ Quote Link to comment Short link Share on other sites More sharing options...
MS_RAMIS Posted December 9, 2016 Share Posted December 9, 2016 (edited) Всем Привет искал в теме не нашел увы ... может кто может помочь ! хочу создать отдельную страничку которая будет после выбора модов с выбором чебоксов отключения различных эффектов для повышения FPS (т.е. страницу WoT Tweaker) Edited December 9, 2016 by MS_RAMIS @ Quote Link to comment Short link Share on other sites More sharing options...
Nowik1971 Posted December 9, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
MS_RAMIS Posted December 9, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
Nowik1971 Posted December 9, 2016 Share Posted December 9, 2016 (edited) — Ну-ка, поглядим, как тут избы делают? Не клянчи, а учи тут помогают только тому кто хоть что-то учит и понимает, а за тебя никто ничего делать не будет.... есть раздел форума платных услуг там и спрашивай после оплаты... И сделают все за тебя..... "— Ну-ка двое из ларца. Замесить и нарубить! бррр… ну, наоборот же, все нарубить и замесить… Вы что, нарочно надо мной издеваться будете? — Ага! — Во-первых, пирожного! Во-вторых… Вы, чего, и пальцы за меня загибать будете? — Ага! — Так вы что, и конфеты за меня есть будете?!.. — АГА!!!" Edited December 9, 2016 by Nowik1971 2 2 @ Quote Link to comment Short link Share on other sites More sharing options...
MS_RAMIS Posted December 13, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
Lom Posted December 13, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
Nowik1971 Posted December 13, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
MS_RAMIS Posted December 13, 2016 Share Posted December 13, 2016 Посмотри здесь если сам не воспользовался поиском по теме... http://www.koreanran...паков/?p=287645 Увы не работает .... там в окне Components, а у меня идет после Components ... @ Quote Link to comment Short link Share on other sites More sharing options...
Nowik1971 Posted December 13, 2016 Share Posted December 13, 2016 (edited) Увы не работает .... там в окне Components, а у меня идет после Components .. Поменяй... Это ведь пример... Список страниц в справке или погугли ... не помню где-то сам искал и находил в сети... Edited December 13, 2016 by Nowik1971 @ Quote Link to comment Short link Share on other sites More sharing options...
MS_RAMIS Posted December 13, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
Lom Posted December 13, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
sergy2010 Posted December 21, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
Lom Posted December 24, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
sergy2010 Posted December 24, 2016 Share Posted December 24, 2016 (edited) да даже переименновываешь или другие пишешь они обратно появляются на 3 из 2 страницы тоесть копируют автоматом и копец что я только не делал комплист 3 пытался сделать на основе скрипта что выше Edited December 24, 2016 by sergy2010 @ Quote Link to comment Short link Share on other sites More sharing options...
Lom Posted December 24, 2016 Share Posted December 24, 2016 да даже переименновываешь или другие пишешь они обратно появляются на 3 из 2 страницы тоесть копируют автоматом и копец что я только не делал комплист 3 пытался сделать на основе скрипта что выше когда ты сделал комплист на две страницы а не на три тогда всё нормально было? @ Quote Link to comment Short link Share on other sites More sharing options...
sergy2010 Posted December 24, 2016 Share Posted December 24, 2016 да но первый комлист стандартный второй на основе того скрипта нужен 3 лист @ Quote Link to comment Short link Share on other sites More sharing options...
Recommended Posts
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.