DEADSOFTWARE

add build info
[d2df-editor.git] / src / editor / f_about.pas
1 unit f_about;
3 {$INCLUDE ../shared/a_modes.inc}
5 interface
7 uses
8 LCLIntf, LCLType, LMessages, Messages, SysUtils, Variants, Classes,
9 Graphics, Controls, Forms, Dialogs, StdCtrls,
10 ExtCtrls;
12 type
13 TAboutForm = class (TForm)
14 PanelAbout: TPanel;
15 LabelTitle: TLabel;
16 LabelVer: TLabel;
17 LabelAuthor: TLabel;
18 LabelMail: TLabel;
19 LabelSite: TLabel;
20 LabelHttp: TLabel;
21 Bevel1: TBevel;
22 Bevel2: TBevel;
23 ButtonOK: TButton;
24 LabelAuthor2: TLabel;
25 LabelMail2: TLabel;
27 procedure LabelMailClick(Sender: TObject);
28 procedure LabelMailMouseMove(Sender: TObject; Shift: TShiftState; X,
29 Y: Integer);
30 procedure LabelMailMouseLeave(Sender: TObject);
31 procedure LabelHttpClick(Sender: TObject);
32 procedure ButtonOKClick(Sender: TObject);
33 procedure LabelMail2Click(Sender: TObject);
35 private
36 { Private declarations }
37 public
38 { Public declarations }
39 end;
41 var
42 AboutForm: TAboutForm;
44 implementation
46 {$R *.lfm}
48 procedure TAboutForm.LabelMailClick(Sender: TObject);
49 begin
50 OpenDocument(PChar('mailto:rmw.falcon@mail.ru')); { *Преобразовано из ShellExecute* }
51 end;
53 procedure TAboutForm.LabelMailMouseMove(Sender: TObject; Shift: TShiftState;
54 X, Y: Integer);
55 begin
56 (Sender as TLabel).Font.Color := clBlue;
57 end;
59 procedure TAboutForm.LabelMailMouseLeave(Sender: TObject);
60 begin
61 (Sender as TLabel).Font.Color := clWindowText;
62 end;
64 procedure TAboutForm.LabelHttpClick(Sender: TObject);
65 begin
66 OpenDocument(PChar('www.doom2d.org')); { *Преобразовано из ShellExecute* }
67 end;
69 procedure TAboutForm.ButtonOKClick(Sender: TObject);
70 begin
71 Close();
72 end;
74 procedure TAboutForm.LabelMail2Click(Sender: TObject);
75 begin
76 OpenDocument(PChar('mailto:pssxx@mail.ru')); { *Преобразовано из ShellExecute* }
77 end;
79 end.