Subversion Repositories spacemission

Rev

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