[Setup]
AppName = MyApp
AppVerName = MyApp
DefaultDirname = {pf}\MyApp
OutputDir=.
[Components]
Name: "name"; Description: "description"; Types: full compact custom; Flags: fixed
Name: "name\01"; Description: "description01"; Flags: exclusive
Name: "name\02"; Description: "description02"; Flags: exclusive
Name: "new_name"; Description: "new_description"; Types: custom
Name: "new_name\01"; Description: "new_description01"; Flags: exclusive
Name: "new_name\02"; Description: "new_description02"; Flags: exclusive
[Code]
procedure CompOnClick(Sender: TObject);
begin
with WizardForm.ComponentsList do begin
if Checked[5] then Checked[2]:= true;
if Checked[4] then Checked[1]:= true;
end;
end;
procedure InitializeWizard();
begin
WizardForm.ComponentsList.OnClickCheck:= @CompOnClick;
end; |
