Changeset 92 for trunk/NewView/MainForm.pas

Timestamp:

Mar 3, 2007, 8:16:21 PM (18 years ago)

Author:

RBRi

Message:

again small refactoring

File:

• trunk/NewView/MainForm.pas (modified) (1 diff)

trunk/NewView/MainForm.pas

@@ -5473 +5473 @@
   else if StrLeft( LinkString, 3 ) = 'url' then
   begin
-    URL := StrRightFrom( LinkString, 5 );
-    LaunchURL( URL );
-    SetStatus( 'Opened '
-               + URL );
+    URL := StrRightFrom(LinkString, 5);
+
+    try
+      LaunchURL(URL);
+    except
+      on E:Exception do
+      begin
+        DoErrorDlg('Error', E.Message);
+      end;
+      else raise;
+    end;
+
+    SetStatus('Opened ' + URL );
   end
   else if StrLeft( LinkString, 8 ) = 'external' then