Rev 3 | Rev 15 | Go to most recent revision | Show entire file | Ignore 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 |