Changeset 64 for ExceptionLogger

Timestamp:

Oct 8, 2010, 10:27:42 AM (15 years ago)

Author:

george

Message:

• Přidáno: Třídy TBufferedFileStream.

Location:

ExceptionLogger

Files:

• CustomLineInfo.pas (modified) (1 diff)
• UExceptionForm.lfm (modified) (2 diffs)

ExceptionLogger/CustomLineInfo.pas

@@ -94 +94 @@
         exit;
     end;
+  if ptruint(BaseAddr) < e.processaddress then Exit;
+
   e.processaddress := ptruint(baseaddr) - e.processaddress;
   StabsFunctionRelative := E.FunctionRelative;

ExceptionLogger/UExceptionForm.lfm

@@ -36 +36 @@
     Top = 3
     Width = 678
-    ActivePage = TabSheet2
+    ActivePage = TabSheet1
     Anchors = [akTop, akLeft, akRight, akBottom]
-    TabIndex = 1
+    TabIndex = 0
     TabOrder = 2
     object TabSheet1: TTabSheet
       Caption = 'General'
       ClientHeight = 251
-      ClientWidth = 661
+      ClientWidth = 670
       object MemoExceptionInfo: TMemo
         Left = 4
         Height = 236
         Top = 3
-        Width = 655
+        Width = 664
         Anchors = [akTop, akLeft, akRight, akBottom]
         ReadOnly = True
@@ -102 +102 @@
     Left = 10
     Height = 17
-    Top = 298
+    Top = 288
     Width = 169
     Anchors = [akLeft, akBottom]