Subversion Repositories spacemission

Compare Revisions

Regard whitespace Rev 1 → Rev 2

/SplInfo.pas
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.