[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
procedure InitializeWizard();
begin
      WizardForm.Color := clSilver;
      WizardForm.AutoScroll := False;
      WizardForm.ClientHeight := ScaleY(395);
      WizardForm.ClientWidth := ScaleX(635);

      WizardForm.WizardBitmapImage.Width := ScaleX(170);
      WizardForm.WizardBitmapImage.Height := WizardForm.ClientHeight;
      WizardForm.WizardBitmapImage.Parent := WizardForm;

      WizardForm.OuterNotebook.Left := WizardForm.WizardBitmapImage.Width;
      WizardForm.OuterNotebook.Width :=  WizardForm.ClientWidth-WizardForm.WizardBitmapImage.Width;
      WizardForm.OuterNotebook.Height := ScaleY(345);
      WizardForm.Bevel.Left := WizardForm.WizardBitmapImage.Width;
      WizardForm.Bevel.Top := WizardForm.OuterNotebook.Height;
      WizardForm.Bevel.Width := WizardForm.OuterNotebook.Width;

      WizardForm.InnerNotebook.Left := ScaleX(8);
      WizardForm.InnerNotebook.Width := WizardForm.OuterNotebook.Width-16;
      WizardForm.InnerPage.Color := clSilver;

      WizardForm.MainPanel.Left := WizardForm.WizardBitmapImage.Width;
      WizardForm.MainPanel.Width := WizardForm.ClientWidth-WizardForm.WizardBitmapImage.Width;
      WizardForm.MainPanel.Parent := WizardForm;
      WizardForm.MainPanel.Color := clGray;

      WizardForm.WizardSmallBitmapImage.Left := WizardForm.MainPanel.Width-WizardForm.WizardSmallBitmapImage.Width;
      WizardForm.WizardSmallBitmapImage.Top := ScaleY(0);

      WizardForm.PageDescriptionLabel.Left := ScaleX(32);
      WizardForm.PageDescriptionLabel.Width := WizardForm.MainPanel.Width-WizardForm.WizardSmallBitmapImage.Width-WizardForm.PageDescriptionLabel.Left;

      WizardForm.PageNameLabel.Width := WizardForm.MainPanel.Width-WizardForm.WizardSmallBitmapImage.Width-WizardForm.PageNameLabel.Left-10;

      WizardForm.BeveledLabel.Left := WizardForm.WizardBitmapImage.Width;
      WizardForm.BeveledLabel.Top := WizardForm.OuterNotebook.Height;

      WizardForm.CancelButton.Left := ScaleX(535);
      WizardForm.CancelButton.Top := ScaleY(360);

      WizardForm.NextButton.Left := ScaleX(445);
      WizardForm.NextButton.Top := ScaleY(360);

      WizardForm.BackButton.Left := ScaleX(365);
      WizardForm.BackButton.Top := ScaleY(360);

      WizardForm.WelcomePage.Color := clSilver;

      WizardForm.WelcomeLabel2.Left := ScaleX(16);
      WizardForm.WelcomeLabel2.Top := ScaleY(167);
      WizardForm.WelcomeLabel2.Width := ScaleX(437);
      WizardForm.WelcomeLabel2.Height := ScaleY(135);

      WizardForm.WelcomeLabel1.Parent := WizardForm.MainPanel;
      WizardForm.WelcomeLabel1.Left := ScaleX(0);
      WizardForm.WelcomeLabel1.Top := ScaleY(20);
      WizardForm.WelcomeLabel1.Width := WizardForm.MainPanel.Width;

      WizardForm.LicenseNotAcceptedRadio.Left := ScaleX(24);

      WizardForm.LicenseAcceptedRadio.Left := ScaleX(24);

      WizardForm.LicenseMemo.Width := WizardForm.InnerNotebook.Width;

      WizardForm.DirBrowseButton.Left := ScaleX(366);
      WizardForm.DirBrowseButton.Top := ScaleY(81);
      WizardForm.DiskSpaceLabel.Top := ScaleY(112);
      WizardForm.GroupBrowseButton.Left := ScaleX(366);
      WizardForm.GroupBrowseButton.Top := ScaleY(214);
      WizardForm.GroupBrowseButton.Parent := WizardForm.SelectDirPage;

      WizardForm.DirEdit.Left := ScaleX(24);
      WizardForm.GroupEdit.Left := ScaleX(24);
      WizardForm.GroupEdit.Top := ScaleY(216);
      WizardForm.GroupEdit.Parent := WizardForm.SelectDirPage;

      WizardForm.SelectGroupBitmapImage.Top := ScaleY(136);
      WizardForm.SelectGroupBitmapImage.Parent := WizardForm.SelectDirPage;

      WizardForm.NoIconsCheck.Top := ScaleY(220);
      WizardForm.NoIconsCheck.Parent := WizardForm.SelectDirPage;

      WizardForm.SelectStartMenuFolderBrowseLabel.Parent := WizardForm.SelectDirPage;
      WizardForm.SelectStartMenuFolderBrowseLabel.Top := ScaleY(180);

      WizardForm.SelectStartMenuFolderLabel.Parent := WizardForm.SelectDirPage;
      WizardForm.SelectStartMenuFolderLabel.Top := ScaleY(145);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
    if CurPageID = wpWelcome then WizardForm.WizardSmallBitmapImage.Hide else WizardForm.WizardSmallBitmapImage.Show;
    if CurPageID = wpWelcome then WizardForm.WelcomeLabel1.Show else WizardForm.WelcomeLabel1.Hide;
end;

[Setup]
AppName=MyApp
AppverName=MyApp
DefaultDirname={pf}

[ISToolPreCompile]
#define isFalse(any S)  (S = LowerCase(Str(S))) == "no" || S == "false" || S == "off" ? "true" : "false"
#define Lines ""
#define K ""
#define T ""
#define St ""
#define FindSection ""
#define Current AddBackslash(GetEnv("TEMP")) + GetDateTimeString('dd/mm-hh:nn', '-', '-') +'.iss'
#sub AddString
   #expr St = FileRead(faAnyFile)
   #if (K > T) && (Pos("[", St)>0) && (Pos("]", St)>0)
     #Define E
     #insert E = K
   #endif
   #if (K > T) && (St != "") && (Pos(";", St)!=1) && (Pos("/", St)!=1) && !defined(E)
     #expr Lines != "" ?  Lines = Lines+"|"+St : void, Lines == "" ? Lines = st : void
   #endif
#endsub
#sub GetLines
  #expr SaveToFile(Current)
   #expr faAnyFile = FileOpen(Current)
   #insert T = Find(0, FindSection)
   #for {K = 0; !FileEof(faAnyFile); K=K+1} AddString
  #expr FileClose(faAnyFile)
  #expr DeleteFile(Current)
#endsub
//прототип функции
;#define SourceToProgress() FindSection = "[ArcFiles]", GetLines, Archives = lines
#define Comps
#define ParseComponents() FindSection = "[Components]", GetLines, Comps = Lines

[Components]
Name: rot; Description: "1st component";
name: rot\1; Description: "2nd component";
name: rot\2; Description: "3rd component";
name: rot\3; Description: "4th component";
name: rot\3\11; Description: "5th component";
name: rot\3\12; Description: "6th component";
;name: main; Description: "4th component";
;name: main\1; Description: "5th component";
{#ParseComponents}

[code]
type
   TComponentRecord = record Box: TCheckBox; Desc: TLabel; Exclusive: Boolean; Name, Flags: string; Level: Byte; ItemID: Integer; ChaildID: array of Integer; end;

var
Comps: array of TComponentRecord; xComp: Integer; ActiveFlag1, ActiveFlag2: Boolean;

const
   LeftTab = 20;
   TopTab = 16;
   BoxWidth = 18;
   BoxHeight = 18;

procedure AddChaild(ParentID, ID: Integer);
var n: integer;
begin
   n:= GetArrayLength(Comps[ParentID].ChaildID); SetArrayLength(Comps[ParentID].ChaildID, n+1);
   Comps[ParentID].ChaildID[n]:= ID;
end;

function ISChaild(ParentID, ItemID: Integer): Boolean;
var n: integer;
begin
   Result:= False;
   for n:=0 to GetArrayLength(Comps[ParentID].ChaildID)-1 do begin
     if Comps[ParentID].ChaildID[n]=ItemID then begin
       Result:= True; Break;
     end;
   end;
end;

function GetParent(ItemID: Integer): Integer;
var n: integer;
begin
   Result:=-1;
   for n:= ItemID downto 0 do begin
     if ISChaild(n, ItemID) then begin
       Result:= n; Break;
     end;
   end;
end;

function NextParent(LastParent, ItemID: Integer): Integer;
var n: integer;
begin
   Result:=-1; if LastParent=0 then Exit;
   for n:= LastParent-1 downto 0 do begin
     if ISChaild(n, ItemID) then begin
       Result:= n; Break;
     end;
   end;
end;

procedure CompOnClick(Sender: TObject);
var i,n, b,f, z,x, CID,PID: Integer;
begin
if ActiveFlag1 then Exit;
//get index of sender
n:= xComp; CID:=0;
for i:=0 to n-1 do begin
   if (Comps[i].Box=Sender) or (Comps[i].Desc=Sender) then begin CID:= i; Break; end;
end;

//label click event
if (comps[CID].Desc = Sender) then begin
   Comps[CID].Box.Checked:= not Comps[CID].Box.Checked;
end;

if not ActiveFlag1 then begin
ActiveFlag1:= True;

if (CID<>(xComp-1))and(Comps[CID].Box.State<>cbGrayed) then begin
   for i:=0 to GetArrayLength(Comps[CID].ChaildID)-1 do begin
     f:= Comps[CID].ChaildID[i];
     Comps[f].Box.Checked:= Comps[CID].Box.Checked;
   end;
end;

PID:= GetParent(CID);
if PID<>-1 then begin
   repeat
     z:=0; x:=0;
     for i:=0 to GetArrayLength(Comps[PID].ChaildID)-1 do begin
       f:=Comps[PID].ChaildID[i];
       if (not Comps[f].Exclusive)and(Comps[f].Box.Checked) then x:=x+1;
       if Comps[f].Exclusive then z:=z+1;
     end;
     if (x=(GetArrayLength(Comps[PID].ChaildID)-z)) then Comps[PID].Box.Checked:= True else
     if (x=0) then Comps[PID].Box.Checked:= False else
     if (x>0)and(x<(GetArrayLength(Comps[PID].ChaildID)-z)) then Comps[PID].Box.State:= cbGrayed;
     Pid:= NextParent(PID, CID);
   until (PID=-1);
end;

for i:=0 to n-1 do begin
   WizardForm.ComponentsList.Checked[i]:= Comps[i].Box.Checked;
end;
end;

ActiveFlag1:= False;
end;

function TrimEx(S: String): String;
begin
   while S[1]=' ' do Delete(S, 1, 1);
   while S[Length(S)]=' ' do SetLength(S, length(S)-1);
   Result:= S;
end;

function ParseCmd(var S: string; Cmd: string): String;
var i, i1, k: Integer;
begin
i:= Pos(AnsiLowercase(Cmd), AnsiLowercase(S));
if i > 0 then begin
   k:=i; while (S[k]<>';')and(k<>Length(S)) do k:=k+1;
   i1:=i+length(cmd);
   Result:= Copy(S, i1, k-i1);
   Delete(S, i, k-i+1);
   Result:= TrimEx(result);
end;
end;

function DelQuotes(S: String): String;
begin
if (S<>'') then begin
   if (S[1]='"')and(S[Length(S)]='"') then begin
     Delete(S, 1, 1); SetLength(S, Length(S)-1);
   end;
end;
Result:= S;
end;

procedure ParseComponents(ALeft, ATop: Integer);
var i, N, k, Left, Top: Integer; Lvl: Byte; str: array of string; s1: string; skip: boolean;
begin
   s1:= '{#Comps}';
   repeat
     k:= Pos('|', s1);
     if k=1 then begin Delete(s1, 1, 1); CONTINUE end;
     if k>0 then begin
       i:= GetArraylength(str); SetArrayLength(str, i+1);
       str[i]:= Copy(s1, 1, k-1); Delete(s1, 1, k);
     end;
     if (k=0)and(Length(s1)>0) then begin
       i:= GetArraylength(str); SetArrayLength(str, i+1);
       str[i]:= s1; SetLength(s1, 0);
     end;
   until (Length(s1)=0);

   n:= WizardForm.ComponentsList.ItemCount; SetArrayLength(Comps, N); xComp:=N;
   for i:=0 to N-1 do begin
     lvl:= WizardForm.ComponentsList.ItemLevel[i]
     Comps[i].Name:= DelQuotes(ParseCmd(str[i], 'name:'));
     Comps[i].Flags:= DelQuotes(ParseCmd(str[i], 'flags:'));
     Comps[i].ItemID:= i;
      
     Comps[i].Box:= TCheckBox.Create(WizardForm);
     Comps[i].Box.SetBounds(ALeft+LeftTab*Lvl, ATop+TopTab*i, BoxWidth, BoxHeight);
     Comps[i].Box.Checked:= WizardForm.ComponentsList.Checked[i]
     Comps[i].Box.OnClick:= @CompOnClick;
     Comps[i].Box.Parent:= WizardForm.SelectDirPage;

     Comps[i].Desc:= TLabel.Create(WizardForm);
     Comps[i].Desc.SetBounds(ALeft+LeftTab*Lvl+BoxWidth+6, ATop+Toptab*i, 200, BoxHeight);
     Comps[i].Desc.Transparent:= True;
     Comps[i].Desc.Caption:= DelQuotes(ParseCmd(str[i], 'description:'));
     Comps[i].Desc.OnClick:= @CompOnClick
     Comps[i].Desc.Parent:= WizardForm.SelectDirPage
    
     Comps[i].Level:= Lvl;
   end;
   for i:= 0 to N-1 do begin
     skip:= false;
     for k:=i+1 to N-1 do begin
       if (Comps[k].Level<=Comps[i].Level) then Skip:= true;
       if (Comps[k].Level>Comps[i].Level)and(not skip) then
         AddChaild(i, k);
     end;
   end;
end;

procedure InitializeWizard();
begin
ParseComponents(20, 100)
end;