Forslay
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
[Setup]
AppName=My Program
AppVerName=My Program [Version]
DefaultDirName={pf}\My Program
[Files]
Source: 1.txt; DestDir: {app}; Check: Checked1
Source: 2.txt; DestDir: {app}; Check: Checked2
Source: 3.txt; DestDir: {app}; Check: Checked3
Source: 1.bmp; DestDir: {app};
Source: 2.bmp; DestDir: {app};
Source: 3.bmp; DestDir: {app};
[Code]
var
Page: TWizardPage;
Text1, Text2, Text3, Text4: TNewStaticText;
Panel: TPanel;
ListboxNew: TListbox;
Check1, Check2, Check3: TCheckBox;
NoChecks, Label1, Label2, Label3: TLabel;
Image: TBitmapImage;
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'
Image.Show
Image.Bitmap.LoadFromFile(ExpandConstant('{tmp}\1.bmp'))
end;
procedure Check2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Text4.Enabled := True
Text4.Caption := 'Описание компонента 2'
Image.Show
Image.Bitmap.LoadFromFile(ExpandConstant('{tmp}\2.bmp'))
end;
procedure Check3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Text4.Enabled := True
Text4.Caption := 'Описание компонента 3'
Image.Show
Image.Bitmap.LoadFromFile(ExpandConstant('{tmp}\3.bmp'))
end;
procedure NoChecksMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Image.Hide
Text4.Enabled := False
Text4.Caption := 'Наведите курсор мыши на название компонента, чтобы прочесть его описание.'
end;
procedure InitializeWizard();
begin
ExtractTemporaryFile('1.bmp')
ExtractTemporaryFile('2.bmp')
ExtractTemporaryFile('3.bmp')
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 := 287
Panel.Top := 60
Panel.Width := 130
Panel.Height := 160
Panel.BevelInner := bvLowered
Panel.Parent := Page.Surface
Text3 := TNewStaticText.Create(Page)
Text3.Left := 293
Text3.Top := 54
Text3.Font.Color := clBlue
Text3.Caption := 'Описание'
Text3.Parent := Page.Surface
Text4 := TNewStaticText.Create(Page)
Text4.Left := 4
Text4.Top := 10
Text4.Width := 122
Text4.Height := 140
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
ListboxNew := TListbox.Create(Page)
ListboxNew.Left := 135
ListboxNew.Top := 60
ListboxNew.Width := 140
ListboxNew.Height := 160
ListboxNew.Parent := Page.Surface
Image := TBitmapImage.Create(Page)
Image.Left := 30
Image.Top := 110
Image.Width := 55
Image.Height := 55
Image.Parent := Page.Surface
Check1 := TCheckBox.Create(Page)
Check1.Left := 2
Check1.Top := 0
Check1.Checked := True
Check1.Parent := ListboxNew
Check2 := TCheckBox.Create(Page)
Check2.Left := 2
Check2.Top := 16
Check2.Checked := True
Check2.Parent := ListboxNew
Check3 := TCheckBox.Create(Page)
Check3.Left := 2
Check3.Top := 32
Check3.Checked := True
Check3.Parent := ListboxNew
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;
|
