diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-04-11 08:39:19 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-04-11 08:39:19 +0000 |
commit | 95b760d80613d0873a9ed92e4bf29f1ef9b27564 (patch) | |
tree | f11414640f0197adaf78bc319b46dcf50e4c1061 /src/corelib/gfx_msgqueue.inc | |
parent | 2d5b6397c7f583fcaad81bf98c6af5623e759592 (diff) | |
download | fpGUI-95b760d80613d0873a9ed92e4bf29f1ef9b27564.tar.xz |
* 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.
Diffstat (limited to 'src/corelib/gfx_msgqueue.inc')
-rw-r--r-- | src/corelib/gfx_msgqueue.inc | 30 |
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; |