* Fixed a bug where exceptions were silently handled without notification. This was in the messagequeue code.

* Implemented a default application wide exception handler. Applications will not simply crash and quit.
* Added TfpgApplication.HandleException
* Added TfpgApplication.OnException event developers can hook into
* Added TfpgApplication.ShowException - the default exception handler.
* Added TfpgApplication.StopOnException - should the application quit or not when an unhandled exception occurres.

1 files changed, 15 insertions, 15 deletions

diff --git a/src/corelib/gfx_msgqueue.inc b/src/corelib/gfx_msgqueue.inc
index 92458dde..20fed3ff 100644
--- a/src/corelib/gfx_msgqueue.inc
+++ b/src/corelib/gfx_msgqueue.inc
@@ -157,12 +157,12 @@ begin
   m.Dest    := Dest;
   m.Params  := aparams;
 
-  try
+//  try
     m.Dest.Dispatch(m)
-  except
-    on E: Exception do
-      {$IFDEF DEBUG}writeln('fpgSendMessage Caught Exception: ' + E.Message){$ENDIF};
-  end;
+//  except
+//    on E: Exception do
+//      {$IFDEF DEBUG}writeln('fpgSendMessage Caught Exception: ' + E.Message){$ENDIF};
+//  end;
 end;
 
 procedure fpgSendMessage(Sender, Dest: TObject; MsgCode: integer); overload;
@@ -176,12 +176,12 @@ begin
   m.Sender  := Sender;
   m.Dest    := Dest;
 
-  try
+//  try
     m.Dest.Dispatch(m)
-  except
-    on E: Exception do
-      {$IFDEF DEBUG}writeln('fpgSendMessage Caught Exception: ' + E.Message){$ENDIF};
-  end;
+//  except
+//    on E: Exception do
+//      {$IFDEF DEBUG}writeln('fpgSendMessage Caught Exception: ' + E.Message){$ENDIF};
+//  end;
 end;
 
 procedure fpgDeliverMessage(var msg: TfpgMessageRec);
@@ -193,7 +193,7 @@ begin
     msg.Dest.Free
   else
   begin
-    try
+//    try
       msg.Dest.Dispatch(msg);
       if fpgApplication.FMessageHookList.Count > 0 then
       begin
@@ -204,10 +204,10 @@ begin
             oItem.Listener.Dispatch(msg);
         end;
       end;
-    except
-      on E: Exception do
-        {$IFDEF DEBUG}writeln('fpgDeliverMessage Caught Exception: ' + E.Message){$ENDIF};
-    end;
+//    except
+//      on E: Exception do
+//        {$IFDEF DEBUG}writeln('fpgDeliverMessage Caught Exception: ' + E.Message){$ENDIF};
+//    end;
   end;
 end;