typeandrun/frmAboutUnit.pas at master · codeleventh/typeandrun · 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
unit frmAboutUnit;

interface

uses
	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ShellAPI;

type
	TfrmAbout = class(TForm)
		lblAbout: TLabel;
		btnClose: TButton;
		lblGohomepage: TLabel;
		lblGoEmail1: TLabel;
		lblGoEmail2: TLabel;
		imgBackground1: TImage;
		imgBackground2: TImage;
		imgBackground3: TImage;
		procedure FormShow(Sender: TObject);
		procedure btnCloseClick(Sender: TObject);
		procedure lblGohomepageClick(Sender: TObject);
		procedure lblGoEmail1Click(Sender: TObject);
		procedure lblGoEmail2Click(Sender: TObject);
	private

	public

	end;

var
	frmAbout: TfrmAbout;

implementation

{$R *.dfm}

uses ForAll, Static, Configs	, frmConsoleUnit, frmSettingsUnit, StrUtils, Settings;

// Îòîáðàæåíèå ôîðìû
procedure TfrmAbout.FormShow(Sender: TObject);
var
	Context: string;
begin
	ShowWindow(Application.Handle, SW_HIDE);
  Context:='program name: '+LowerCase(Program_Name)+'|version: '+LowerCase(Program_Version)+'|location: http://www.galanc.com|author: -=GaLaN=- (Evgeniy Galantsev)|email 1: -GaLaN-@mail.ru|      2: galan@fromru.com|icq: 291381';
	lblAbout.Caption:=AnsiReplaceStr(Context, '|', #13);
end;

// Çàêðûòü ôîðìó
procedure TfrmAbout.btnCloseClick(Sender: TObject);
begin
	frmAbout.Close;
end;

// Èäòè íà îôôèöèàëüíóþ ñòðàíèöó
procedure TfrmAbout.lblGohomepageClick(Sender: TObject);
begin
	RunShell(Options.Path.Browser, 'http://www.galanc.com');
end;

// Ìûëî 1 ðàçðàáîò÷èêó
procedure TfrmAbout.lblGoEmail1Click(Sender: TObject);
begin
	RunShell('mailto:-=GaLaN=-%20%3c-GalaN-@mail.ru%3e?subject=' + Program_Name + '%20' + Program_Version);
end;

// Ìûëî 2 ðàçðàáîò÷èêó
procedure TfrmAbout.lblGoEmail2Click(Sender: TObject);
begin
	RunShell('mailto:-=GaLaN=-%20%3cgalan@fromru.com%3e?subject='+Program_Name+'%20'+Program_Version);
end;


initialization
	WM_SendFileNameToOpen:=RegisterWindowMessage('WM_SendFileNameToOpen');

end.