[SOURCE="inno"][Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp
ShowComponentSizes=no
[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl
[Types]
Name: full; Description: Full installation; Flags: iscustom
[Components]
Name: text; Description: Язык интерфейса:; Types: full; Flags: fixed
Name: text\eng; Description: Английский; Flags: exclusive
Name: text\rus; Description: Русский (Бука); Flags: exclusive
Name: text\rus; Description: Русский (Фаргус); Flags: exclusive
Name: voice; Description: Язык озвучки:; Types: full; Flags: fixed
Name: voice\eng; Description: Английский; Flags: exclusive
Name: text\rus; Description: Русский (Бука); Flags: exclusive
Name: voice\rus; Description: Русский (Фаргус); Flags: exclusive
Name: mod1; Description: Установить GrayFace MM6 Path v.1.11.1
Name: mod2; Description: Установить Мод «Заговор Хаоса»;
Name: mod3; Description: Создать ярлык на рабочем столе;
Код:
procedure CompOnClick(Sender: TObject);
begin
with WizardForm.ComponentsList do begin
if Checked[9] then begin
Checked[1]:= True;
Checked[5]:= True;
ItemEnabled[2]:= False;
ItemEnabled[3]:= False;
ItemEnabled[6]:= False;
ItemEnabled[7]:= False;
end else begin
ItemEnabled[2]:= True;
ItemEnabled[3]:= True;
ItemEnabled[6]:= True;
ItemEnabled[7]:= True;
end;
end;
end;
procedure InitializeWizard();
begin
with WizardForm.ComponentsList do begin
TreeViewStyle:= True;
OnClickCheck:= @CompOnClick;
CompOnClick(nil);
end;
end;[/SOURCE][/MORE]