Subversion Repositories spacemission

Rev

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

Rev 3 Rev 4
Line 17... Line 17...
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 
    MemoMitwirkende: TMemo;
22 
    procedure OkBtnClick(Sender: TObject);
 23 
    procedure OkBtnClick(Sender: TObject);
23 
    procedure FormCreate(Sender: TObject);
 24 
    procedure FormCreate(Sender: TObject);
24 
    procedure URL2Click(Sender: TObject);
 25 
    procedure WebsiteClick(Sender: TObject);
25 
    procedure URL1Click(Sender: TObject);
 26 
    procedure EMailClick(Sender: TObject);
26 
  end;
 27 
  end;
27 
 
 28 
 
28 
var
 29 
var
29 
  InfoForm: TInfoForm;
 30 
  InfoForm: TInfoForm;
30 
 
 31 
 
Line 44... Line 45...
44 
begin
 45 
begin
45 
  VersionLbl.caption := 'Version ' + ProgramVersion;
 46 
  VersionLbl.caption := 'Version ' + ProgramVersion;
46 
  image.picture.loadfromfile(FDirectory + 'Bilder\Delphi.bmp');
 47 
  image.picture.loadfromfile(FDirectory + 'Bilder\Delphi.bmp');
47 
end;
 48 
end;
48 
 
 49 
 
49 
procedure TInfoForm.URL2Click(Sender: TObject);
 50 
procedure TInfoForm.WebsiteClick(Sender: TObject);
50 
begin
 51 
begin
51 
  shellexecute(application.Handle, 'open', pchar('http://'+url2.caption+'/'), nil, nil, SW_SHOW);
 52 
  ShellExecute(application.Handle, 'open', pchar('http://'+url2.caption+'/'), nil, nil, SW_SHOW);
52 
end;
 53 
end;
53 
 
 54 
 
54 
procedure TInfoForm.URL1Click(Sender: TObject);
 55 
procedure TInfoForm.EMailClick(Sender: TObject);
55 
begin
 56 
begin
56 
  shellexecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + ProgramVersion), nil, nil, SW_SHOW);
 57 
  ShellExecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + ProgramVersion), nil, nil, SW_SHOW);
57 
end;
 58 
end;
58 
 
 59 
 
59 
end.
 60 
end.
60 
 
 61