paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 15:08:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: better exception debug messages

Browse Source 
git-svn-id: trunk@58091 -
This commit is contained in:
ondrej 2018-06-02 17:42:16 +00:00
parent 3ae76828ef
commit a906b48e80
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/lclexceptionstacktrace.pas
View File

@ -22,7 +22,8 @@ procedure TEventContainer.HandleApplicationException(Sender: TObject;
begin
if not (E is EAbort) then
begin
DebugLn('TApplication.HandleException ',E.Message);
DebugLn('TApplication.HandleException: ',E.ClassName);
DebugLn(E.Message);
DumpExceptionBackTrace;
Application.ShowException(E);
end;
@ -30,7 +31,7 @@ end;
procedure HandleOnShowException(Msg: ShortString);
begin
DebugLn('TApplication.HandleException Strange Exception');
DebugLn('TApplication.HandleException: Strange Exception');
DebugLn(Msg);
DumpExceptionBackTrace;
end;