Changeset 281 for ExceptionLogger

Timestamp:

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

Author:

george

Message:

• Added: Demo for ExeptionLogger.

Location:

ExceptionLogger

Files:

• Demo (added)
• Demo/Demo.ico (added)
• Demo/Demo.lpi (added)
• Demo/Demo.lpr (added)
• Demo/Demo.res (added)
• Demo/UMainForm.lfm (added)
• Demo/UMainForm.pas (added)
• ExceptionLogger.lpk (modified) (3 diffs)
• ReadMe.txt (added)
• UExceptionForm.lfm (modified) (11 diffs)
• UExceptionForm.pas (modified) (2 diffs)

ExceptionLogger/ExceptionLogger.lpk

@@ -17 +17 @@
         </SyntaxOptions>
       </Parsing>
+      <Linking>
+        <Debugging>
+          <GenerateDebugInfo Value="True"/>
+          <DebugInfoType Value="dsAuto"/>
+        </Debugging>
+      </Linking>
       <Other>
         <CompilerMessages>
@@ -27 +33 @@
     <License Value="GNU/GPL"/>
     <Version Major="1"/>
-    <Files Count="5">
+    <Files Count="6">
       <Item1>
         <Filename Value="CustomLineInfo.pas"/>
@@ -49 +55 @@
         <UnitName Value="UExceptionLogger"/>
       </Item5>
+      <Item6>
+        <Filename Value="ReadMe.txt"/>
+        <Type Value="Binary"/>
+      </Item6>
     </Files>
     <i18n>

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]

ExceptionLogger/UExceptionForm.pas

@@ -10 +10 @@
 
 type
-
-  { TMainForm }
 
   { TExceptionForm }
@@ -89 +87 @@
 procedure TExceptionForm.ButtonDetailsClick(Sender: TObject);
 begin
-  if PanelDescription.Height = 0 then
+  if PanelDescription.Height <= 1 then
     Height := PanelBasic.Height + PanelButtons.Height + 200
     else Height := PanelBasic.Height + PanelButtons.Height;