Changeset 281 for ExceptionLogger/UExceptionForm.lfm

Timestamp:

Oct 5, 2011, 6:14:15 PM (13 years ago)

Author:

george

Message:

• Added: Demo for ExeptionLogger.

File:

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

ExceptionLogger/UExceptionForm.lfm

@@ -3 +3 @@
   Height = 316
   Top = 184
-  Width = 440
+  Width = 506
   Caption = 'Exception info'
   ClientHeight = 316
-  ClientWidth = 440
+  ClientWidth = 506
   OnCreate = FormCreate
   OnDestroy = FormDestroy
@@ -16 +16 @@
     Height = 80
     Top = 0
-    Width = 440
+    Width = 506
     Align = alTop
     BevelOuter = bvNone
     ClientHeight = 80
-    ClientWidth = 440
+    ClientWidth = 506
     TabOrder = 0
     object Image1: TImage
@@ -135 +135 @@
     object Label1: TLabel
       Left = 69
-      Height = 14
+      Height = 18
       Top = 8
-      Width = 196
+      Width = 260
       Caption = 'Error occured during program execution:'
       ParentColor = False
@@ -157 +157 @@
     Height = 204
     Top = 80
-    Width = 440
+    Width = 506
     Align = alClient
     BevelOuter = bvNone
     ClientHeight = 204
-    ClientWidth = 440
+    ClientWidth = 506
     TabOrder = 1
     object PageControl1: TPageControl
@@ -167 +167 @@
       Height = 202
       Top = 0
-      Width = 427
+      Width = 493
       ActivePage = TabSheet2
       Anchors = [akTop, akLeft, akRight, akBottom]
@@ -174 +174 @@
       object TabSheet1: TTabSheet
         Caption = 'General'
-        ClientHeight = 190
-        ClientWidth = 670
+        ClientHeight = 167
+        ClientWidth = 487
         object MemoExceptionInfo: TMemo
           Left = 4
@@ -190 +190 @@
       object TabSheet2: TTabSheet
         Caption = 'Call stack'
-        ClientHeight = 176
-        ClientWidth = 419
+        ClientHeight = 167
+        ClientWidth = 487
         object ListView1: TListView
           Left = 4
-          Height = 166
+          Height = 157
           Top = 7
-          Width = 413
+          Width = 481
           Anchors = [akTop, akLeft, akRight, akBottom]
           Columns = <          
@@ -235 +235 @@
     Height = 32
     Top = 284
-    Width = 440
+    Width = 506
     Align = alBottom
     BevelOuter = bvNone
     ClientHeight = 32
-    ClientWidth = 440
+    ClientWidth = 506
     TabOrder = 2
     object ButtonKill: TButton
-      Left = 296
+      Left = 344
       Height = 25
-      Top = 4
-      Width = 67
+      Top = 3
+      Width = 83
       Anchors = [akRight, akBottom]
       Caption = 'Terminate'
@@ -252 +252 @@
     end
     object ButtonClose: TButton
-      Left = 368
+      Left = 432
       Height = 25
-      Top = 4
+      Top = 3
       Width = 67
       Anchors = [akRight, akBottom]
@@ -263 +263 @@
     object CheckBoxIgnore: TCheckBox
       Left = 10
-      Height = 17
-      Top = 8
-      Width = 169
+      Height = 22
+      Top = 3
+      Width = 224
       Anchors = [akLeft, akBottom]
       Caption = 'Next time ignore this exception'
@@ -271 +271 @@
     end
     object ButtonDetails: TButton
-      Left = 216
+      Left = 264
       Height = 25
-      Top = 4
+      Top = 3
       Width = 75
       Anchors = [akRight, akBottom]