diff --git a/diylc/diylc-swing/innosetup/WizModernImage-IS.bmp b/diylc/diylc-swing/innosetup/WizModernImage-IS.bmp index cf844e09..3b505e19 100644 Binary files a/diylc/diylc-swing/innosetup/WizModernImage-IS.bmp and b/diylc/diylc-swing/innosetup/WizModernImage-IS.bmp differ diff --git a/diylc/diylc-swing/innosetup/WizModernImage.bmp b/diylc/diylc-swing/innosetup/WizModernImage.bmp index cb05a063..fa609934 100644 Binary files a/diylc/diylc-swing/innosetup/WizModernImage.bmp and b/diylc/diylc-swing/innosetup/WizModernImage.bmp differ diff --git a/diylc/diylc-swing/innosetup/WizModernSmallImage-IS.bmp b/diylc/diylc-swing/innosetup/WizModernSmallImage-IS.bmp index 1e8e4979..4117e34b 100644 Binary files a/diylc/diylc-swing/innosetup/WizModernSmallImage-IS.bmp and b/diylc/diylc-swing/innosetup/WizModernSmallImage-IS.bmp differ diff --git a/diylc/diylc-swing/innosetup/WizModernSmallImage.bmp b/diylc/diylc-swing/innosetup/WizModernSmallImage.bmp index 63f42104..1b5f183a 100644 Binary files a/diylc/diylc-swing/innosetup/WizModernSmallImage.bmp and b/diylc/diylc-swing/innosetup/WizModernSmallImage.bmp differ diff --git a/diylc/diylc-swing/innosetup/donate.bmp b/diylc/diylc-swing/innosetup/donate.bmp new file mode 100644 index 00000000..55c557fc Binary files /dev/null and b/diylc/diylc-swing/innosetup/donate.bmp differ diff --git a/diylc/diylc-swing/install.iss b/diylc/diylc-swing/install.iss index 52655335..c689a25f 100644 --- a/diylc/diylc-swing/install.iss +++ b/diylc/diylc-swing/install.iss @@ -9,6 +9,7 @@ SolidCompression=yes OutputDir=build OutputBaseFilename=diylc ChangesAssociations=yes +AlwaysShowDirOnReadyPage=yes [Files] Source: "diylc.exe"; DestDir: "{app}" @@ -19,9 +20,9 @@ Source: "diylc.ico"; DestDir: "{app}" Source: "build\jar\diylc.jar"; DestDir: "{app}" Source: "build\jar\lib\*"; DestDir: "{app}\lib" Source: "build\jar\library\*"; DestDir: "{app}\library" +Source: "innosetup\donate.bmp"; DestDir: "{tmp}"; Flags: dontcopy nocompression [Registry] - Root: HKCR; Subkey: ".diy"; ValueData: "DIYLC"; Flags: uninsdeletevalue; ValueType: string; ValueName: "" Root: HKCR; Subkey: "DIYLC"; ValueData: "Program DIYLC"; Flags: uninsdeletekey; ValueType: string; ValueName: "" Root: HKCR; Subkey: "DIYLC\DefaultIcon"; ValueData: "{app}\diylc.ico"; ValueType: string; ValueName: "" @@ -31,4 +32,31 @@ Root: HKCR; Subkey: "DIYLC\shell\open\command"; ValueData: """{app}\diylc.exe"" Name: "{group}\DIY Layout Creator"; Filename: "{app}\diylc.exe" [Run] -Filename: "{app}\diylc.exe"; Flags: postinstall skipifsilent +Filename: "{app}\diylc.exe"; Description: "Launch DIYLC on exit"; Flags: postinstall skipifsilent + +[Code] + +procedure LicenseLinkClick(Sender: TObject); +var + ErrorCode: Integer; +begin + ShellExec('', 'http://www.diy-fever.com/donate', '', '', SW_SHOW, ewNoWait, + ErrorCode); +end; + +procedure InitializeWizard; +var donateImage: TBitmapImage; +begin + ExtractTemporaryFile('donate.bmp'); + + donateImage := TBitmapImage.Create(WizardForm); + donateImage.Parent:= WizardForm; + donateImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\donate.bmp')); + donateImage.Stretch := True; + donateImage.Width := 142; + donateImage.Height := 27; + donateImage.Left := 8; + donateImage.Top := WizardForm.InnerPage.Height + 10; + donateImage.Cursor := crHand; + donateImage.OnClick := @LicenseLinkClick; +end; \ No newline at end of file