Metrix647 6 #203782 Posted August 2, 2014 А как узнать из-за чего идут дергания в бою? Как выявить этот мод? По отдельности если поставить моды, все нормально без дерганий. Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #203783 Posted August 2, 2014 Парни подскажите где ошибка ,если вылазит такое окно? Оно вылазит даже если ставлю галку Очистить папку рес модс перед выбором компонентов! Почему ошибка? Это не ошибка, это стандартное предупреждение. Убирается присваиванием флага: disablenouninstallwarning ВСЕМ компонентам. А как узнать из-за чего идут дергания в бою? Как выявить этот мод? По отдельности если поставить моды, все нормально без дерганий. У деллюксовского прицела, вроде, такая проблема есть. 2 Quote Share this post Link to post Short link Share on other sites
Metrix647 6 #203785 Posted August 2, 2014 Почему ошибка? Это не ошибка, это стандартное предупреждение. Убирается присваиванием флага: disablenouninstallwarning ВСЕМ компонентам. У деллюксовского прицела, вроде, такая проблема есть. А можно твоим конфигом xvm пользоваться? могу в модпак его запилить, не против? Quote Share this post Link to post Short link Share on other sites
MEDNIKs 2 #203787 Posted August 2, 2014 Почему ошибка? Это не ошибка, это стандартное предупреждение. Убирается присваиванием флага: disablenouninstallwarning ВСЕМ компонентам. Если я присвою этот флаг то предупреждение о том ,что компонент не удалится, я получать не буду,я так понимаю?А заменятся другим он будет? И ещё такой вопрос!Ставлю галку на очистку старых модов ,при этом моды не выбираю а пака 0.9.2 очищается частично!Т.е если провести несколько раз такую операцию то папка станет пустой,но не с первого раза! Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #203790 Posted August 2, 2014 А можно твоим конфигом xvm пользоваться? могу в модпак его запилить, не против? Не против ;) Если я присвою этот флаг то предупреждение о том ,что компонент не удалится, я получать не буду,я так понимаю? Да. А заменятся другим он будет? Если на странице бекапа ты выбрал очистку модов (или бекап), то да. Если одноимённый файл - да, во всех остальных случаях - нет. 1 Quote Share this post Link to post Short link Share on other sites
MEDNIKs 2 #203796 Posted August 2, 2014 Это производит очисту папки ? function DeleteMods(): Boolean;beginIf NewCheckBox1.Checked thenbeginDelTree(ExpandConstant('{app}\res_mods\{#Patch}'), True, True, True);DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));end;end; Если на странице бекапа ты выбрал очистку модов (или бекап), то да. Если одноимённый файл - да, во всех остальных случаях - нет. спасибо! Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #203800 Posted August 2, 2014 Это производит очисту папки ? Да, но просто списав этот код в скрипт - ничего не будет. Quote Share this post Link to post Short link Share on other sites
Vupu 6 #203801 Posted August 2, 2014 Всем привет xvm еще не вышла под 9.2? Quote Share this post Link to post Short link Share on other sites
Metrix647 6 #203805 Posted August 2, 2014 Kotyarko_O! Поделись пожалуйста пунктом кода для авто установки шрифтов! Quote Share this post Link to post Short link Share on other sites
MEDNIKs 2 #203806 Posted August 2, 2014 Да, но просто списав этот код в скрипт - ничего не будет. Вот то,что ты мне давал function DeleteMods(): Boolean;beginIf NewCheckBox1.Checked thenbeginDelTree(ExpandConstant('{app}\res_mods\{#Patch}'), True, True, True);DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));end;end;function BackUpMods(): Boolean;beginIf NewCheckBox2.Checked thenbeginMoveDir(ExpandConstant('{app}\res_mods\{#Patch}\'),ExpandConstant('{app}\backup\{#Patch}'));MoveDir(ExpandConstant('{app}\res_mods\xvm\'),ExpandConstant('{app}\backup\xvm'));CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);end;end;procedure CurStepChanged(CurStep: TSetupStep);beginIf CurStep=ssInstall thenbeginDeleteMods();BackUpMods();end;end;procedure BackUpSelectWithDelete(Sender: TObject);beginNewCheckBox1.Checked := True; end; Здесь ещё ,что то должно быть? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #203812 Posted August 2, 2014 Здесь ещё ,что то должно быть? Да. Возьми пример отсюда Quote Share this post Link to post Short link Share on other sites
Metrix647 6 #203826 Posted August 2, 2014 (edited) Ребята помогите с установкой шрифтов! У кого есть готовый код поедлитесь пожалуйста что то у меня не получается, не устанавливаются шрифты((( #define Patch "0.9.2"#define Font "calibri.ttf"#define FontName "Calibri"#define Font "EnigmaU.ttf"#define FontName "Enigmatic Unicode"#define Font "Micra Normal.ttf"#define FontName "Micra"#define Font "Micrac.OTF"#define FontName "MicraC"#define Font "Micracb.OTF"#define FontName "MicraC"#define Font "Millennia.ttf"#define FontName "Millennia"#define Font "webdings.ttf"#define FontName "Webdings"#define Font "wingding.ttf"#define FontName "Wingding"#define Font "XVMSymbol_4.0.ttf"#define FontName "XVMSymbol"#define Font "XVMSymbol_7.1.ttf"#define FontName "XVMSymbol"#define Font "ZurichCondMono.ttf"#define FontName "ZurichCondMono" ///Шрифты varIsCustomFontInstalled: boolean;FontName: string;function AddFontResource(FileName: PAnsiChar): Integer; external '[email protected] stdcall';function RemoveFontResource(FileName: PAnsiChar): BOOL; external '[email protected] stdcall';function InitializeSetup(): Boolean;beginExtractTemporaryFile('{#Font}');IsCustomFontInstalled:=AddFontResource(ExpandConstant('{tmp}')+'\{#Font}')>0;if IsCustomFontInstalled then SendMessage(HWND_BROADCAST,$1D,0,0);if FontExists('{#FontName}') then FontName:='{#FontName}' else FontName:='Arial';Result:= True;end;Procedure InitializeWizard();begin WizardForm.Font.Name:= FontName;end;procedure DeInitializeSetup();beginWizardForm.Free;if IsCustomFontInstalled thenif RemoveFontResource(PAnsiChar(ExpandConstant('{tmp} ')+'\{#Font}')) then SendMessage(HWND_BROADCAST,$1D,0,0);end; в частности ругается на Procedure InitializeWizard(); begin WizardForm.Font.Name:= FontName; end; Edited August 2, 2014 by Metrix647 Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #203835 Posted August 2, 2014 Ребята помогите с установкой шрифтов! Это не установка шрифтов, это неудачная попытка изменить шрифт в инсталляторе. Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #203841 Posted August 2, 2014 Мде, вот почему я принципиально не использую сторонние шрифты в конфигах. Quote Share this post Link to post Short link Share on other sites
Metrix647 6 #203844 Posted August 2, 2014 Это не установка шрифтов, это неудачная попытка изменить шрифт в инсталляторе. Ахахахах, это меня убило брал с 3 или с 4 страницы! Если есть возможность киньте файлик в кодом! Пожалуйста! Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #203847 Posted August 2, 2014 Ахахахах, это меня убило брал с 3 или с 4 страницы! Если есть возможность киньте файлик в кодом! Пожалуйста! http://www.koreanrandom.com/forum/topic/9050-инсталлятор-для-модпаков/?p=189418 Quote Share this post Link to post Short link Share on other sites
ODINOKIY VOLK 1 #203941 Posted August 3, 2014 [Files] Source: XVMSymbol.ttf; DestDir: "{fonts}"; FontInstall: "XVMSymbol"; Flags: onlyifdoesntexist uninsneveruninstall; Source: PartnerCondensedMono.ttf; DestDir: "{fonts}"; FontInstall: "PartnerCondensed"; Flags: onlyifdoesntexist uninsneveruninstall; прмшлось менять флаг на этот Flags: external recursesubdirs skipifsourcedoesntexist; подругому не хотел запускатся ! Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #203953 Posted August 3, 2014 прмшлось менять флаг на этот Flags: external recursesubdirs skipifsourcedoesntexist; подругому не хотел запускатся ! Установку шрифтов не рекомендуется через эти флаги ставить. А не захотел запускаться, потому что ты где-то накосячил. Quote Share this post Link to post Short link Share on other sites
ODINOKIY VOLK 1 #203999 Posted August 3, 2014 (edited) Установку шрифтов не рекомендуется через эти флаги ставить. А не захотел запускаться, потому что ты где-то накосячил. вот и я хотьлбы догодатся где , вкрутил его в файлы как он и прописан был . И ругается он именно на флаг . Edited August 3, 2014 by ODINOKIY VOLK Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #204011 Posted August 3, 2014 (edited) вот и я хотьлбы догодатся где , вкрутил его в файлы как он и прописан был . чивойсь? И ругается он именно на флаг . Скрин в студию. Edited August 3, 2014 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites