issrc/isdonateandmail.iss at main · jrsoftware/issrc · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
// -- IsDonateAndMail.iss --
// Include file which adds donate and subscribe buttons to Setup
//
[Files]
Source: "{#__DIR__}\isdonate.bmp"; Flags: dontcopy noencryption
Source: "{#__DIR__}\isdonate_dark.bmp"; Flags: dontcopy noencryption
Source: "{#__DIR__}\ismail.bmp"; Flags: dontcopy noencryption
Source: "{#__DIR__}\ismail_dark.bmp"; Flags: dontcopy noencryption

[CustomMessages]
; No need to localize: The IS website is in English only
IsDonateAndMailDonateCaption=Donate
IsDonateAndMailDonateHint=Support Inno Setup - Thank you!
IsDonateAndMailMailCaption=Subscribe
IsDonateAndMailMailHint=Be notified by e-mail of new Inno Setup releases

[Code]
procedure DonateBitmapButtonOnClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExecAsOriginalUser('open', 'https://jrsoftware.org/isdonate.php', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure MailBitmapButtonOnClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExecAsOriginalUser('open', 'https://jrsoftware.org/ismail.php', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

<event('InitializeWizard')>
procedure IsDonateAndMailInitializeWizard;
var
  ImageFileName, ImageFileNamePostfix: String;
  DonateBitmapButton, MailBitmapButton: TBitmapButton;
  BevelTop: Integer;
begin
  if WizardSilent then
    Exit;

  if IsDarkInstallMode then
    ImageFileNamePostfix := '_dark'
  else
    ImageFileNamePostfix := '';

  ImageFileName := ExpandConstant(Format('{tmp}\isdonate%s.bmp', [ImageFileNamePostfix]));
  ExtractTemporaryFile(ExtractFileName(ImageFileName));

  DonateBitmapButton := TBitmapButton.Create(WizardForm);
  DonateBitmapButton.AutoSize := True;
  DonateBitmapButton.Bitmap.LoadFromFile(ImageFileName);
  DonateBitmapButton.Caption := CustomMessage('IsDonateAndMailDonateCaption');
  DonateBitmapButton.Hint := CustomMessage('IsDonateAndMailDonateHint');
  DonateBitmapButton.ShowHint := True;
  BevelTop := WizardForm.Bevel.Top;
  DonateBitmapButton.Top := BevelTop + (WizardForm.ClientHeight - BevelTop - DonateBitmapButton.Height) div 2;
  DonateBitmapButton.Left := DonateBitmapButton.Top - BevelTop;
  DonateBitmapButton.Cursor := crHand;
  DonateBitmapButton.OnClick := @DonateBitmapButtonOnClick;
  DonateBitmapButton.Parent := WizardForm;

  ImageFileName := ExpandConstant(Format('{tmp}\ismail%s.bmp', [ImageFileNamePostfix]));
  ExtractTemporaryFile(ExtractFileName(ImageFileName));

  MailBitmapButton := TBitmapButton.Create(WizardForm);
  MailBitmapButton.AutoSize := True;
  MailBitmapButton.Bitmap.LoadFromFile(ImageFileName);
  MailBitmapButton.Caption := CustomMessage('IsDonateAndMailMailCaption');
  MailBitmapButton.Hint := CustomMessage('IsDonateAndMailMailHint');
  MailBitmapButton.ShowHint := True;
  MailBitmapButton.Top := DonateBitmapButton.Top
  MailBitmapButton.Left := DonateBitmapButton.Left + DonateBitmapButton.Width + ScaleX(4);
  MailBitmapButton.Cursor := crHand;
  MailBitmapButton.OnClick := @MailBitmapButtonOnClick;
  MailBitmapButton.Parent := WizardForm;
end;
[/Code]