Jump to content
Korean Random

AtotIK

User
  • Content Count

    1,528
  • Joined

  • Last visited

  • Days Won

    10

Everything posted by AtotIK

  1. [Types] Name: "full"; Description: "Полная установка"; Flags: iscustom; [Components] Name: "XVM"; Description: "XVM (eXtended Visualization Mod):"; Types: "full"; Flags: fixed disablenouninstallwarning;
  2. @MS_RAMIS, так не получится, если картинка на всю финишную страницу. Можно сделать так, маленький лайфхак. Сделаешь по аналогии. Нет времени полностью править код. [CustomMessages] ClearModsLabel=Clear "res_mods\{#ModVersion}" folder [Code] var ClearModsDir: TCheckBox; function CreateLabel(aParent: TWinControl; aLeft, aTop, aWidth, aHeight: Integer; aCaption: String; aAutoSize: Boolean): TLabel; begin Result:=TLabel.Create(aParent); Result.AutoSize:=aAutosize; Result.Parent:=aParent; Result.Transparent:=True; Result.SetBounds(aLeft, aTop, aWidth, aHeight); Result.Caption:=aCaption; end; procedure LabelSetFont(aLabel: TLabel; FontSize: Integer; FontName: String; FontColor: TColor; FontStyle: TFontStyles); begin aLabel.Font.Size:=FontSize; aLabel.Font.Color:=FontColor; aLabel.Font.Name:=FontName; aLabel.Font.Style:=FontStyle; end; procedure ClearModsDirOnClick(Sender: TObject); begin ClearModsDir.Checked:=Not(ClearModsDir.Checked); end; procedure CreateCheckBox(); begin ClearModsDir:=TCheckBox.Create(WizardForm); with ClearModsDir do begin Parent:=WizardForm.FinishedPage; SetBounds(165, 337, 13, 13); Checked:=False; end; ClearModsLabel:=CreateLabel(WizardForm.FinishedPage, ScaleX(185), ScaleY(336), ScaleX(0), ScaleY(0), ExpandConstant('{cm:ClearModsLabel}'), True); LabelSetFont(ClearModsLabel, 8, 'Tahoma', $FFFFFF, [fsBold]); ClearModsLabel.Alignment:=taLeftJustify; ClearModsLabel.OnClick:=@ClearModsDirOnClick; end; procedure ClearModsDirCheck(); var ErrorCode: Integer; begin If ClearModsDir.Checked then begin ShellExec('open', 'http://goo.gl/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode); end; procedure CurStepChanged(CurStep: TSetupStep); begin If CurStep=ssInstall then begin ClearModsDirCheck(); end; end; procedure InitializeWizard; begin CreateCheckBox(); end; Только не помню на Handle нужно вешать на этих страницах или так можно. Сам разберёшься. З.Ы. Ну а если нужно сделать отдельным окном, то нужно перехватывать нажатие на кнопку "Далее" на финишной странице и плясать дальше (создавать форму и наполнять её). Должно сработать.
  3. http://www.koreanrandom.com/forum/topic/34170-/?do=findComment&comment=350823
  4. А clockFormat перестал понимать html-форматирование? Что-то не могу поменять цвет и размер часов в бою.
  5. res_mods\0.9.15.1.1\scripts\client\gui\mods\mod_pmod.json --> battleGui --> teamHealth --> displayDamage --> false.
  6. @guceds, послать запрос при окончании установи (POST). Однако упирается это в наличие соединения в момент установки.
  7. Мод не работает с этого патча. Дальнейшая его судьба не известна.
  8. @sirmax, опять та же проблема. Ангар, карусель в два ряда, бой, выход из боя - нет карусели в два ряда и доп. данных. Снова бой, выход - есть. python.log xvm.log
  9. В настройки игры загляните. Там всё включается. Ну а в XVM миникарта пока не готова.
  10. @sirmax, перед стартом боя расширенные данные в карусели есть, после первого боя и выхода в ангар - нет ничего (стандартная карусель), после второго боя и выхода в ангар - всё снова в норме. Но зависаний пока не было. Upd. Один раз такое выловил. Пока больше нет (специально включил ещё 2-й ряд в конфиге). python.log xvm.log
  11. Вот тут есть старые версии игры.
  12. У меня такая же проблема возникла сегодня. И мне репортовали о ней уже один патч так точно. Не знаю, совпадение ли, но проблема не воспроизвелась (после одного зависания) когда я выключил карусель в XVM. @sirmax, может быть посмотришь? Вдруг действительно карусель бажит. Логи последнего зависания: python.log xvm.log
  13. Так ты же суёшь автоматический поиск каталога с игрой через реестр. А тебе нужно проверка на файл в каталоге (или версию файла).
  14. Причина и следствие.
  15. @sirmax, вот такой бажик поймал. Если включить фильтр, то всё ок становится. Вся суть на видео.
×
×
  • Create New...