WebSVN – spacemission – Path Comparison – / – /ComInfo.pas Rev 4 and /ComInfo.pas Rev 3

Regard whitespace Rev 4 → Rev 3

 /ComInfo.pas
 ,11 → 19,10
     Copyright2Lbl: TLabel;
     URL2: TLabel;
     URL1: TLabel;
-    MemoMitwirkende: TMemo;
     procedure OkBtnClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
-    procedure WebsiteClick(Sender: TObject);
-    procedure EMailClick(Sender: TObject);
+    procedure URL2Click(Sender: TObject);
+    procedure URL1Click(Sender: TObject);
   end;
 var
 ,14 → 46,14
   image.picture.loadfromfile(FDirectory + 'Bilder\Delphi.bmp');
 end;
-procedure TInfoForm.WebsiteClick(Sender: TObject);
+procedure TInfoForm.URL2Click(Sender: TObject);
 begin
-  ShellExecute(application.Handle, 'open', pchar('http://'+url2.caption+'/'), nil, nil, SW_SHOW);
+  shellexecute(application.Handle, 'open', pchar('http://'+url2.caption+'/'), nil, nil, SW_SHOW);
 end;
-procedure TInfoForm.EMailClick(Sender: TObject);
+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 ' + ProgramVersion), nil, nil, SW_SHOW);
 end;
 end.