Subversion Repositories spacemission

Rev

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

  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;
  22.     MemoMitwirkende: TMemo;
  23.     procedure OkBtnClick(Sender: TObject);
  24.     procedure FormCreate(Sender: TObject);
  25.     procedure WebsiteClick(Sender: TObject);
  26.     procedure EMailClick(Sender: TObject);
  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);
  45. resourcestring
  46.   SVersion = 'Version %s';
  47. begin
  48.   VersionLbl.caption := Format(SVersion, [ProgramVersion]);
  49. end;
  50.  
  51. procedure TInfoForm.WebsiteClick(Sender: TObject);
  52. begin
  53.   ShellExecute(application.Handle, 'open', pchar('https://'+url2.caption+'/'), nil, nil, SW_SHOW); // do not localize
  54. end;
  55.  
  56. procedure TInfoForm.EMailClick(Sender: TObject);
  57. begin
  58.   ShellExecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + ProgramVersion), nil, nil, SW_SHOW); // do not localize
  59. end;
  60.  
  61. end.
  62.  
  63.