Subversion Repositories spacemission

Rev

Rev 1 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1 Rev 2
Line 6... Line 6...
6 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 6 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 
  StdCtrls, ShellAPI, ExtCtrls;
 7 
  StdCtrls, ShellAPI, ExtCtrls;
8 
 
 8 
 
9 
type
 9 
type
10 
  TInfoForm = class(TForm)
 10 
  TInfoForm = class(TForm)
11 
    ElPopupButton1: TButton;
 11 
    OkBtn: TButton;
12 
    HomeLbl: TLabel;
 12 
    HomeLbl: TLabel;
13 
    Image: TImage;
 13 
    Image: TImage;
14 
    FirmaLbl: TLabel;
 14 
    FirmaLbl: TLabel;
15 
    NameLbl: TLabel;
 15 
    NameLbl: TLabel;
16 
    VersionLbl: TLabel;
 16 
    VersionLbl: TLabel;
17 
    EMailLbl: TLabel;
 17 
    EMailLbl: TLabel;
18 
    CopyrightLbl: TLabel;
 18 
    CopyrightLbl: TLabel;
19 
    Copyright2Lbl: TLabel;
 19 
    Copyright2Lbl: TLabel;
20 
    URL2: TLabel;
 20 
    URL2: TLabel;
21 
    URL1: TLabel;
 21 
    URL1: TLabel;
22 
    procedure ElPopupButton1Click(Sender: TObject);
 22 
    procedure OkBtnClick(Sender: TObject);
23 
    procedure FormCreate(Sender: TObject);
 23 
    procedure FormCreate(Sender: TObject);
24 
    procedure FormShow(Sender: TObject);
 - 
 
25 
    procedure FormHide(Sender: TObject);
 - 
 
26 
    procedure URL2Click(Sender: TObject);
 24 
    procedure URL2Click(Sender: TObject);
27 
    procedure URL1Click(Sender: TObject);
 25 
    procedure URL1Click(Sender: TObject);
28 
  end;
 26 
  end;
29 
 
 27 
 
30 
var
 28 
var
31 
  InfoForm: TInfoForm;
 29 
  InfoForm: TInfoForm;
32 
 
 30 
 
33 
implementation
 31 
implementation
34 
 
 32 
 
35 
uses
 33 
uses
36 
  SplMain;
 34 
  Global;
37 
 
 35 
 
38 
{$R *.DFM}
 36 
{$R *.DFM}
39 
 
 37 
 
40 
procedure TInfoForm.ElPopupButton1Click(Sender: TObject);
 38 
procedure TInfoForm.OkBtnClick(Sender: TObject);
41 
begin
 39 
begin
42 
  close;
 40 
  close;
43 
end;
 41 
end;
44 
 
 42 
 
45 
procedure TInfoForm.FormCreate(Sender: TObject);
 43 
procedure TInfoForm.FormCreate(Sender: TObject);
46 
begin
 44 
begin
47 
  VersionLbl.caption := 'Version ' + mainform.fengineversion;
 45 
  VersionLbl.caption := 'Version ' + ProgramVersion;
48 
  CopyrightLbl.caption := mainform.versioninfo.LegalCopyright + '.';
 - 
 
49 
  FirmaLbl.caption := mainform.versioninfo.CompanyName;
 - 
 
50 
  NameLbl.caption := 'SpaceMission';
 - 
 
51 
  image.picture.loadfromfile(mainform.FDirectory + 'Bilder\Delphi.bmp');
 46 
  image.picture.loadfromfile(FDirectory + 'Bilder\Delphi.bmp');
52 
end;
 - 
 
53 
 
 - 
 
54 
procedure TInfoForm.FormShow(Sender: TObject);
 - 
 
55 
begin
 - 
 
56 
  mainform.dxtimer.enabled := false;
 - 
 
57 
end;
 - 
 
58 
 
 - 
 
59 
procedure TInfoForm.FormHide(Sender: TObject);
 - 
 
60 
begin
 - 
 
61 
  if not mainform.gamepause.checked then mainform.dxtimer.enabled := true;
 - 
 
62 
end;
 47 
end;
63 
 
 48 
 
64 
procedure TInfoForm.URL2Click(Sender: TObject);
 49 
procedure TInfoForm.URL2Click(Sender: TObject);
65 
begin
 50 
begin
66 
  shellexecute(application.Handle, 'open', pchar('http://'+url2.caption+'/'), nil, nil, SW_SHOW);
 51 
  shellexecute(application.Handle, 'open', pchar('http://'+url2.caption+'/'), nil, nil, SW_SHOW);
67 
end;
 52 
end;
68 
 
 53 
 
69 
procedure TInfoForm.URL1Click(Sender: TObject);
 54 
procedure TInfoForm.URL1Click(Sender: TObject);
70 
begin
 55 
begin
71 
  shellexecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + mainform.fengineversion), nil, nil, SW_SHOW);
 56 
  shellexecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + ProgramVersion), nil, nil, SW_SHOW);
72 
end;
 57 
end;
73 
 
 58 
 
74 
end.
 59 
end.
75 
 
 60