Changeset 305 for branches/2.19_branch/NewView/WebBrowserUnit.pas

Timestamp:

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

Author:

RBRi

Message:

fixes for improved url handling (in the about dialog)

File:

• branches/2.19_branch/NewView/WebBrowserUnit.pas (modified) (3 diffs)

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;