Subversion Repositories spacemission

Rev

Rev 15 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15 Rev 24
Line 42... Line 42...
42 
end;
 42 
end;
43 
 
 43 
 
44 
procedure TInfoForm.FormCreate(Sender: TObject);
 44 
procedure TInfoForm.FormCreate(Sender: TObject);
45 
begin
 45 
begin
46 
  VersionLbl.caption := 'Version ' + ProgramVersion;
 46 
  VersionLbl.caption := 'Version ' + ProgramVersion;
47 
  image.picture.loadfromfile(FDirectory + 'Bilder\Delphi.bmp');
 - 
 
48 
end;
 47 
end;
49 
 
 48 
 
50 
procedure TInfoForm.WebsiteClick(Sender: TObject);
 49 
procedure TInfoForm.WebsiteClick(Sender: TObject);
51 
begin
 50 
begin
52 
  ShellExecute(application.Handle, 'open', pchar('https://'+url2.caption+'/'), nil, nil, SW_SHOW);
 51 
  ShellExecute(application.Handle, 'open', pchar('https://'+url2.caption+'/'), nil, nil, SW_SHOW);