Subversion Repositories spacemission

Compare Revisions

Regard whitespace Rev 2 → Rev 1

/SplInfo.pas
8,7 → 8,7
 
type
TInfoForm = class(TForm)
OkBtn: TButton;
ElPopupButton1: TButton;
HomeLbl: TLabel;
Image: TImage;
FirmaLbl: TLabel;
19,8 → 19,10
Copyright2Lbl: TLabel;
URL2: TLabel;
URL1: TLabel;
procedure OkBtnClick(Sender: TObject);
procedure ElPopupButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormHide(Sender: TObject);
procedure URL2Click(Sender: TObject);
procedure URL1Click(Sender: TObject);
end;
31,11 → 33,11
implementation
 
uses
Global;
SplMain;
 
{$R *.DFM}
 
procedure TInfoForm.OkBtnClick(Sender: TObject);
procedure TInfoForm.ElPopupButton1Click(Sender: TObject);
begin
close;
end;
42,10 → 44,23
 
procedure TInfoForm.FormCreate(Sender: TObject);
begin
VersionLbl.caption := 'Version ' + ProgramVersion;
image.picture.loadfromfile(FDirectory + 'Bilder\Delphi.bmp');
VersionLbl.caption := 'Version ' + mainform.fengineversion;
CopyrightLbl.caption := mainform.versioninfo.LegalCopyright + '.';
FirmaLbl.caption := mainform.versioninfo.CompanyName;
NameLbl.caption := 'SpaceMission';
image.picture.loadfromfile(mainform.FDirectory + 'Bilder\Delphi.bmp');
end;
 
procedure TInfoForm.FormShow(Sender: TObject);
begin
mainform.dxtimer.enabled := false;
end;
 
procedure TInfoForm.FormHide(Sender: TObject);
begin
if not mainform.gamepause.checked then mainform.dxtimer.enabled := true;
end;
 
procedure TInfoForm.URL2Click(Sender: TObject);
begin
shellexecute(application.Handle, 'open', pchar('http://'+url2.caption+'/'), nil, nil, SW_SHOW);
53,7 → 68,7
 
procedure TInfoForm.URL1Click(Sender: TObject);
begin
shellexecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + ProgramVersion), nil, nil, SW_SHOW);
shellexecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + mainform.fengineversion), nil, nil, SW_SHOW);
end;
 
end.