From 00a39cb6c4bf9e73a319000b81bb6e1a3636499e Mon Sep 17 00:00:00 2001
From: xhmikosr <xhmikosr@21ef857c-d57f-4fe0-8362-d861dc6d29cd>
Date: Fri, 16 Oct 2009 13:36:41 +0000
Subject: [PATCH] Installer: Added link to website to the bottom left of the
 installer

git-svn-id: svn://svn.code.sf.net/p/processhacker/code@2231 21ef857c-d57f-4fe0-8362-d861dc6d29cd
---
 .../Installer/Process_Hacker_installer.iss    | 39 ++++++++++++++++++-
 1 file changed, 38 insertions(+), 1 deletion(-)

diff --git a/trunk/ProcessHacker/Build/Installer/Process_Hacker_installer.iss b/trunk/ProcessHacker/Build/Installer/Process_Hacker_installer.iss
index 5404853e4..302f2b402 100644
--- a/trunk/ProcessHacker/Build/Installer/Process_Hacker_installer.iss
+++ b/trunk/ProcessHacker/Build/Installer/Process_Hacker_installer.iss
@@ -25,7 +25,7 @@
 ;   http://www.jrsoftware.org/isdl.php#qsp
 
 
-#define installer_build_number "39"
+#define installer_build_number "40"
 
 #define VerMajor
 #define VerMinor
@@ -275,6 +275,43 @@ begin
 end;
 
 
+procedure URLLabelOnClick(Sender: TObject);
+var
+  ErrorCode: Integer;
+begin
+  ShellExec('open', 'http://processhacker.sourceforge.net/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
+end;
+
+
+procedure CreateURLLabel(ParentForm: TSetupForm; CancelButton: TNewButton);
+var
+  URLLabel: TNewStaticText;
+begin
+  URLLabel := TNewStaticText.Create(ParentForm);
+  URLLabel.Caption := 'Homepage';
+  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 := clBlue;
+  URLLabel.Top := CancelButton.Top + CancelButton.Height - URLLabel.Height - 2;
+  URLLabel.Left := ParentForm.ClientWidth - CancelButton.Left - CancelButton.Width;
+end;
+
+
+procedure InitializeWizard();
+begin
+  CreateURLLabel(WizardForm, WizardForm.CancelButton);
+end;
+
+
+procedure InitializeUninstallProgressForm();
+begin
+  CreateURLLabel(UninstallProgressForm, UninstallProgressForm.CancelButton);
+end;
+
+
 procedure CurStepChanged(CurStep: TSetupStep);
 begin
   if CurStep = ssInstall then begin