View Issue Details

IDProjectCategoryView StatusLast Update
0005527JEDI VCL00 JVCL Componentspublic2011-09-21 14:10
ReporterZENsanAssigned Toobones 
PrioritynormalSeverityblockReproducibilityalways
Status resolvedResolutionfixed 
Product VersionDaily / GIT 
Target VersionFixed in Version3.45 
Summary0005527: JvDebugHandler with UnhadledExceptionsOnly do not call default exception handler
DescriptionJvDebugHandler with UnhadledExceptionsOnly do not call default exception handler
TagsNo tags attached.

Relationships

related to 0005537 resolvedobones JvDebugHandler crashes the Delphi XE IDE 

Activities

2011-03-30 08:32

 

JEDI.zip (1,150 bytes)

ZENsan

2011-03-30 10:05

reporter   ~0018475

That is not the default appeareance like it was for all the years before..

ZENsan

2011-04-01 13:53

reporter   ~0018502

?

2011-04-20 16:09

 

Patch 2.diff (1,240 bytes)
--- C:/Users/U7/AppData/Local/Temp/JvDebugHandler.pa-revBASE.svn001.tmp.pas	�� ��� 20 17:05:33 2011
+++ C:/Comps/jvcl/run/JvDebugHandler.pas	�� ��� 20 17:05:14 2011
@@ -205,6 +205,8 @@
   if FUnhandledExceptionsOnly <> Value then
   begin
     FUnhandledExceptionsOnly := Value;
+    if csDesigning in ComponentState then
+      Exit;
     if FUnhandledExceptionsOnly then
     begin
       JclRemoveExceptNotifier(ExceptionNotifier);
@@ -228,6 +230,8 @@
   if Value <> FStackTrackingEnable Then
   begin
     FStackTrackingEnable := Value;
+    if csDesigning in ComponentState then
+      Exit;
     if FStackTrackingEnable then
       JclStartExceptionTracking
     else
@@ -272,9 +276,6 @@
           JclLastExceptStackList.AddToStrings(ExceptionStringList);
       end;
 
-      if Assigned(FOnOtherDestination) Then
-        FOnOtherDestination(Self);
-
       if FLogToFile Then
       begin
         if FName = '' then
@@ -301,6 +302,11 @@
           end;
         end;
       end;
+
+      if Assigned(FOnOtherDestination) Then
+        FOnOtherDestination(Self)
+      else
+        Application.ShowException(Exception(ExceptObj));
     finally
       ExceptionStringList.Free;
     end;
Patch 2.diff (1,240 bytes)

ZENsan

2011-04-20 16:10

reporter   ~0018527

This patch fixes both 0005537 and this issue.

obones

2011-06-10 16:03

administrator   ~0018723

This is now in SVN

Issue History

Date Modified Username Field Change
2011-03-30 08:32 ZENsan New Issue
2011-03-30 08:32 ZENsan File Added: JEDI.zip
2011-03-30 10:05 ZENsan Note Added: 0018475
2011-04-01 13:53 ZENsan Note Added: 0018502
2011-04-20 16:09 ZENsan File Added: Patch 2.diff
2011-04-20 16:10 ZENsan Note Added: 0018527
2011-06-07 17:55 obones Status new => acknowledged
2011-06-07 17:55 obones Relationship added related to 0005537
2011-06-10 16:03 obones Note Added: 0018723
2011-06-10 16:03 obones Status acknowledged => resolved
2011-06-10 16:03 obones Fixed in Version => Daily / SVN
2011-06-10 16:03 obones Resolution open => fixed
2011-06-10 16:03 obones Assigned To => obones
2011-09-21 14:10 obones Fixed in Version Daily / SVN => 3.45