[Raf-9600]

после НГ накидаю, если не забуду, сейчас уже не в состоянии »

А я уже нашёл выход. Правда не знаю ли он достаточно производителен, но с флагом collapsed дружит

Код:

procedure InitializeWizard();
var
    iFile: TIniFile;
    i: Integer;
    
begin
  iFile := ParseIniFile(ExpandConstant('{src}\PreSelector.ini'));
    
  for i := 0 to WizardForm.ComponentsList.ItemCount - 1 do
  begin
    case WizardForm.ComponentsList.ItemCaption[i] of
    
      CustomMessage('backup') :
      WizardForm.ComponentsList.Checked[i] := GetIniValue('Game', 'Backup', '', iFile) = 'true';
    end;
  end;
end;

[Gnom_aka_Lexander]

WizardForm.ComponentsList.Checked[i] »

не рекомендую именно так делать.
WizardForm.ComponentsList.CheckItem(i, coCheck); для выбора компонента
WizardForm.ComponentsList.CheckItem(i, coUncheck); для снятия галки с компонента.
Почему именно так? потому, что при этом выполняется OnClickCheck для ComponentsList, чего не происходит при вашем варианте. и при обновлении, как не расставляй галки, с помощью Checked, при установке это не будет учтено. плюч даля зависимых компонентов при данном способе, достаточно указать только то, что должно быть выбрано, отпадает нужда проверять ошибки в выборе зависимых компонентов, что уже громадный плюс к производительности. ну и фугкцию лучше все-таки булевую использовать, тем более что джонни дал пример.

[Raf-9600]

и при обновлении, как не расставляй галки, с помощью Checked, при установке это не будет учтено. »

Не понял.

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

У меня такая проблема вообще не стоит. Мне как рас нужно чтобы к примеру если пользователь выбрал "Локализация" то автоматически выбирался дочерний компонент "Резервная копия".

потому, что при этом выполняется OnClickCheck для ComponentsList, чего не происходит при вашем варианте »

А чем OnClickCheck полезен? (сорри, я нуб)

WizardForm.ComponentsList.CheckItem(i, coCheck); для выбора компонента »

Когда пишу так, то компилятор жалуется на ошибку синтаксиса:

Код:

WizardForm.ComponentsList.CheckItem(i, coCheck) := GetIniValue('Game', 'Backup', '', iFile) = 'true';

ну и фугкцию лучше все-таки булевую использовать, тем более что джонни дал пример »

Я знаю и позже её встрою.

[Gnom_aka_Lexander]

Когда пишу так, то компилятор жалуется на ошибку синтаксиса: »

потому что нужно так:

Код:

if GetIniValue('Game', 'Backup', '', iFile) = 'true' then WizardForm.ComponentsList.CheckItem(i, coCheck)

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

[Raf-9600]

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

Наверно я снова чего-то недопонял. Только что попробовал "свой" вариант, и установил компонент Game\Full, потом сразу запустил инсталлятор повторно и он по умолчанию выбрал Game\Lokal (который прописан в .ini). Ваш код повел себя точно так же. Это конечно недостаток, так как я использую деинсталлятор UninsHs, который добавляет функции изменить набор компонентов и восстановить. Так вот то что при повторном запуске инсталлятора будет не тот набор компонентов что устанавливал пользователь, а тот что прописан в .ini, затруднит использования функции изменения компонентов, а как себя поведет функция "восстановить" я даже не представляю.

[Gnom_aka_Lexander]

Raf-9600, я просто говорю, как будет более правильно чекать компоненты. как делать на самом деле - дело исключительно ваше. может и я не прав, но есть ощущение у меня, что все-таки именно предложенный мной вариант более правилен.

[Johny777]

Raf-9600, 100 компонетов - много,
Мой тебе добрый совет - разбей компнеты по тематической составляющей
получившиеся группы компонетов помести на страницы настройки TInputOptionWizardPage или простые страницы с чеклистбоксами на них
короче делай что-то вроде инсталла K-Lite Codec Pack который хоть и перегружен настройками, но не под каким углом не напрягает свалившейся сразу информацией

[Raf-9600]

100 компонетов - много »

127, если быть точнее

Мой тебе добрый совет - разбей компнеты по тематической составляющей »

вот так сойдёт?


У меня ещё один нубский вопрос: как сделать чтобы и на SelectTasksPage галочки тоже расставлялись в зависимости от того что указано в .ini?
И есть ли возможность сделать чтобы компоненты узнавались не по названию, а по номеру? Ибо внезапно оказалось что у меня просто туча разных компонентов с одинаковыми названиями =\

[Johny777]

У меня ещё один нубский вопрос: как сделать чтобы и на SelectTasksPage галочки тоже расставлялись в зависимости от того что указано в .ini? »

вкладка Support говорит нам, что на странице задач тоже самое что и на странице компонентов (только другого цвета и без границ), поэтому также как и с компонентами, только светую для простоты создать отдельную секцию в ини
ComponentsList: TNewCheckListBox;
TasksList: TNewCheckListBox;
RunList: TNewCheckListBox;

И есть ли возможность сделать чтобы компоненты узнавались не по названию, а по номеру? »

можно - по индексу. Например добавленные сверху вниз 10 компонентов, где у первого идекс равен 0, а у 10-го индекс - 9
только чтоб у тебя не было, что один компонент добавляется в зависимости от чего-то, а то компонента в середине нет, номера сдвинутся и получится ерунда
WizardForm.ComponentsList.Checked[индекс]

вот так сойдёт? »

вечный Diablo 2 пакуешь! Хорошо!
типа того, например у диаблы знаю 3 озвучки и разные варианты видео - на одну страницу, кастомную
короче я б сделал так (комментарии внутри)

читать дальше »

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DisableProgramGroupPage=yes
UninstallDisplayIcon={app}\MyProg.exe
OutputDir=.

[Components]
Name: a; Description: a
Name: b; Description: b
Name: c; Description: c
Name: d; Description: d

[Files]
; это озвучка от Фаргуса
Source: {fonts}\*; DestDir: {app}; Flags: external; Check: Install('озвучка от 8бит');

; это субтитры от Фаргуса
Source: {fonts}\*; DestDir: {app}; Flags: external; Check: Install('видео от 8бит');

; заметь отмечаемые радиокнопки с одинаковым тестом -   от 8бит


[  Code]
var
  SoundPage, VideoPage, SubtittlesPage: TInputOptionWizardPage;
  
function Install(sText: String): boolean;
begin
  case sText of
    'озвучка от 8бит': Result := SoundPage.SelectedValueIndex = 0;
    'видео от 8бит': Result := VideoPage.SelectedValueIndex = 0;
  end;
end;
  
procedure InitializeWizard;
begin
  SoundPage := CreateInputOptionPage(wpSelectComponents, 'Выбор озвучки', '', '', True, False);
  with SoundPage do
  begin
    SubCaptionLabel.Caption := 'Озвучка:';
    AddEx('от 8бит',  0, True);
    SelectedValueIndex := 0; /// по дефолту отмечен
    Values[0] := GetIniValue('Sound', '8bit', '', iFile) = 'true';
    AddEx('от Фаргуса',  0, True);
    Values[1] := GetIniValue('Sound', 'Fargus', '', iFile) = 'true';   // итд. Советую для звука, видео и субтитров сделать по отдельной секции в ини
    AddEx('от "русский проект"',  0, True);
    AddEx('английская',  0, True);
  end;
  
  VideoPage := CreateInputOptionPage(SoundPage.ID, 'Выбор видео', '', '', True, False);
  with VideoPage do
  begin
    SubCaptionLabel.Caption := 'Видео:'
    AddEx('от 8бит',  0, True);
    AddEx('от Фаргуса',  0, True);
    AddEx('от "русский проект"',  0, True);
    AddEx('английская',  0, True);
    SelectedValueIndex := 1;
  end;
  

  SubtittlesPage := CreateInputOptionPage(VideoPage.ID, 'Выбор субтитров', '', '', True, False);
  with SubtittlesPage do
  begin
    SubCaptionLabel.Caption := 'Субтитры:'
    AddEx('английские',  0, True);
    AddEx('русские',  0, True);
    SelectedValueIndex := 1;
  end;
end;

ещё советую изучить \Inno Setup 5\Examples\Example_NewCheckListBox.iss

[Raf-9600]

типа того, например у диаблы знаю 3 озвучки и разные варианты субтитров - на одну страницу, кастомную короче я б сделал так (комментарии внутри) »

У меня выбор из семи языков и шести русских озвучек. Плюс к тому огромная куча других компонентов, как к примеру выбор музыки или модификаций типа PlugY и MultiRes. Если я всю эту араву начну делить на страницы, то это будет ахтунг.
Соль в том, что по умолчанию я уже выбрал лучший набор компонентов, и предполагается что юзер там вообще ничего не должен менять. Как показала практика, юзер действительно не хочет ничего выбирать, ему бы лиш бы быстрее на кнопку "далее" покликать, что в твоём варианте более затруднительно чем в моём

Кстати, если поклонник этой игры, можешь скачать, оценить - (удалено) (мне сказали что варез тут запрещён, так что кому нужна ссылка - в ЛС пишите.)