[Gnom_aka_Lexander]

Raf-9600,

Код:

procedure ComponentsListClickCheck(Sender: TObject);
var
  i : Integer;
begin
  for i := 0 to WizardForm.ComponentsList.ItemCount -1 do
  begin
    case WizardForm.ComponentsList.ItemCaption[i] of
      '1.04c', '1.05b' : // перечисляем через запятую надписи компонентов, которые зависят от GameLoD
      WizardForm.ComponentsList.ItemEnabled[i] := not (IsComponentSelected('GameLoD') or IsComponentSelected('Mod\PlugY'));

      '1.07', '1.08' :
      WizardForm.ComponentsList.ItemEnabled[i] := IsComponentSelected('GameLoD') and not IsComponentSelected('Mod\PlugY');

      ExpandConstant('{cm:Text}'), ExpandConstant('{cm:VoiceDiablo2}'), ExpandConstant('{cm:VersionGame}') :
      begin
        WizardForm.ComponentsList.Checked[i] := IsComponentSelected('Game\Full');
        WizardForm.ComponentsList.ItemEnabled[i] := not IsComponentSelected('Game\Full');
      end;
    end;
  end;
  OldEvent_ComponentsListClickCheck(Sender);
end;