-
Notifications
You must be signed in to change notification settings - Fork 0
/
about.pas
101 lines (77 loc) · 2.1 KB
/
about.pas
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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
unit About;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Buttons, StdCtrls;
type
{ TAboutBox }
TAboutBox = class(TForm)
IntroBtn: TBitBtn;
ContributorsBtn: TBitBtn;
OKBtn: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
FacebookBtn: TBitBtn;
MediumBtn: TBitBtn;
PatreonBtn: TBitBtn;
GroupBox1: TGroupBox;
Label1: TLabel;
VersionLabel: TLabel;
Label3: TLabel;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure ContributorsBtnClick(Sender: TObject);
procedure FacebookBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure IntroBtnClick(Sender: TObject);
procedure MediumBtnClick(Sender: TObject);
procedure PatreonBtnClick(Sender: TObject);
private
public
end;
var
AboutBox: TAboutBox;
implementation
uses FormEx, LCLIntf, Global;
{$R *.lfm}
{ TAboutBox }
procedure TAboutBox.FormCreate(Sender: TObject);
begin
FormAdjust(Self);
VersionLabel.Caption := Format('Version %s', [Version])
end;
procedure TAboutBox.IntroBtnClick(Sender: TObject);
begin
IntroBtn.ShowHelp;
end;
procedure TAboutBox.MediumBtnClick(Sender: TObject);
begin
OpenDocument('https://medium.com/@jakobsche')
end;
procedure TAboutBox.PatreonBtnClick(Sender: TObject);
begin
OpenDocument('https://patreon.com/raspberrypirad')
end;
procedure TAboutBox.BitBtn2Click(Sender: TObject);
begin
OpenDocument('mailto:[email protected]');
end;
procedure TAboutBox.BitBtn3Click(Sender: TObject);
begin
OpenDocument('https://t.me/jakobsche')
end;
procedure TAboutBox.BitBtn4Click(Sender: TObject);
begin
OpenDocument('https://github.com/jakobsche/fpe')
end;
procedure TAboutBox.ContributorsBtnClick(Sender: TObject);
begin
ContributorsBtn.ShowHelp
end;
procedure TAboutBox.FacebookBtnClick(Sender: TObject);
begin
OpenDocument('https://facebook.com/raspberrypirad')
end;
end.