[Setup] AppName=AppName AppVerName=AppVerName DefaultDirName=C:\AppName [Files] Source: 1.exe; DestDir: {app}; Check: Checked1 Source: 2.exe; DestDir: {app}; Check: Checked2 Source: 3.exe; DestDir: {app}; Check: Checked3 [Code] Var Page: TWizardPage; Text1,Text2,Text3,Text4: TNewStaticText; Panel: TPanel; ListBox: TListBox; Check1,Check2,Check3: TCheckBox; NoChecks,Label1,Label2,Label3: TLabel; Function Checked1: Boolean; begin Result:=Check1.Checked end; Function Checked2: Boolean; begin Result:=Check2.Checked end; Function Checked3: Boolean; begin Result:=Check3.Checked end; Procedure Check1OnClick (Sender: TObject); begin Check1.Checked:=Not(Check1.Checked) end; Procedure Check2OnClick (Sender: TObject); begin Check2.Checked:=Not(Check2.Checked) end; Procedure Check3OnClick (Sender: TObject); begin Check3.Checked:=Not(Check3.Checked) end; procedure Check1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Text4.Enabled:=True Text4.Caption:='Описание компонента 1' end; procedure Check2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Text4.Enabled:=True Text4.Caption:='Описание компонента 2' end; procedure Check3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Text4.Enabled:=True Text4.Caption:='Описание компонента 3' end; procedure NoChecksMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Text4.Enabled:=False Text4.Caption:='Наведите курсор мыши на название компонента, чтобы прочесть его описание.' end; Procedure InitializeWizard(); begin Page:=CreateCustomPage(2, 'Компоненты устанавливаемой программы', 'Выберите компоненты, которые вы хотите установить.') Text1:=TNewStaticText.Create(Page) Text1.Left:=0 Text1.Top:=0 Text1.Width:=417 Text1.Height:=28 Text1.AutoSize:=False Text1.WordWrap:=True Text1.Caption:='Выберите компоненты программы, которые вы хотите установить. Нажмите на кнопку "Далее" для продолжения.' Text1.Parent:=Page.Surface Text2:=TNewStaticText.Create(Page) Text2.Left:=0 Text2.Top:=63 Text2.Width:=130 Text2.Height:=42 Text2.AutoSize:=False Text2.WordWrap:=True Text2.Caption:='Выберите компоненты программы для установки:' Text2.Parent:=Page.Surface Panel:=TPanel.Create(Page) Panel.Left:=135 Panel.Top:=178 Panel.Width:=282 Panel.Height:=52 Panel.BevelInner:=bvLowered Panel.Parent:=Page.Surface Text3:=TNewStaticText.Create(Page) Text3.Left:=140 Text3.Top:=172 Text3.Font.Color:=clBlue Text3.Caption:='Описание' Text3.Parent:=Page.Surface Text4:=TNewStaticText.Create(Page) Text4.Left:=4 Text4.Top:=8 Text4.Width:=274 Text4.Height:=40 Text4.AutoSize:=False Text4.WordWrap:=True Text4.Parent:=Panel NoChecks:=TLabel.Create(Page) NoChecks.Width:=WizardForm.Width NoChecks.Height:=WizardForm.Height NoChecks.Autosize:=False NoChecks.Transparent:=True NoChecks.OnMouseMove:=@NoChecksMouseMove NoChecks.Parent:=Page.Surface ListBox:=TListBox.Create(Page) ListBox.Left:=135 ListBox.Top:=60 ListBox.Width:=282 ListBox.Height:=110 ListBox.Parent:=Page.Surface Check1:=TCheckBox.Create(Page) Check1.Left:=2 Check1.Top:=0 Check1.Checked:=True Check1.Parent:=ListBox Check2:=TCheckBox.Create(Page) Check2.Left:=2 Check2.Top:=16 Check2.Checked:=True Check2.Parent:=ListBox Check3:=TCheckBox.Create(Page) Check3.Left:=2 Check3.Top:=32 Check3.Checked:=True Check3.Parent:=ListBox Label1:=TLabel.Create(Page) Label1.Left:=16 Label1.Top:=2 Label1.Caption:='Компонент 1' Label1.OnClick:=@Check1OnClick Label1.OnMouseMove:=@Check1MouseMove Label1.Parent:=Check1 Label2:=TLabel.Create(Page) Label2.Left:=16 Label2.Top:=2 Label2.Caption:='Компонент 2' Label2.OnClick:=@Check2OnClick Label2.OnMouseMove:=@Check2MouseMove Label2.Parent:=Check2 Label3:=TLabel.Create(Page) Label3.Left:=16 Label3.Top:=2 Label3.Caption:='Компонент 3' Label3.OnClick:=@Check3OnClick Label3.OnMouseMove:=@Check3MouseMove Label3.Parent:=Check3 end; |