Changeset 40 for ExceptionLogger/UExceptionForm.lfm

Timestamp:

Sep 9, 2010, 1:58:30 PM (14 years ago)

Author:

george

Message:

• Přidáno: Podpora pro možnost ignorovat opakující se výjimky.

File:

• ExceptionLogger/UExceptionForm.lfm (modified) (7 diffs)

ExceptionLogger/UExceptionForm.lfm

@@ -3 +3 @@
   Height = 316
   Top = 171
-  Width = 682
+  Width = 691
   Caption = 'Exception info'
   ClientHeight = 316
-  ClientWidth = 682
+  ClientWidth = 691
   OnCreate = FormCreate
   OnDestroy = FormDestroy
@@ -12 +12 @@
   LCLVersion = '0.9.29'
   object ButtonClose: TButton
-    Left = 602
+    Left = 611
     Height = 25
     Top = 286
@@ -22 +22 @@
   end
   object ButtonKill: TButton
-    Left = 512
+    Left = 521
     Height = 25
     Top = 286
@@ -35 +35 @@
     Height = 277
     Top = 3
-    Width = 669
+    Width = 678
     ActivePage = TabSheet2
     Anchors = [akTop, akLeft, akRight, akBottom]
@@ -59 +59 @@
       Caption = 'Call stack'
       ClientHeight = 251
-      ClientWidth = 661
+      ClientWidth = 670
       object ListView1: TListView
         Left = 4
         Height = 241
         Top = 7
-        Width = 655
+        Width = 664
         Anchors = [akTop, akLeft, akRight, akBottom]
         Columns = <        
@@ -77 +77 @@
           item
             Caption = 'Class'
-            Width = 100
+            Width = 150
           end        
           item
@@ -99 +99 @@
     end
   end
+  object CheckBoxIgnore: TCheckBox
+    Left = 10
+    Height = 17
+    Top = 298
+    Width = 169
+    Anchors = [akLeft, akBottom]
+    Caption = 'Next time ignore this exception'
+    TabOrder = 3
+  end
 end