View difference between Paste ID: KEsXxznZ and rrQX2GUr

 [Setup]
 AppName=My Program
 AppVerName=My Program version 1.5
 DefaultDirName={pf}\My Program
 
 [Files]
 Source: Leeme1.rtf; Flags: dontcopy
 Source: Leeme2.rtf; Flags: dontcopy
 Source: Leeme3.rtf; Flags: dontcopy
 Source: Button1.bmp; Flags: dontcopy
 Source: Button2.bmp; Flags: dontcopy
 Source: Button3.bmp; Flags: dontcopy
 Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: {app}; Flags: ignoreversion; Check: CheckedBox(0)
 Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.chm"; DestDir: {app}; Flags: ignoreversion; Check: CheckedBox(1)
 
 [Code]
 var
   Page: TWizardPage;
   ListBox: TNewCheckListBox;
   Memo: TRichEditViewer;
   CheckLabel: TLabel;
   MouseY: integer;
   BitmapImage: TBitmapImage;
   InfoBmp: array of TBitmap;
 
 function CheckedBox(ItemNumber: integer): Boolean;
 begin
   Result:= ListBox.Checked[ItemNumber];
 end;
 procedure CheckOnClick (Sender: TObject);
 begin
   if MouseY < ListBox.Items.Count then
     begin
       ListBox.Checked[MouseY]:= Not(ListBox.Checked[MouseY]);
     end;
 end;
 
 procedure CheckMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
 begin
   MouseY:= Y/ScaleY(16);
   if MouseY < ListBox.Items.Count then
     begin
       Memo.RTFText:= TStrings(ListBox.ItemObject[MouseY]).Text;
       BitmapImage.Bitmap:= InfoBmp[MouseY];
     end;
 end;
 
 procedure InitializeWizard();
 var
   i: integer;
 begin
   ExtractTemporaryFile('Leeme1.rtf');
   ExtractTemporaryFile('Leeme2.rtf');
   ExtractTemporaryFile('Leeme3.rtf');
   ExtractTemporaryFile('Button1.bmp');
   ExtractTemporaryFile('Button2.bmp');
   ExtractTemporaryFile('Button3.bmp');
 
   Page:=CreateCustomPage(wpWelcome, 'blabla1', 'blabla2, blabla 3')
 
   ListBox:= TNewCheckListBox.Create(Page);
   with ListBox do
     begin
       Left   := 15
       Top    := 0
       Width  := 200
       Height := 149
       Parent := Page.Surface
       AddCheckBox('blabla', '', 0, True, True, True, True, TStringList.Create);
       AddCheckBox('blabla blabla', '', 1, True, True, False, True, TStringList.Create);
       AddCheckBox('blabla f blabla', '', 1, True, True, False, True, TStringList.Create);
 
       TStrings(ItemObject[0]).LoadFromFile(ExpandConstant('{tmp}\Leeme1.rtf'));
       TStrings(ItemObject[1]).LoadFromFile(ExpandConstant('{tmp}\Leeme2.rtf'));
       TStrings(ItemObject[2]).LoadFromFile(ExpandConstant('{tmp}\Leeme3.rtf'));
     end;
 
   Memo:= TRichEditViewer.Create(Page);
   with Memo do
     begin
       Left        := ListBox.Left + ListBox.Width + 8;
       Top         := ListBox.Top;
       Width       := ListBox.Width;
       Height      := ListBox.Height;
       Color       := clBtnFace;
       Enabled     := False;
       BorderStyle := bsNone;
       Parent      := Page.Surface;
     end;
 
   CheckLabel:= TLabel.Create(Page);
   with CheckLabel do
     begin
       Width       :=ListBox.Width;
       Height      :=ListBox.Height;
       Autosize    :=False;
       Transparent :=True;
       OnMouseMove :=@CheckMouseMove;
       OnClick     :=@CheckOnClick;
       Parent      :=ListBox;
       Cursor      := 1;
     end;
 
   BitmapImage := TBitmapImage.Create(Page);
   with BitmapImage do
     begin
       AutoSize := True;
       Left        := ListBox.Left;
       Top         := ListBox.Top + ListBox.Height + 8;
       Width       := ListBox.Width;
       Height      := 32;
       Parent := Page.Surface;
     end;
 
   for i:=0 to ListBox.Items.Count - 1 do
     begin
       SetArrayLength(InfoBmp, i+1);
       InfoBmp[i]:= TBitmap.Create;
     end;
   InfoBmp[0].LoadFromFile(ExpandConstant('{tmp}\Button1.bmp'));
   InfoBmp[1].LoadFromFile(ExpandConstant('{tmp}\Button2.bmp'));
   InfoBmp[2].LoadFromFile(ExpandConstant('{tmp}\Button3.bmp'));
 end;