8,7 → 8,7 |
|
type |
TInfoForm = class(TForm) |
ElPopupButton1: TButton; |
OkBtn: TButton; |
HomeLbl: TLabel; |
Image: TImage; |
FirmaLbl: TLabel; |
19,10 → 19,8 |
Copyright2Lbl: TLabel; |
URL2: TLabel; |
URL1: TLabel; |
procedure ElPopupButton1Click(Sender: TObject); |
procedure OkBtnClick(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
procedure FormShow(Sender: TObject); |
procedure FormHide(Sender: TObject); |
procedure URL2Click(Sender: TObject); |
procedure URL1Click(Sender: TObject); |
end; |
33,11 → 31,11 |
implementation |
|
uses |
SplMain; |
Global; |
|
{$R *.DFM} |
|
procedure TInfoForm.ElPopupButton1Click(Sender: TObject); |
procedure TInfoForm.OkBtnClick(Sender: TObject); |
begin |
close; |
end; |
44,23 → 42,10 |
|
procedure TInfoForm.FormCreate(Sender: TObject); |
begin |
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'); |
VersionLbl.caption := 'Version ' + ProgramVersion; |
image.picture.loadfromfile(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); |
68,7 → 53,7 |
|
procedure TInfoForm.URL1Click(Sender: TObject); |
begin |
shellexecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + mainform.fengineversion), nil, nil, SW_SHOW); |
shellexecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + ProgramVersion), nil, nil, SW_SHOW); |
end; |
|
end. |