Rev 24 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 24 | Rev 79 | ||
---|---|---|---|
Line 40... | Line 40... | ||
40 | begin |
40 | begin |
41 | close; |
41 | close; |
42 | end; |
42 | end; |
43 | 43 | ||
44 | procedure TInfoForm.FormCreate(Sender: TObject); |
44 | procedure TInfoForm.FormCreate(Sender: TObject); |
- | 45 | resourcestring |
|
- | 46 | SVersion = 'Version %s'; |
|
45 | begin |
47 | begin |
46 | VersionLbl.caption := 'Version ' + ProgramVersion; |
48 | VersionLbl.caption := Format(SVersion, [ProgramVersion]); |
47 | end; |
49 | end; |
48 | 50 | ||
49 | procedure TInfoForm.WebsiteClick(Sender: TObject); |
51 | procedure TInfoForm.WebsiteClick(Sender: TObject); |
50 | begin |
52 | begin |
51 | ShellExecute(application.Handle, 'open', pchar('https://'+url2.caption+'/'), nil, nil, SW_SHOW); |
53 | ShellExecute(application.Handle, 'open', pchar('https://'+url2.caption+'/'), nil, nil, SW_SHOW); // do not localize |
52 | end; |
54 | end; |
53 | 55 | ||
54 | procedure TInfoForm.EMailClick(Sender: TObject); |
56 | procedure TInfoForm.EMailClick(Sender: TObject); |
55 | begin |
57 | begin |
56 | ShellExecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + ProgramVersion), nil, nil, SW_SHOW); |
58 | ShellExecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + ProgramVersion), nil, nil, SW_SHOW); // do not localize |
57 | end; |
59 | end; |
58 | 60 | ||
59 | end. |
61 | end. |
60 | 62 |