Changeset 305

Timestamp:

Jul 9, 2008, 8:58:39 PM (17 years ago)

Author:

RBRi

Message:

fixes for improved url handling (in the about dialog)

Location:

branches/2.19_branch/NewView

Files:

• ProductInformationFormUnit.pas (modified) (2 diffs)
• WebBrowserUnit.pas (modified) (3 diffs)

branches/2.19_branch/NewView/ProductInformationFormUnit.pas

@@ -52 +52 @@
 Procedure TProductInformationForm.EmailEditOnClick (Sender: TObject);
 Begin
-  LaunchURL( 'mailto://' + EmailEdit.Text );
+  LaunchURL('"mailto:' + EmailEdit.Text + '"');
 End;
 
 Procedure TProductInformationForm.WebPageEditOnClick (Sender: TObject);
 Begin
-  LaunchURL( 'http://' + WebPageEdit.Text );
+  LaunchURL('"http://' + WebPageEdit.Text + '"');
 End;
+
 
 Procedure TProductInformationForm.ProductInformationFormOnSetupShow (Sender: TObject);
@@ -64 +65 @@
   ScaleForm( self, 11, 16 );
 End;
+
 
 Procedure TProductInformationForm.OnLanguageEvent( Language: TLanguageFile;

branches/2.19_branch/NewView/WebBrowserUnit.pas

@@ -160 +160 @@
     end;
 
-    if StrStartsWithIgnoringCase(aURL, '"ftp') then
+    if StrStartsWithIgnoringCase(aURL, '"ftp')
+       or StrStartsWithIgnoringCase(aURL, 'ftp')
+    then
     begin
       tmpAlternativeExe := GetDefaultFtpExe;
@@ -170 +172 @@
       end
     end
-    else if StrStartsWithIgnoringCase(aURL, '"mailto') then
+    else if StrStartsWithIgnoringCase(aURL, '"mailto')
+            or StrStartsWithIgnoringCase(aURL, 'mailto')
+    then
     begin
       tmpAlternativeExe := GetDefaultMailExe;
@@ -180 +184 @@
       end
     end
-    else if StrStartsWithIgnoringCase(aURL, '"news') then
+    else if StrStartsWithIgnoringCase(aURL, '"news')
+            or StrStartsWithIgnoringCase(aURL, '"news')
+    then
     begin
       tmpAlternativeExe := GetDefaultNewsExe;