inno setup 파일
This commit is contained in:
jmaniuvc
450
Inno Setup 6/Examples/CodeClasses.iss
Normal file
450
Inno Setup 6/Examples/CodeClasses.iss
Normal file
@@ -0,0 +1,450 @@
|
||||
; -- CodeClasses.iss --
|
||||
;
|
||||
; This script shows how to use the WizardForm object and the various VCL classes.
|
||||
|
||||
[Setup]
|
||||
AppName=My Program
|
||||
AppVersion=1.5
|
||||
WizardStyle=modern
|
||||
CreateAppDir=no
|
||||
DisableProgramGroupPage=yes
|
||||
DefaultGroupName=My Program
|
||||
UninstallDisplayIcon={app}\MyProg.exe
|
||||
OutputDir=userdocs:Inno Setup Examples Output
|
||||
PrivilegesRequired=lowest
|
||||
|
||||
; Uncomment the following three lines to test the layout when scaling and rtl are active
|
||||
;[LangOptions]
|
||||
;RightToLeft=yes
|
||||
;DialogFontSize=12
|
||||
|
||||
[Files]
|
||||
Source: compiler:WizClassicSmallImage.bmp; Flags: dontcopy
|
||||
|
||||
[Code]
|
||||
procedure ButtonOnClick(Sender: TObject);
|
||||
begin
|
||||
MsgBox('You clicked the button!', mbInformation, mb_Ok);
|
||||
end;
|
||||
|
||||
procedure BitmapImageOnClick(Sender: TObject);
|
||||
begin
|
||||
MsgBox('You clicked the image!', mbInformation, mb_Ok);
|
||||
end;
|
||||
|
||||
procedure FormButtonOnClick(Sender: TObject);
|
||||
var
|
||||
Form: TSetupForm;
|
||||
Edit: TNewEdit;
|
||||
OKButton, CancelButton: TNewButton;
|
||||
W: Integer;
|
||||
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.Caption := 'OK';
|
||||
OKButton.Left := Form.ClientWidth - ScaleX(75 + 6 + 75 + 10);
|
||||
OKButton.Top := Form.ClientHeight - ScaleY(23 + 10);
|
||||
OKButton.Height := ScaleY(23);
|
||||
OKButton.Anchors := [akRight, akBottom]
|
||||
OKButton.ModalResult := mrOk;
|
||||
OKButton.Default := True;
|
||||
|
||||
CancelButton := TNewButton.Create(Form);
|
||||
CancelButton.Parent := Form;
|
||||
CancelButton.Caption := 'Cancel';
|
||||
CancelButton.Left := Form.ClientWidth - ScaleX(75 + 10);
|
||||
CancelButton.Top := Form.ClientHeight - ScaleY(23 + 10);
|
||||
CancelButton.Height := ScaleY(23);
|
||||
CancelButton.Anchors := [akRight, akBottom]
|
||||
CancelButton.ModalResult := mrCancel;
|
||||
CancelButton.Cancel := True;
|
||||
|
||||
W := Form.CalculateButtonWidth([OKButton.Caption, CancelButton.Caption]);
|
||||
OKButton.Width := W;
|
||||
CancelButton.Width := W;
|
||||
|
||||
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;
|
||||
|
||||
procedure TaskDialogButtonOnClick(Sender: TObject);
|
||||
begin
|
||||
{ TaskDialogMsgBox isn't a class but showing it anyway since it fits with the theme }
|
||||
|
||||
case TaskDialogMsgBox('Choose A or B',
|
||||
'You can choose A or B.',
|
||||
mbInformation,
|
||||
MB_YESNOCANCEL, ['I choose &A'#13#10'A will be chosen.', 'I choose &B'#13#10'B will be chosen.'],
|
||||
IDYES) of
|
||||
IDYES: MsgBox('You chose A.', mbInformation, MB_OK);
|
||||
IDNO: MsgBox('You chose B.', mbInformation, MB_OK);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure LinkLabelOnLinkClick(Sender: TObject; const Link: string; LinkType: TSysLinkType);
|
||||
var
|
||||
ErrorCode: Integer;
|
||||
begin
|
||||
if (LinkType = sltID) and (Link = 'jrsoftware') then
|
||||
ShellExecAsOriginalUser('open', 'https://jrsoftware.org', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
|
||||
else if LinkType = sltURL then
|
||||
ShellExecAsOriginalUser('open', Link, '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
|
||||
end;
|
||||
|
||||
procedure CreateTheWizardPages;
|
||||
var
|
||||
Page: TWizardPage;
|
||||
Button, FormButton, TaskDialogButton: TNewButton;
|
||||
Panel: TPanel;
|
||||
CheckBox: TNewCheckBox;
|
||||
Edit: TNewEdit;
|
||||
PasswordEdit: TPasswordEdit;
|
||||
Memo: TNewMemo;
|
||||
ComboBox: TNewComboBox;
|
||||
ListBox: TNewListBox;
|
||||
StaticText, StaticText2, ProgressBarLabel: TNewStaticText;
|
||||
LinkLabel: TNewLinkLabel;
|
||||
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.Caption := 'TNewButton';
|
||||
Button.Width := WizardForm.CalculateButtonWidth([Button.Caption]);
|
||||
Button.Height := ScaleY(23);
|
||||
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.Caption := 'TSetupForm';
|
||||
FormButton.Top := Memo.Top + Memo.Height + ScaleY(8);
|
||||
FormButton.Width := WizardForm.CalculateButtonWidth([FormButton.Caption]);
|
||||
FormButton.Height := ScaleY(23);
|
||||
FormButton.Anchors := [akLeft, akBottom];
|
||||
FormButton.OnClick := @FormButtonOnClick;
|
||||
FormButton.Parent := Page.Surface;
|
||||
|
||||
TaskDialogButton := TNewButton.Create(Page);
|
||||
TaskDialogButton.Caption := 'TaskDialogMsgBox';
|
||||
TaskDialogButton.Top := FormButton.Top;
|
||||
TaskDialogButton.Left := FormButton.Left + FormButton.Width + ScaleX(8);
|
||||
TaskDialogButton.Width := WizardForm.CalculateButtonWidth([TaskDialogButton.Caption]);
|
||||
TaskDialogButton.Height := ScaleY(23);
|
||||
TaskDialogButton.Anchors := [akLeft, akBottom];
|
||||
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.Parent := Page.Surface;
|
||||
|
||||
StaticText2 := TNewStaticText.Create(Page);
|
||||
StaticText2.AutoSize := False;
|
||||
StaticText2.Left := StaticText.Width + ScaleX(32);
|
||||
StaticText2.Top := StaticText.Top;
|
||||
StaticText2.Anchors := [akLeft, akRight, akBottom];
|
||||
StaticText2.WordWrap := True;
|
||||
StaticText2.Caption := 'TNewStaticText with more text and an adjusted label height so it''s multi-line.';
|
||||
StaticText2.Width := 2 * StaticText.Width;
|
||||
StaticText2.Parent := Page.Surface;
|
||||
StaticText2.AdjustHeight;
|
||||
|
||||
LinkLabel := TNewLinkLabel.Create(Page);
|
||||
LinkLabel.AutoSize := False;
|
||||
LinkLabel.Left := StaticText2.Left;
|
||||
LinkLabel.Top := StaticText2.Top + StaticText2.Height + ScaleY(8);
|
||||
LinkLabel.Anchors := [akLeft, akRight, akBottom];
|
||||
LinkLabel.Caption := 'TNew<a id="jrsoftware">Link</a>Label with more text and an adjusted label height so it''s multi-line with a second <a id="jrsoftware">link</a> on the second line.';
|
||||
LinkLabel.Width := StaticText2.Width;
|
||||
LinkLabel.OnLinkClick := @LinkLabelOnLinkClick;
|
||||
LinkLabel.Parent := Page.Surface;
|
||||
LinkLabel.AdjustHeight;
|
||||
|
||||
{ TNewProgressBar }
|
||||
|
||||
Page := CreateCustomPage(Page.ID, 'Custom wizard page controls', 'TNewProgressBar');
|
||||
|
||||
ProgressBarLabel := TNewStaticText.Create(Page);
|
||||
ProgressBarLabel.Anchors := [akLeft, akTop];
|
||||
ProgressBarLabel.Caption := 'TNewProgressBar';
|
||||
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, akTop];
|
||||
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, akTop];
|
||||
ProgressBar2.Parent := Page.Surface;
|
||||
ProgressBar2.Position := 50;
|
||||
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, akTop];
|
||||
ProgressBar3.Parent := Page.Surface;
|
||||
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', '123', 2, True, True, False, True, nil);
|
||||
CheckListBox.AddCheckBox('TNewCheckListBox', '456', 2, False, True, False, True, nil);
|
||||
CheckListBox.AddCheckBox('TNewCheckListBox', '', 1, False, True, False, True, nil);
|
||||
CheckListBox.ItemFontStyle[5] := [fsBold];
|
||||
CheckListBox.SubItemFontStyle[5] := [fsBold];
|
||||
CheckListBox.ItemFontStyle[6] := [fsBold, fsItalic];
|
||||
CheckListBox.SubItemFontStyle[6] := [fsBold, fsUnderline];
|
||||
|
||||
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}\WizClassicSmallImage.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;
|
||||
|
||||
procedure AboutButtonOnClick(Sender: TObject);
|
||||
begin
|
||||
MsgBox('This demo shows some features of the various form objects and control classes.', mbInformation, mb_Ok);
|
||||
end;
|
||||
|
||||
procedure CreateAboutButtonAndURLLabel(ParentForm: TSetupForm; CancelButton: TNewButton);
|
||||
var
|
||||
AboutButton: TNewButton;
|
||||
URLLabel: TNewLinkLabel;
|
||||
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 := TNewLinkLabel.Create(ParentForm);
|
||||
URLLabel.Left := AboutButton.Left + AboutButton.Width + ScaleX(20);
|
||||
URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;
|
||||
URLLabel.Anchors := [akLeft, akBottom];
|
||||
URLLabel.Caption := '<a href="https://jrsoftware.org">jrsoftware.org</a>';
|
||||
URLLabel.OnLinkClick := @LinkLabelOnLinkClick;
|
||||
URLLabel.UseVisualStyle := True;
|
||||
URLLabel.Parent := ParentForm;
|
||||
end;
|
||||
|
||||
procedure InitializeWizard();
|
||||
begin
|
||||
{ Custom wizard pages }
|
||||
|
||||
CreateTheWizardPages;
|
||||
|
||||
{ Custom controls }
|
||||
|
||||
CreateAboutButtonAndURLLabel(WizardForm, WizardForm.CancelButton);
|
||||
|
||||
{ Custom beveled label }
|
||||
|
||||
WizardForm.BeveledLabel.Caption := ' Bevel ';
|
||||
end;
|
||||
|
||||
procedure InitializeUninstallProgressForm();
|
||||
begin
|
||||
{ Custom controls }
|
||||
|
||||
CreateAboutButtonAndURLLabel(UninstallProgressForm, UninstallProgressForm.CancelButton);
|
||||
end;
|
||||
|
||||
Reference in New Issue
Block a user