Merge branch 'master' of

https://github.com/bancika/diy-layout-creator.git

Conflicts:
	diylc/diylc-library/lib/diylc-core.jar
	diylc/diylc-swing/lib/diylc-core.jar
This commit is contained in:
Branislav Stojkovic
2017-05-06 12:19:42 +02:00
12 changed files with 66 additions and 9 deletions
+30 -2
View File
@@ -9,6 +9,7 @@ SolidCompression=yes
OutputDir=build
OutputBaseFilename=diylc
ChangesAssociations=yes
AlwaysShowDirOnReadyPage=yes
[Files]
Source: "diylc.exe"; DestDir: "{app}"
@@ -20,9 +21,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: ""
@@ -32,4 +33,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;