docker/docs
1
0
Fork 0
mirror of https://github.com/docker/docs.git synced 2026-11-05 00:14:17 +03:00
Code Activity

Improved overview diagnostic messaging

Browse Source 
Signed-off-by: Jeffrey Morgan <jmorganca@gmail.com>
This commit is contained in:
Jeffrey Morgan
2015-08-31 08:07:21 -07:00
parent e97a2fccd6
commit a15dae2a43
1 changed files with 20 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
windows/Toolbox.iss
View File

@@ -28,7 +28,7 @@ DefaultDirName={pf}\{#MyAppName}
DefaultGroupName=Docker
DisableProgramGroupPage=yes
OutputBaseFilename=DockerToolbox
Compression=lzma
Compression=none
SolidCompression=yes
WizardImageFile=windows-installer-side.bmp
WizardSmallImageFile=windows-installer-logo.bmp
@@ -194,6 +194,7 @@ end;
procedure InitializeWizard;
var
WelcomePage: TWizardPage;
TrackingLabel: TLabel;
begin
DockerInstallDocs := TLabel.Create(WizardForm);
DockerInstallDocs.Parent := WizardForm;
@@ -204,19 +205,34 @@ begin
DockerInstallDocs.Font.Style := [fsUnderline];
DockerInstallDocs.Caption := '{#MyAppName} installation documentation';
DockerInstallDocs.OnClick := @DocLinkClick;
DockerInstallDocs.Visible := True;
WelcomePage := PageFromID(wpWelcome)
TrackingCheckBox := TNewCheckBox.Create(WelcomePage);
WizardForm.WelcomeLabel2.AutoSize := True;
TrackingCheckBox := TNewCheckBox.Create(WizardForm);
TrackingCheckBox.Top := 168;
TrackingCheckBox.Left := WizardForm.WelcomeLabel2.Left;
TrackingCheckBox.Width := WizardForm.WelcomeLabel2.Width;
TrackingCheckBox.Height := 40;
TrackingCheckBox.Caption := 'Send one-time anonymous data to improve this installer.';
TrackingCheckBox.Caption := 'Send one-time, anonymous diagonstics during install.';
TrackingCheckBox.Checked := True;
TrackingCheckBox.Parent := WelcomePage.Surface;
TrackingCheckBox.OnClick := @TrackingCheckboxClicked;
DockerInstallDocs.Visible := True;
TrackingLabel := TLabel.Create(WizardForm);
TrackingLabel.Parent := WelcomePage.Surface;
TrackingLabel.Font := WizardForm.WelcomeLabel2.Font;
TrackingLabel.Font.Color := clGray;
TrackingLabel.Caption := 'This data helps us detect problems and improve the installation experience. We only use it for aggregate statistics and will never share it with third parties.';
TrackingLabel.WordWrap := True;
TrackingLabel.Visible := True;
TrackingLabel.Left := WizardForm.WelcomeLabel2.Left;
TrackingLabel.Width := WizardForm.WelcomeLabel2.Width;
TrackingLabel.Top := 200;
TrackingLabel.Height := 100;
WizardForm.FinishedLabel.AutoSize := True;
WizardForm.FinishedLabel.Caption :=
'{#MyAppName} installation completed.' + \