-
Notifications
You must be signed in to change notification settings - Fork 30
/
about.pas
103 lines (79 loc) · 1.71 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
102
unit About;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ExtCtrls, StdCtrls, Buttons, URIParser, LCLIntf;
const
{$IFDEF LINUX}
Target = 'Linux';
{$ENDIF}
{$IFDEF WINDOWS}
Target = 'Win';
{$ENDIF}
{$IFDEF MAC}
Target = 'Mac';
{$ENDIF}
{$IFDEF BSD}
Target = 'BSD';
{$ENDIF}
{$ifDEF CPU32}
Arch = '32';
{$ENDIF}
{$ifDEF CPU64}
Arch = '64';
{$ENDIF}
type
{ TfmAbout }
TfmAbout = class(TForm)
BitBtn1: TBitBtn;
Image2: TImage;
Label2: TLabel;
Label5: TLabel;
laTarget: TLabel;
laVersion: TLabel;
Label4: TLabel;
laWebSite: TLabel;
Label6: TLabel;
laVersionDate: TLabel;
Shape1: TShape;
procedure BitBtn1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure Label6Click(Sender: TObject);
procedure laWebSiteClick(Sender: TObject);
private
{ private declarations }
public
procedure Init;
{ public declarations }
end;
var
fmAbout: TfmAbout;
implementation
{ TfmAbout }
uses Main;
procedure TfmAbout.laWebSiteClick(Sender: TObject);
begin
OpenURL(laWebSite.Caption);
end;
procedure TfmAbout.Init;
begin
laVersion.Caption:= 'Beta Version ' + fmMain.Version;
laVersionDate.Caption:= fmMain.VersionDate;
laTarget.Caption:= 'Target : ' + Target + '-' + Arch;
end;
procedure TfmAbout.Label6Click(Sender: TObject);
begin
OpenURL('http://lazarus.freepascal.org');
end;
procedure TfmAbout.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
CloseAction:= caFree;
end;
procedure TfmAbout.BitBtn1Click(Sender: TObject);
begin
Close;
end;
initialization
{$I about.lrs}
end.