src/editor/f_about.pas

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