Subversion Repositories spacemission

Compare Revisions

Regard whitespace Rev 2 → Rev 3

/ComInfo.pas
0,0 → 1,60
unit ComInfo;
interface
 
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ShellAPI, ExtCtrls;
 
type
TInfoForm = class(TForm)
OkBtn: TButton;
HomeLbl: TLabel;
Image: TImage;
FirmaLbl: TLabel;
NameLbl: TLabel;
VersionLbl: TLabel;
EMailLbl: TLabel;
CopyrightLbl: TLabel;
Copyright2Lbl: TLabel;
URL2: TLabel;
URL1: TLabel;
procedure OkBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure URL2Click(Sender: TObject);
procedure URL1Click(Sender: TObject);
end;
 
var
InfoForm: TInfoForm;
 
implementation
 
uses
Global;
 
{$R *.DFM}
 
procedure TInfoForm.OkBtnClick(Sender: TObject);
begin
close;
end;
 
procedure TInfoForm.FormCreate(Sender: TObject);
begin
VersionLbl.caption := 'Version ' + ProgramVersion;
image.picture.loadfromfile(FDirectory + 'Bilder\Delphi.bmp');
end;
 
procedure TInfoForm.URL2Click(Sender: TObject);
begin
shellexecute(application.Handle, 'open', pchar('http://'+url2.caption+'/'), nil, nil, SW_SHOW);
end;
 
procedure TInfoForm.URL1Click(Sender: TObject);
begin
shellexecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + ProgramVersion), nil, nil, SW_SHOW);
end;
 
end.