[Jcl-checkins-diff] SF.net SVN: jcl: [2106] trunk/jcl/experts/debug/dialog

[<ou...@us...>]

Revision: 2106
          http://jcl.svn.sourceforge.net/jcl/?rev=2106&view=rev
Author:   outchy
Date:     2007-08-07 10:59:10 -0700 (Tue, 07 Aug 2007)

Log Message:
-----------
Mantis 4197 Own dialog for exceptions not possible
change from TExceptionDialogClass to ExceptionDialogClass

Modified Paths:
--------------
    trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas
    trunk/jcl/experts/debug/dialog/ExceptDlg.pas
    trunk/jcl/experts/debug/dialog/ExceptDlgMail.pas

Modified: trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas
===================================================================
--- trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas	2007-08-06 19:39:21 UTC (rev 2105)
+++ trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas	2007-08-07 17:59:10 UTC (rev 2106)
@@ -621,7 +621,7 @@
 class procedure T%FORMNAME%.ShowException(E: TObject; Thread: TJclDebugThread);
 begin
   if %FORMNAME% = nil then
-    %FORMNAME% := T%FORMNAME%Class.Create(Application);
+    %FORMNAME% := %FORMNAME%Class.Create(Application);
   try
     with %FORMNAME% do
     begin

Modified: trunk/jcl/experts/debug/dialog/ExceptDlg.pas
===================================================================
--- trunk/jcl/experts/debug/dialog/ExceptDlg.pas	2007-08-06 19:39:21 UTC (rev 2105)
+++ trunk/jcl/experts/debug/dialog/ExceptDlg.pas	2007-08-07 17:59:10 UTC (rev 2106)
@@ -565,7 +565,7 @@
 class procedure TExceptionDialog.ShowException(E: TObject; Thread: TJclDebugThread);
 begin
   if ExceptionDialog = nil then
-    ExceptionDialog := TExceptionDialogClass.Create(Application);
+    ExceptionDialog := ExceptionDialogClass.Create(Application);
   try
     with ExceptionDialog do
     begin

Modified: trunk/jcl/experts/debug/dialog/ExceptDlgMail.pas
===================================================================
--- trunk/jcl/experts/debug/dialog/ExceptDlgMail.pas	2007-08-06 19:39:21 UTC (rev 2105)
+++ trunk/jcl/experts/debug/dialog/ExceptDlgMail.pas	2007-08-07 17:59:10 UTC (rev 2106)
@@ -585,7 +585,7 @@
 class procedure TExceptionDialogMail.ShowException(E: TObject; Thread: TJclDebugThread);
 begin
   if ExceptionDialogMail = nil then
-    ExceptionDialogMail := TExceptionDialogMailClass.Create(Application);
+    ExceptionDialogMail := ExceptionDialogMailClass.Create(Application);
   try
     with ExceptionDialogMail do
     begin


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.