Subversion Repositories spacemission

Rev

Rev 24 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
3 daniel-mar 1 
unit ComInfo;
2 
 
3 
interface
4 
 
5 
uses
6 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 
  StdCtrls, ShellAPI, ExtCtrls;
8 
 
9 
type
10 
  TInfoForm = class(TForm)
11 
    OkBtn: TButton;
12 
    HomeLbl: TLabel;
13 
    Image: TImage;
14 
    FirmaLbl: TLabel;
15 
    NameLbl: TLabel;
16 
    VersionLbl: TLabel;
17 
    EMailLbl: TLabel;
18 
    CopyrightLbl: TLabel;
19 
    Copyright2Lbl: TLabel;
20 
    URL2: TLabel;
21 
    URL1: TLabel;
4 daniel-mar 22 
    MemoMitwirkende: TMemo;
3 daniel-mar 23 
    procedure OkBtnClick(Sender: TObject);
24 
    procedure FormCreate(Sender: TObject);
4 daniel-mar 25 
    procedure WebsiteClick(Sender: TObject);
26 
    procedure EMailClick(Sender: TObject);
3 daniel-mar 27 
  end;
28 
 
29 
var
30 
  InfoForm: TInfoForm;
31 
 
32 
implementation
33 
 
34 
uses
35 
  Global;
36 
 
37 
{$R *.DFM}
38 
 
39 
procedure TInfoForm.OkBtnClick(Sender: TObject);
40 
begin
41 
  close;
42 
end;
43 
 
44 
procedure TInfoForm.FormCreate(Sender: TObject);
79 daniel-mar 45 
resourcestring
46 
  SVersion = 'Version %s';
3 daniel-mar 47 
begin
79 daniel-mar 48 
  VersionLbl.caption := Format(SVersion, [ProgramVersion]);
3 daniel-mar 49 
end;
50 
 
4 daniel-mar 51 
procedure TInfoForm.WebsiteClick(Sender: TObject);
3 daniel-mar 52 
begin
79 daniel-mar 53 
  ShellExecute(application.Handle, 'open', pchar('https://'+url2.caption+'/'), nil, nil, SW_SHOW); // do not localize
3 daniel-mar 54 
end;
55 
 
4 daniel-mar 56 
procedure TInfoForm.EMailClick(Sender: TObject);
3 daniel-mar 57 
begin
79 daniel-mar 58 
  ShellExecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + ProgramVersion), nil, nil, SW_SHOW); // do not localize
3 daniel-mar 59 
end;
60 
 
61 
end.
62