Subversion Repositories decoder

Rev

Rev 2 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 10
Line 67... Line 67...
67 
  end;
 67 
  end;
68 
end;
 68 
end;
69 
 
 69 
 
70 
procedure TAboutForm.lbl_urlClick(Sender: TObject);
 70 
procedure TAboutForm.lbl_urlClick(Sender: TObject);
71 
begin
 71 
begin
72 
  shellexecute(application.Handle, 'open', 'http://www.viathinksoft.de/', '', '', sw_normal);
 72 
  shellexecute(application.Handle, 'open', 'https://www.viathinksoft.de/', '', '', sw_normal);
73 
end;
 73 
end;
74 
 
 74 
 
75 
procedure TAboutForm.btn_closeClick(Sender: TObject);
 75 
procedure TAboutForm.btn_closeClick(Sender: TObject);
76 
begin
 76 
begin
77 
  close;
 77 
  close;