-
Notifications
You must be signed in to change notification settings - Fork 4
/
unitabout.pas
90 lines (74 loc) · 1.95 KB
/
unitabout.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
unit UnitAbout;
interface
uses
System.Classes, System.UITypes,
FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.StdCtrls, FMX.Objects, FMX.Effects, FMX.Layouts,
FMX.Ani, FMX.Controls.Presentation;
type
TFormAbout = class(TForm)
LabelApp: TLabel;
Button: TButton;
LabelVersion: TLabel;
LabelCopyright: TLabel;
LabelAuthor: TLabel;
TextWWW: TText;
Memo: TLabel;
Line1: TLine;
Line2: TLine;
procedure FormActivate(Sender: TObject);
procedure TextWWWClick(Sender: TObject);
procedure TextWWWMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
procedure TextWWWMouseLeave(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ButtonClick(Sender: TObject);
private
{ Private declarations }
procedure Translate;
public
{ Public declarations }
end;
var
FormAbout: TFormAbout;
implementation
{$R *.fmx}
uses
UnitMain, UnitList, UnitLang, UnitLib;
procedure TFormAbout.Translate;
begin
Lang := TLang.Create;
Caption := T('About');
Lang.Free;
if GetDefaultLanguage = 'russian' then
begin
LabelVersion.Text := 'Версия 4.1';
LabelAuthor .Text := 'Владимир Рыбант';
end;
end;
procedure TFormAbout.ButtonClick(Sender: TObject);
begin
OpenUrl('https://www.facebook.com/bible.verse.desktop');
end;
procedure TFormAbout.FormActivate(Sender: TObject);
begin
Memo.Text := List.Info;
// caption :=
end;
procedure TFormAbout.FormShow(Sender: TObject);
begin
Translate;
end;
procedure TFormAbout.TextWWWClick(Sender: TObject);
begin
if GetDefaultLanguage = 'russian'
then OpenUrl('http://vladimirrybant.org/ru/')
else OpenUrl('http://vladimirrybant.org/');
end;
procedure TFormAbout.TextWWWMouseLeave(Sender: TObject);
begin
TextWWW.Color := TAlphaColorRec.Black;
end;
procedure TFormAbout.TextWWWMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
begin
TextWWW.Color := TAlphaColorRec.Navy;
end;
end.