//procedure CreateAboutButtonAndURLLabel(ParentForm: TSetupForm; CancelButton: TNewButton);
//var
// AboutButton: TNewButton;
// URLLabel: TNewStaticText;
//begin
// AboutButton := TNewButton.Create(ParentForm);
// AboutButton.Left := ParentForm.ClientWidth - CancelButton.Left - CancelButton.Width;
// AboutButton.Top := CancelButton.Top;
// AboutButton.Width := CancelButton.Width;
// AboutButton.Height := CancelButton.Height;
// AboutButton.Anchors := [akLeft, akBottom];
// AboutButton.Caption := '&About...';
// AboutButton.OnClick := @AboutButtonOnClick;
// AboutButton.Parent := ParentForm;
// URLLabel := TNewStaticText.Create(ParentForm);
// URLLabel.Caption := 'www.innosetup.com';
// URLLabel.Cursor := crHand;
// URLLabel.OnClick := @URLLabelOnClick;
// URLLabel.Parent := ParentForm;
// { Alter Font *after* setting Parent so the correct defaults are inherited first }
// URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];
// URLLabel.Font.Color := clHotLight
// URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;
// URLLabel.Left := AboutButton.Left + AboutButton.Width + ScaleX(20);
// URLLabel.Anchors := [akLeft, akBottom];
//end;
void CreateAboutButtonAndURLLabel(TSetupForm ParentForm, TNewButton CancelButton)
{
var AboutButton = new TNewButton(ParentForm);
AboutButton.Left = ParentForm.ClientWidth - CancelButton.Left - CancelButton.Width;
AboutButton.Top = CancelButton.Top;
AboutButton.Width = CancelButton.Width;
AboutButton.Height = CancelButton.Height;
AboutButton.Anchors = new [] { TAnchorKind.Left, TAnchorKind.Bottom };
AboutButton.Caption = "&About...";
AboutButton.OnClick += AboutButtonOnClick;
AboutButton.Parent = ParentForm;
var URLLabel = new TNewStaticText(ParentForm);
URLLabel.Caption = "www.innosetup.com";
URLLabel.Cursor = Cursor.Hand;
URLLabel.OnClick += URLLabelOnClick;
URLLabel.Parent = ParentForm;
// Alter Font *after * setting Parent so the correct defaults are inherited first
URLLabel.Font.Style = URLLabel.Font.Style + new[] { TFontStyle.Underline };
URLLabel.Font.Color = TColor.HotLight;
URLLabel.Top = AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;
URLLabel.Left = AboutButton.Left + AboutButton.Width + ScaleX(20);
URLLabel.Anchors = new[] { TAnchorKind.Left, TAnchorKind.Bottom };
}
//procedure FormButtonOnClick(Sender: TObject);
//var
// Form: TSetupForm;
// Edit: TNewEdit;
// OKButton, CancelButton: TNewButton;
//begin
// Form := CreateCustomForm();
// try
// Form.ClientWidth := ScaleX(256);
// Form.ClientHeight := ScaleY(128);
// Form.Caption := 'TSetupForm';
// Edit := TNewEdit.Create(Form);
// Edit.Top := ScaleY(10);
// Edit.Left := ScaleX(10);
// Edit.Width := Form.ClientWidth - ScaleX(2 * 10);
// Edit.Height := ScaleY(23);
// Edit.Anchors := [akLeft, akTop, akRight];
// Edit.Text := 'TNewEdit';
// Edit.Parent := Form;
// OKButton := TNewButton.Create(Form);
// OKButton.Parent := Form;
// OKButton.Left := Form.ClientWidth - ScaleX(75 + 6 + 75 + 10);
// OKButton.Top := Form.ClientHeight - ScaleY(23 + 10);
// OKButton.Width := ScaleX(75);
// OKButton.Height := ScaleY(23);
// OKButton.Anchors := [akRight, akBottom]
// OKButton.Caption := 'OK';
// OKButton.ModalResult := mrOk;
// OKButton.Default := True;
// CancelButton := TNewButton.Create(Form);
// CancelButton.Parent := Form;
// CancelButton.Left := Form.ClientWidth - ScaleX(75 + 10);
// CancelButton.Top := Form.ClientHeight - ScaleY(23 + 10);
// CancelButton.Width := ScaleX(75);
// CancelButton.Height := ScaleY(23);
// CancelButton.Anchors := [akRight, akBottom]
// CancelButton.Caption := 'Cancel';
// CancelButton.ModalResult := mrCancel;
// CancelButton.Cancel := True;
// Form.ActiveControl := Edit;
// { Keep the form from sizing vertically since we don't have any controls which can size vertically }
// Form.KeepSizeY := True;
// { Center on WizardForm.Without this call it will still automatically center, but on the screen }
// Form.FlipSizeAndCenterIfNeeded(True, WizardForm, False);
// if Form.ShowModal() = mrOk then
// MsgBox('You clicked OK.', mbInformation, MB_OK);
// finally
// Form.Free();
// end;
//end;
void FormButtonOnClick(TObject Sender)
{
var Form = CreateCustomForm();
try
{
Form.ClientWidth = ScaleX(256);
Form.ClientHeight = ScaleY(128);
Form.Caption = "TSetupForm";
var Edit = new TNewEdit(Form);
Edit.Top = ScaleY(10);
Edit.Left = ScaleX(10);
Edit.Width = Form.ClientWidth - ScaleX(2 * 10);
Edit.Height = ScaleY(23);
Edit.Anchors = new[] { TAnchorKind.Left, TAnchorKind.Top, TAnchorKind.Right };
Edit.Text = "TNewEdit";
Edit.Parent = Form;
var OKButton = new TNewButton(Form);
OKButton.Parent = Form;
OKButton.Left = Form.ClientWidth - ScaleX(75 + 6 + 75 + 10);
OKButton.Top = Form.ClientHeight - ScaleY(23 + 10);
OKButton.Width = ScaleX(75);
OKButton.Height = ScaleY(23);
OKButton.Anchors = new[] { TAnchorKind.Right, TAnchorKind.Bottom };
OKButton.Caption = "OK";
OKButton.ModalResult = TModalResult.Ok;
OKButton.Default = true;
var CancelButton = new TNewButton(Form);
CancelButton.Parent = Form;
CancelButton.Left = Form.ClientWidth - ScaleX(75 + 10);
CancelButton.Top = Form.ClientHeight - ScaleY(23 + 10);
CancelButton.Width = ScaleX(75);
CancelButton.Height = ScaleY(23);
CancelButton.Anchors = new[] { TAnchorKind.Right, TAnchorKind.Bottom };
CancelButton.Caption = "Cancel";
CancelButton.ModalResult = TModalResult.Cancel;
CancelButton.Cancel = true;
Form.ActiveControl = Edit;
// Keep the form from sizing vertically since we don't have any controls which can size vertically
Form.KeepSizeY = true;
// Center on WizardForm.Without this call it will still automatically center, but on the screen
Form.FlipSizeAndCenterIfNeeded(true, WizardForm, false);
if (Form.ShowModal() == TModalResult.Ok)
{
MsgBox("You clicked OK.", TMsgBoxType.Information, MB.Ok);
}
}
finally
{
Form.Free();
}
}
//procedure CreateTheWizardPages;
//var
// Page: TWizardPage;
// Button, FormButton, TaskDialogButton: TNewButton;
// Panel: TPanel;
// CheckBox: TNewCheckBox;
// Edit: TNewEdit;
// PasswordEdit: TPasswordEdit;
// Memo: TNewMemo;
// ComboBox: TNewComboBox;
// ListBox: TNewListBox;
// StaticText, ProgressBarLabel: TNewStaticText;
// ProgressBar, ProgressBar2, ProgressBar3: TNewProgressBar;
// CheckListBox, CheckListBox2: TNewCheckListBox;
// FolderTreeView: TFolderTreeView;
// BitmapImage, BitmapImage2, BitmapImage3: TBitmapImage;
// BitmapFileName: String;
// RichEditViewer: TRichEditViewer;
//begin
// { TButton and others }
// Page := CreateCustomPage(wpWelcome, 'Custom wizard page controls', 'TButton and others');
// Button := TNewButton.Create(Page);
// Button.Width := ScaleX(75);
// Button.Height := ScaleY(23);
// Button.Caption := 'TNewButton';
// Button.OnClick := @ButtonOnClick;
// Button.Parent := Page.Surface;
// Panel := TPanel.Create(Page);
// Panel.Width := Page.SurfaceWidth div 2 - ScaleX(8);
// Panel.Left := Page.SurfaceWidth - Panel.Width;
// Panel.Height := Button.Height* 2;
// Panel.Anchors := [akLeft, akTop, akRight];
// Panel.Caption := 'TPanel';
// Panel.Color := clWindow;
// Panel.BevelKind := bkFlat;
// Panel.BevelOuter := bvNone;
// Panel.ParentBackground := False;
// Panel.Parent := Page.Surface;
// CheckBox := TNewCheckBox.Create(Page);
// CheckBox.Top := Button.Top + Button.Height + ScaleY(8);
// CheckBox.Width := Page.SurfaceWidth div 2;
// CheckBox.Height := ScaleY(17);
// CheckBox.Caption := 'TNewCheckBox';
// CheckBox.Checked := True;
// CheckBox.Parent := Page.Surface;
// Edit := TNewEdit.Create(Page);
// Edit.Top := CheckBox.Top + CheckBox.Height + ScaleY(8);
// Edit.Width := Page.SurfaceWidth div 2 - ScaleX(8);
// Edit.Text := 'TNewEdit';
// Edit.Parent := Page.Surface;
// PasswordEdit := TPasswordEdit.Create(Page);
// PasswordEdit.Left := Page.SurfaceWidth - Edit.Width;
// PasswordEdit.Top := CheckBox.Top + CheckBox.Height + ScaleY(8);
// PasswordEdit.Width := Edit.Width;
// PasswordEdit.Anchors := [akLeft, akTop, akRight];
// PasswordEdit.Text := 'TPasswordEdit';
// PasswordEdit.Parent := Page.Surface;
// Memo := TNewMemo.Create(Page);
// Memo.Top := Edit.Top + Edit.Height + ScaleY(8);
// Memo.Width := Page.SurfaceWidth;
// Memo.Height := ScaleY(89);
// Memo.Anchors := [akLeft, akTop, akRight, akBottom];
// Memo.ScrollBars := ssVertical;
// Memo.Text := 'TNewMemo';
// Memo.Parent := Page.Surface;
// FormButton := TNewButton.Create(Page);
// FormButton.Top := Memo.Top + Memo.Height + ScaleY(8);
// FormButton.Width := ScaleX(75);
// FormButton.Height := ScaleY(23);
// FormButton.Anchors := [akLeft, akBottom];
// FormButton.Caption := 'TSetupForm';
// FormButton.OnClick := @FormButtonOnClick;
// FormButton.Parent := Page.Surface;
// TaskDialogButton := TNewButton.Create(Page);
// TaskDialogButton.Top := FormButton.Top;
// TaskDialogButton.Left := FormButton.Left + FormButton.Width + ScaleX(8);
// TaskDialogButton.Width := ScaleX(110);
// TaskDialogButton.Height := ScaleY(23);
// TaskDialogButton.Anchors := [akLeft, akBottom];
// TaskDialogButton.Caption := 'TaskDialogMsgBox';
// TaskDialogButton.OnClick := @TaskDialogButtonOnClick;
// TaskDialogButton.Parent := Page.Surface;
// { TComboBox and others }
// Page := CreateCustomPage(Page.ID, 'Custom wizard page controls', 'TComboBox and others');
// ComboBox := TNewComboBox.Create(Page);
// ComboBox.Width := Page.SurfaceWidth;
// ComboBox.Anchors := [akLeft, akTop, akRight];
// ComboBox.Parent := Page.Surface;
// ComboBox.Style := csDropDownList;
// ComboBox.Items.Add('TComboBox');
// ComboBox.ItemIndex := 0;
// ListBox := TNewListBox.Create(Page);
// ListBox.Top := ComboBox.Top + ComboBox.Height + ScaleY(8);
// ListBox.Width := Page.SurfaceWidth;
// ListBox.Height := ScaleY(97);
// ListBox.Anchors := [akLeft, akTop, akRight, akBottom];
// ListBox.Parent := Page.Surface;
// ListBox.Items.Add('TListBox');
// ListBox.ItemIndex := 0;
// StaticText := TNewStaticText.Create(Page);
// StaticText.Top := ListBox.Top + ListBox.Height + ScaleY(8);
// StaticText.Anchors := [akLeft, akRight, akBottom];
// StaticText.Caption := 'TNewStaticText';
// StaticText.AutoSize := True;
// StaticText.Parent := Page.Surface;
// ProgressBarLabel := TNewStaticText.Create(Page);
// ProgressBarLabel.Top := StaticText.Top + StaticText.Height + ScaleY(8);
// ProgressBarLabel.Anchors := [akLeft, akBottom];
// ProgressBarLabel.Caption := 'TNewProgressBar';
// ProgressBarLabel.AutoSize := True;
// ProgressBarLabel.Parent := Page.Surface;
// ProgressBar := TNewProgressBar.Create(Page);
// ProgressBar.Left := ProgressBarLabel.Width + ScaleX(8);
// ProgressBar.Top := ProgressBarLabel.Top;
// ProgressBar.Width := Page.SurfaceWidth - ProgressBar.Left;
// ProgressBar.Height := ProgressBarLabel.Height + ScaleY(8);
// ProgressBar.Anchors := [akLeft, akRight, akBottom];
// ProgressBar.Parent := Page.Surface;
// ProgressBar.Position := 25;
// ProgressBar2 := TNewProgressBar.Create(Page);
// ProgressBar2.Left := ProgressBarLabel.Width + ScaleX(8);
// ProgressBar2.Top := ProgressBar.Top + ProgressBar.Height + ScaleY(4);
// ProgressBar2.Width := Page.SurfaceWidth - ProgressBar.Left;
// ProgressBar2.Height := ProgressBarLabel.Height + ScaleY(8);
// ProgressBar2.Anchors := [akLeft, akRight, akBottom];
// ProgressBar2.Parent := Page.Surface;
// ProgressBar2.Position := 50;
// { Note: TNewProgressBar.State property only has an effect on Windows Vista and newer }
// ProgressBar2.State := npbsError;
// ProgressBar3 := TNewProgressBar.Create(Page);
// ProgressBar3.Left := ProgressBarLabel.Width + ScaleX(8);
// ProgressBar3.Top := ProgressBar2.Top + ProgressBar2.Height + ScaleY(4);
// ProgressBar3.Width := Page.SurfaceWidth - ProgressBar.Left;
// ProgressBar3.Height := ProgressBarLabel.Height + ScaleY(8);
// ProgressBar3.Anchors := [akLeft, akRight, akBottom];
// ProgressBar3.Parent := Page.Surface;
// { Note: TNewProgressBar.Style property only has an effect on Windows XP and newer }
// ProgressBar3.Style := npbstMarquee;
// { TNewCheckListBox }
// Page := CreateCustomPage(Page.ID, 'Custom wizard page controls', 'TNewCheckListBox');
// CheckListBox := TNewCheckListBox.Create(Page);
// CheckListBox.Width := Page.SurfaceWidth;
// CheckListBox.Height := ScaleY(97);
// CheckListBox.Anchors := [akLeft, akTop, akRight, akBottom];
// CheckListBox.Flat := True;
// CheckListBox.Parent := Page.Surface;
// CheckListBox.AddCheckBox('TNewCheckListBox', '', 0, True, True, False, True, nil);
// CheckListBox.AddRadioButton('TNewCheckListBox', '', 1, True, True, nil);
// CheckListBox.AddRadioButton('TNewCheckListBox', '', 1, False, True, nil);
// CheckListBox.AddCheckBox('TNewCheckListBox', '', 0, True, True, False, True, nil);
// CheckListBox.AddCheckBox('TNewCheckListBox', '', 1, True, True, False, True, nil);
// CheckListBox.AddCheckBox('TNewCheckListBox', '', 2, True, True, False, True, nil);
// CheckListBox.AddCheckBox('TNewCheckListBox', '', 2, False, True, False, True, nil);
// CheckListBox.AddCheckBox('TNewCheckListBox', '', 1, False, True, False, True, nil);
// CheckListBox2 := TNewCheckListBox.Create(Page);
// CheckListBox2.Top := CheckListBox.Top + CheckListBox.Height + ScaleY(8);
// CheckListBox2.Width := Page.SurfaceWidth;
// CheckListBox2.Height := ScaleY(97);
// CheckListBox2.Anchors := [akLeft, akRight, akBottom];
// CheckListBox2.BorderStyle := bsNone;
// CheckListBox2.ParentColor := True;
// CheckListBox2.MinItemHeight := WizardForm.TasksList.MinItemHeight;
// CheckListBox2.ShowLines := False;
// CheckListBox2.WantTabs := True;
// CheckListBox2.Parent := Page.Surface;
// CheckListBox2.AddGroup('TNewCheckListBox', '', 0, nil);
// CheckListBox2.AddRadioButton('TNewCheckListBox', '', 0, True, True, nil);
// CheckListBox2.AddRadioButton('TNewCheckListBox', '', 0, False, True, nil);
// { TFolderTreeView }
// Page := CreateCustomPage(Page.ID, 'Custom wizard page controls', 'TFolderTreeView');
// FolderTreeView := TFolderTreeView.Create(Page);
// FolderTreeView.Width := Page.SurfaceWidth;
// FolderTreeView.Height := Page.SurfaceHeight;
// FolderTreeView.Anchors := [akLeft, akTop, akRight, akBottom];
// FolderTreeView.Parent := Page.Surface;
// FolderTreeView.Directory := ExpandConstant('{src}');
// { TBitmapImage }
// Page := CreateCustomPage(Page.ID, 'Custom wizard page controls', 'TBitmapImage');
// BitmapFileName := ExpandConstant('{tmp}\WizModernSmallImage.bmp');
// ExtractTemporaryFile(ExtractFileName(BitmapFileName));
// BitmapImage := TBitmapImage.Create(Page);
// BitmapImage.AutoSize := True;
// BitmapImage.Bitmap.LoadFromFile(BitmapFileName);
// BitmapImage.Cursor := crHand;
// BitmapImage.OnClick := @BitmapImageOnClick;
// BitmapImage.Parent := Page.Surface;
// BitmapImage2 := TBitmapImage.Create(Page);
// BitmapImage2.BackColor := $400000;
// BitmapImage2.Bitmap := BitmapImage.Bitmap;
// BitmapImage2.Center := True;
// BitmapImage2.Left := BitmapImage.Width + 10;
// BitmapImage2.Height := 2* BitmapImage.Height;
// BitmapImage2.Width := 2* BitmapImage.Width;
// BitmapImage2.Cursor := crHand;
// BitmapImage2.OnClick := @BitmapImageOnClick;
// BitmapImage2.Parent := Page.Surface;
// BitmapImage3 := TBitmapImage.Create(Page);
// BitmapImage3.Bitmap := BitmapImage.Bitmap;
// BitmapImage3.Stretch := True;
// BitmapImage3.Left := 3* BitmapImage.Width + 20;
// BitmapImage3.Height := 4* BitmapImage.Height;
// BitmapImage3.Width := 4* BitmapImage.Width;
// BitmapImage3.Anchors := [akLeft, akTop, akRight, akBottom];
// BitmapImage3.Cursor := crHand;
// BitmapImage3.OnClick := @BitmapImageOnClick;
// BitmapImage3.Parent := Page.Surface;
// { TRichViewer }
// Page := CreateCustomPage(Page.ID, 'Custom wizard page controls', 'TRichViewer');
// RichEditViewer := TRichEditViewer.Create(Page);
// RichEditViewer.Width := Page.SurfaceWidth;
// RichEditViewer.Height := Page.SurfaceHeight;
// RichEditViewer.Anchors := [akLeft, akTop, akRight, akBottom];
// RichEditViewer.BevelKind := bkFlat;
// RichEditViewer.BorderStyle := bsNone;
// RichEditViewer.Parent := Page.Surface;
// RichEditViewer.ScrollBars := ssVertical;
// RichEditViewer.UseRichEdit := True;
// RichEditViewer.RTFText := '{\rtf1\ansi\ansicpg1252\deff0\deflang1043{\fonttbl{\f0\fswiss\fcharset0 Arial;}}{\colortbl ;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue128;}\viewkind4\uc1\pard\f0\fs20 T\cf1 Rich\cf2 Edit\cf3 Viewer\cf0\par}';
// RichEditViewer.ReadOnly := True;
//end;
void CreateTheWizardPages()
{
// TButton and others
var Page = CreateCustomPage(PageID.Welcome, "Custom wizard page controls", "TButton and others");
var Button = new TNewButton(Page);
Button.Width = ScaleX(75);
Button.Height = ScaleY(23);
Button.Caption = "TNewButton";
Button.OnClick += ButtonOnClick;
Button.Parent = Page.Surface;
var Panel = new TPanel(Page);
Panel.Width = Page.SurfaceWidth / 2 - ScaleX(8);
Panel.Left = Page.SurfaceWidth - Panel.Width;
Panel.Height = Button.Height * 2;
Panel.Anchors = new [] { TAnchorKind.Left, TAnchorKind.Top, TAnchorKind.Right };
Panel.Caption = "TPanel";
Panel.Color = TColor.Window;
Panel.BevelKind = TBevelKind.Flat;
Panel.BevelOuter = TPanelBevel.None;
Panel.ParentBackground = false;
Panel.Parent = Page.Surface;
var CheckBox = new TNewCheckBox(Page);
CheckBox.Top = Button.Top + Button.Height + ScaleY(8);
CheckBox.Width = Page.SurfaceWidth / 2;
CheckBox.Height = ScaleY(17);
CheckBox.Caption = "TNewCheckBox";
CheckBox.Checked = true;
CheckBox.Parent = Page.Surface;
var Edit = new TNewEdit(Page);
Edit.Top = CheckBox.Top + CheckBox.Height + ScaleY(8);
Edit.Width = Page.SurfaceWidth / 2 - ScaleX(8);
Edit.Text = "TNewEdit";
Edit.Parent = Page.Surface;
var PasswordEdit = new TPasswordEdit(Page);
PasswordEdit.Left = Page.SurfaceWidth - Edit.Width;
PasswordEdit.Top = CheckBox.Top + CheckBox.Height + ScaleY(8);
PasswordEdit.Width = Edit.Width;
PasswordEdit.Anchors = new[] { TAnchorKind.Left, TAnchorKind.Top, TAnchorKind.Right };
PasswordEdit.Text = "TPasswordEdit";
PasswordEdit.Parent = Page.Surface;
var Memo = new TNewMemo(Page);
Memo.Top = Edit.Top + Edit.Height + ScaleY(8);
Memo.Width = Page.SurfaceWidth;
Memo.Height = ScaleY(89);
Memo.Anchors = new[] { TAnchorKind.Left, TAnchorKind.Top, TAnchorKind.Right, TAnchorKind.Bottom };
Memo.ScrollBars = TScrollStyle.Vertical;
Memo.Text = "TNewMemo";
Memo.Parent = Page.Surface;
var FormButton = new TNewButton(Page);
FormButton.Top = Memo.Top + Memo.Height + ScaleY(8);
FormButton.Width = ScaleX(75);
FormButton.Height = ScaleY(23);
FormButton.Anchors = new[] { TAnchorKind.Left, TAnchorKind.Bottom };
FormButton.Caption = "TSetupForm";
FormButton.OnClick += FormButtonOnClick;
FormButton.Parent = Page.Surface;
var TaskDialogButton = new TNewButton(Page);
TaskDialogButton.Top = FormButton.Top;
TaskDialogButton.Left = FormButton.Left + FormButton.Width + ScaleX(8);
TaskDialogButton.Width = ScaleX(110);
TaskDialogButton.Height = ScaleY(23);
TaskDialogButton.Anchors = new[] { TAnchorKind.Left, TAnchorKind.Bottom };
TaskDialogButton.Caption = "TaskDialogMsgBox";
TaskDialogButton.OnClick += TaskDialogButtonOnClick;
TaskDialogButton.Parent = Page.Surface;
// TComboBox and others
Page = CreateCustomPage(Page.ID, "Custom wizard page controls", "TComboBox and others");
var ComboBox = new TNewComboBox(Page);
ComboBox.Width = Page.SurfaceWidth;
ComboBox.Anchors = new[] { TAnchorKind.Left, TAnchorKind.Top, TAnchorKind.Right };
ComboBox.Parent = Page.Surface;
ComboBox.Style = TComboBoxStyle.DropDownList;
ComboBox.Items.Add("TComboBox");
ComboBox.ItemIndex = 0;
var ListBox = new TNewListBox(Page);
ListBox.Top = ComboBox.Top + ComboBox.Height + ScaleY(8);
ListBox.Width = Page.SurfaceWidth;
ListBox.Height = ScaleY(97);
ListBox.Anchors = new[] { TAnchorKind.Left, TAnchorKind.Top, TAnchorKind.Right, TAnchorKind.Bottom };
ListBox.Parent = Page.Surface;
ListBox.Items.Add("TListBox");
ListBox.ItemIndex = 0;
var StaticText = new TNewStaticText(Page);
StaticText.Top = ListBox.Top + ListBox.Height + ScaleY(8);
StaticText.Anchors = new[] { TAnchorKind.Left, TAnchorKind.Right, TAnchorKind.Bottom };
StaticText.Caption = "TNewStaticText";
StaticText.AutoSize = true;
StaticText.Parent = Page.Surface;
var ProgressBarLabel = new TNewStaticText(Page);
ProgressBarLabel.Top = StaticText.Top + StaticText.Height + ScaleY(8);
ProgressBarLabel.Anchors = new[] { TAnchorKind.Left, TAnchorKind.Bottom };
ProgressBarLabel.Caption = "TNewProgressBar";
ProgressBarLabel.AutoSize = true;
ProgressBarLabel.Parent = Page.Surface;
var ProgressBar = new TNewProgressBar(Page);
ProgressBar.Left = ProgressBarLabel.Width + ScaleX(8);
ProgressBar.Top = ProgressBarLabel.Top;
ProgressBar.Width = Page.SurfaceWidth - ProgressBar.Left;
ProgressBar.Height = ProgressBarLabel.Height + ScaleY(8);
ProgressBar.Anchors = new[] { TAnchorKind.Left, TAnchorKind.Right, TAnchorKind.Bottom };
ProgressBar.Parent = Page.Surface;
ProgressBar.Position = 25;
var ProgressBar2 = new TNewProgressBar(Page);
ProgressBar2.Left = ProgressBarLabel.Width + ScaleX(8);
ProgressBar2.Top = ProgressBar.Top + ProgressBar.Height + ScaleY(4);
ProgressBar2.Width = Page.SurfaceWidth - ProgressBar.Left;
ProgressBar2.Height = ProgressBarLabel.Height + ScaleY(8);
ProgressBar2.Anchors = new[] { TAnchorKind.Left, TAnchorKind.Right, TAnchorKind.Bottom };
ProgressBar2.Parent = Page.Surface;
ProgressBar2.Position = 50;
// Note: TNewProgressBar.State property only has an effect on Windows Vista and newer
ProgressBar2.State = TNewProgressBarState.Error;
var ProgressBar3 = new TNewProgressBar(Page);
ProgressBar3.Left = ProgressBarLabel.Width + ScaleX(8);
ProgressBar3.Top = ProgressBar2.Top + ProgressBar2.Height + ScaleY(4);
ProgressBar3.Width = Page.SurfaceWidth - ProgressBar.Left;
ProgressBar3.Height = ProgressBarLabel.Height + ScaleY(8);
ProgressBar3.Anchors = new[] { TAnchorKind.Left, TAnchorKind.Right, TAnchorKind.Bottom };
ProgressBar3.Parent = Page.Surface;
// Note: TNewProgressBar.Style property only has an effect on Windows XP and newer
ProgressBar3.Style = TNewProgressBarStyle.Marquee;
// TNewCheckListBox
Page = CreateCustomPage(Page.ID, "Custom wizard page controls", "TNewCheckListBox");
var CheckListBox = new TNewCheckListBox(Page);
CheckListBox.Width = Page.SurfaceWidth;
CheckListBox.Height = ScaleY(97);
CheckListBox.Anchors = new[] { TAnchorKind.Left, TAnchorKind.Top, TAnchorKind.Right, TAnchorKind.Bottom };
CheckListBox.Flat = true;
CheckListBox.Parent = Page.Surface;
CheckListBox.AddCheckBox("TNewCheckListBox", "", 0, true, true, false, true, null);
CheckListBox.AddRadioButton("TNewCheckListBox", "", 1, true, true, null);
CheckListBox.AddRadioButton("TNewCheckListBox", "", 1, false, true, null);
CheckListBox.AddCheckBox("TNewCheckListBox", "", 0, true, true, false, true, null);
CheckListBox.AddCheckBox("TNewCheckListBox", "", 1, true, true, false, true, null);
CheckListBox.AddCheckBox("TNewCheckListBox", "", 2, true, true, false, true, null);
CheckListBox.AddCheckBox("TNewCheckListBox", "", 2, false, true, false, true, null);
CheckListBox.AddCheckBox("TNewCheckListBox", "", 1, false, true, false, true, null);
var CheckListBox2 = new TNewCheckListBox(Page);
CheckListBox2.Top = CheckListBox.Top + CheckListBox.Height + ScaleY(8);
CheckListBox2.Width = Page.SurfaceWidth;
CheckListBox2.Height = ScaleY(97);
CheckListBox2.Anchors = new[] { TAnchorKind.Left, TAnchorKind.Right, TAnchorKind.Bottom };
CheckListBox2.BorderStyle = TBorderStyle.None;
CheckListBox2.ParentColor = true;
CheckListBox2.MinItemHeight = WizardForm.TasksList.MinItemHeight;
CheckListBox2.ShowLines = false;
CheckListBox2.WantTabs = true;
CheckListBox2.Parent = Page.Surface;
CheckListBox2.AddGroup("TNewCheckListBox", "", 0, null);
CheckListBox2.AddRadioButton("TNewCheckListBox", "", 0, true, true, null);
CheckListBox2.AddRadioButton("TNewCheckListBox", "", 0, false, true, null);
// TFolderTreeView
Page = CreateCustomPage(Page.ID, "Custom wizard page controls", "TFolderTreeView");
var FolderTreeView = new TFolderTreeView(Page);
FolderTreeView.Width = Page.SurfaceWidth;
FolderTreeView.Height = Page.SurfaceHeight;
FolderTreeView.Anchors = new[] { TAnchorKind.Left, TAnchorKind.Top, TAnchorKind.Right, TAnchorKind.Bottom };
FolderTreeView.Parent = Page.Surface;
FolderTreeView.Directory = ExpandConstant(__src);
// TBitmapImage
Page = CreateCustomPage(Page.ID, "Custom wizard page controls", "TBitmapImage");
var BitmapFileName = ExpandConstant($"{__tmp}\\WizModernSmallImage.bmp");
ExtractTemporaryFile(ExtractFileName(BitmapFileName));
var BitmapImage = new TBitmapImage(Page);
BitmapImage.AutoSize = true;
BitmapImage.Bitmap.LoadFromFile(BitmapFileName);
BitmapImage.Cursor = Cursor.Hand;
BitmapImage.OnClick += BitmapImageOnClick;
BitmapImage.Parent = Page.Surface;
var BitmapImage2 = new TBitmapImage(Page);
BitmapImage2.BackColor = 0x400000;
BitmapImage2.Bitmap = BitmapImage.Bitmap;
BitmapImage2.Center = true;
BitmapImage2.Left = BitmapImage.Width + 10;
BitmapImage2.Height = 2 * BitmapImage.Height;
BitmapImage2.Width = 2 * BitmapImage.Width;
BitmapImage2.Cursor = Cursor.Hand;
BitmapImage2.OnClick += BitmapImageOnClick;
BitmapImage2.Parent = Page.Surface;
var BitmapImage3 = new TBitmapImage(Page);
BitmapImage3.Bitmap = BitmapImage.Bitmap;
BitmapImage3.Stretch = true;
BitmapImage3.Left = 3 * BitmapImage.Width + 20;
BitmapImage3.Height = 4 * BitmapImage.Height;
BitmapImage3.Width = 4 * BitmapImage.Width;
BitmapImage3.Anchors = new[] { TAnchorKind.Left, TAnchorKind.Top, TAnchorKind.Right, TAnchorKind.Bottom };
BitmapImage3.Cursor = Cursor.Hand;
BitmapImage3.OnClick += BitmapImageOnClick;
BitmapImage3.Parent = Page.Surface;
// TRichViewer
Page = CreateCustomPage(Page.ID, "Custom wizard page controls", "TRichViewer");
var RichEditViewer = new TRichEditViewer(Page);
RichEditViewer.Width = Page.SurfaceWidth;
RichEditViewer.Height = Page.SurfaceHeight;
RichEditViewer.Anchors = new[] { TAnchorKind.Left, TAnchorKind.Top, TAnchorKind.Right, TAnchorKind.Bottom };
RichEditViewer.BevelKind = TBevelKind.Flat;
RichEditViewer.BorderStyle = TBorderStyle.None;
RichEditViewer.Parent = Page.Surface;
RichEditViewer.ScrollBars = TScrollStyle.Vertical;
RichEditViewer.UseRichEdit = true;
RichEditViewer.RTFText = @"{\rtf1\ansi\ansicpg1252\deff0\deflang1043{\fonttbl{\f0\fswiss\fcharset0 Arial;}}{\colortbl ;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue128;}\viewkind4\uc1\pard\f0\fs20 T\cf1 Rich\cf2 Edit\cf3 Viewer\cf0\par}";
RichEditViewer.ReadOnly = true;
}
