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     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;
  26
  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);
  34
  35   private
  36     { Private declarations }
  37   public
  38     { Public declarations }
  39   end;
  40
  41 var
  42   AboutForm: TAboutForm;
  43
  44 implementation
  45
  46 {$R *.lfm}
  47
  48 procedure TAboutForm.LabelMailClick(Sender: TObject);
  49 begin
  50    OpenDocument(PChar('mailto:rmw.falcon@mail.ru')); { *Преобразовано из ShellExecute* }
  51 end;
  52
  53 procedure TAboutForm.LabelMailMouseMove(Sender: TObject; Shift: TShiftState;
  54   X, Y: Integer);
  55 begin
  56   (Sender as TLabel).Font.Color := clBlue;
  57 end;
  58
  59 procedure TAboutForm.LabelMailMouseLeave(Sender: TObject);
  60 begin
  61   (Sender as TLabel).Font.Color := clWindowText;
  62 end;
  63
  64 procedure TAboutForm.LabelHttpClick(Sender: TObject);
  65 begin
  66    OpenDocument(PChar('www.doom2d.org')); { *Преобразовано из ShellExecute* }
  67 end;
  68
  69 procedure TAboutForm.ButtonOKClick(Sender: TObject);
  70 begin
  71   Close();
  72 end;
  73
  74 procedure TAboutForm.LabelMail2Click(Sender: TObject);
  75 begin
  76    OpenDocument(PChar('mailto:pssxx@mail.ru')); { *Преобразовано из ShellExecute* }
  77 end;
  78
  79 end.