Jump to content
Korean Random

Andrew_Dark

User
  • Posts

    398
  • Joined

  • Last visited

  • Days Won

    2

Posts posted by Andrew_Dark

  1. Edited by Darksoul

    Исправил, изменив функцию, на

    function clbIsItemCheckedByName(clbind:integer; Name:AnsiString):boolean;
    var
      ii:integer;
    begin
      ii:=clbFindItemByName(clbind,Name);
      if ii <> -1 then Result:=CheckBoxGetChecked(ACLB[clbind].ItemList[ii].Handle) else Result:=False;
    end;

    Плюс я немного тупанул был, не закомментил лишнее.

    • Downvote 1
  2. Edited by Darksoul

    Ловлю ошибку Out of Range в скрипте, помогите поправить кто либо.

    Плюс не находит и не распаковывает файлы модов из вложенных файлов, только если вложенность типа "папка\файл".

     

     

    • Downvote 1
  3. Всех с праздниками ребят! Сейчас работаю вот с этим кодом: 02_CheckListBox.iss 

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

  4. В 01.11.2017 в 23:01, EternallyAgainst сказал:

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

     

    Проблема решена. Купил GTX1060 6gb, с nvenc всё летает с очень высокими настройками (что-то даже не верится, что так все идеально "летает") :)

     

    Спасибо :)

    У тебя какая именно 1060? У меня G1 Gaming от Gigabyte, тоже всё летает в связке с i7 4790 и 16 GB RAM:)

    • Upvote 1
  5. 2 часа назад, P.S.Enot сказал:

    Это как в поговорке обсуждаете за спиной, так за одно не забудьте поцеловать  меня в зад.

    Или вот еще  : Вокруг столько осведомлённых о моей жизни людей, что иногда хочется подойти и спросить: - Ну, чё, как там у меня дела?! 🦎

    Да задолбали уже просто))) Ну пусть балуются.

    • Upvote 1
    • Downvote 1
  6. Edited by Darksoul

    10 часов назад, ЛОМ сказал:

     

    у меня вот так...

     

    
    function CreateLogMods: Boolean;
    var
      I: Integer;
      FileName, DateTime: String;
    begin
      Result:=True;
      DateTime:=GetDateTimeString('dd/mm/yyyy  hh:nn', '-', '-');
      ForceDirectories(ExpandConstant('{app}\ХХХ-удалить'));
      FileName:=ExpandConstant('{app}\ХХХ-удалить\install.log');
      SaveStringToFile(FileName, + #13#10 + #13#10 + '{#MyAppName} version {#MyAppVersion}' + #13#10 + #13#10 +  'Дата установки: ' + DateTime + #13#10 + #13#10 + 'Путь установки: ' +  WizardForm.DirEdit.Text +  #13#10 + #13#10 + 'Выбранные вами моды:' + #13#10, True);
        For I:=0 to WizardForm.ComponentsList.Items.Count - 1 do
            If WizardForm.ComponentsList.Checked[I] then
        begin
            SaveStringToFile(FileName, '1...  ' + WizardForm.ComponentsList.ItemCaption[I] + #13#10, True);
        end;
        For I:=0 to ComponentsList2.Items.Count - 1 do
            If ComponentsList2.Checked[I] then
        begin
            SaveStringToFile(FileName, '2...  ' + ComponentsList2.ItemCaption[I] + #13#10, True);
        end;
        For I:=0 to WizardForm.TasksList.Items.Count - 1 do
            If WizardForm.TasksList.Checked[I] then
        begin
            SaveStringToFile(FileName, '3...  ' + WizardForm.TasksList.ItemCaption[I] + #13#10, True);
        end;
    end;

     

    Спс, попробую, ибо это один из последних штрихов, что остались для допила. С меня + в репу.

    Ап. Попробовал, не подошло, у меня немного по другому сами страницы запилены, и этот вариант поэтому не проходит, буду думать, чё можно сделать, но за попытку помочь спасибо.

    • Upvote 2
    • Downvote 2
  7. Есть код, который отвечает за вывод в файл лога установленных модов.



    function CreateLogMods: Boolean;
    var
      I: Integer;
      FileName, DateTime: String;
    begin
      Result:=True;
      DateTime:=GetDateTimeString('dd/mm/yyyy  hh:nn', '-', '-');
      FileName:=ExpandConstant('{app}\{#MyAppName}\Лог установки модов от ' + DateTime + '.log');
      SaveStringToFile(FileName, '"{#MyAppName} {#Patch} - {#MyAppVer}"' + #13#10 + #13#10 +  'Дата установки - ' + DateTime + #13#10 + #13#10 + 'Выбранные вами моды:' + #13#10, True);
        For I:=0 to WizardForm.ComponentsList.Items.Count - 1 do
             If WizardForm.ComponentsList.Checked[I] then
        begin
             SaveStringToFile(FileName, '... ' + WizardForm.ComponentsList.ItemCaption[I] + #13#10, True);
          end;
      SaveStringToFile(Filename, + #13#10 + 'Дополнительные задачи:' + #13#10, true);
      
      for i:= 0 to WizardForm.TasksList.Items.Count - 1 do begin
        if WizardForm.TasksList.Checked[i] then
          SaveStringToFile(Filename, '... '+WizardForm.TasksList.ItemCaption[i] + #13#10, true);
      end;
    end;
    //""""""""""""""""""""""""""""""""""""""""""""""//
    procedure CreateLogModsChanged(CurStep: TSetupStep);
    begin
       If CurStep=ssInstall then
    begin
      CreateDir(ExpandConstant('{app}\{#MyAppName}'));
      CreateLogMods;
    end;
    end;
    [/spoiler]

    Как сделать так, чтобы он цеплял инфу из нескольких страниц с модификациями?
     

    • Upvote 2
    • Downvote 1
  8. Edited by Darksoul

      а

    В 05.10.2017 в 20:50, sergy2010 сказал:

     

    59d670bf3beaa___.png.686900063d9477b5eae0b0b2797d98a9.png

    кто нибудь подскажите как эти кнопки называются в Messages

     

     

    В редакторе форм не смотрел? Там есть эти кнопки, но дружище Експ скинул сразу все ниже...

    • Downvote 1
  9. Лови из благодарности, если понравиться, поставь плиз на лампу в конфиг)))

    sixthSense.mp3


    У меня нормально запустился клиент при смене локализации с русского на украинский.

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

  10. Edited by Darksoul

    Блин, не пашет хвм 6.6.5 и твой конфиг, запускаю - вылет игры. Пробовал конфиг Димона - всё норм.
    Просто хочется на твоём поиграть, и вроде не впервой конфиги ставить, тем более папку конфигс скопировать к дефолтному хвму я в состоянии, просто прошу помощи в разбирании с чём может быть трабла. Может потому, что локаль клиента укр? Дефолтный конфиг и с редактированием, и без пашет норм, хоть бери самостоятельно приводи его в вид твоего конфига)))

  11. а что вы можете предложить из чит модов?

    Нашёл на каком форуме спросить))))

    А ЧТО ТЫ МОЖЕШЬ ИНДИВИДУАЛЬНО ЗА 500 БАКСОВ СДЕЛАТЬ?

    За 500 баксов могу многое, если имеется ввиду Работа с модами и установщиками, а если вопрос с немного "другим" контекстом, то на подобные темы я не трачу своё время.

    • Upvote 2
    • Downvote 3
×
×
  • Create New...