Changeset 64

Timestamp:

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

Author:

george

Message:

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

Files:

• Docking/CoolDocking/UCoolDocking.pas (modified) (2 diffs)
• ExceptionLogger/CustomLineInfo.pas (modified) (1 diff)
• ExceptionLogger/UExceptionForm.lfm (modified) (2 diffs)
• File (added)
• File/UBufferedFileStream.pas (added)

Docking/CoolDocking/UCoolDocking.pas

@@ -1029 +1029 @@
   R: TRect;
 begin
-  if (csDestroyingHandle in ControlState) then
+  if not (csDesigning in ComponentState) then
   if Assigned(Control) then begin
     R := Control.ClientRect;
@@ -1193 +1193 @@
   LayoutFile: TFileStream;
 begin
-  if FileExistsUTF8(FileName) then
-  LayoutFile := TFileStream.Create(FileName, fmOpenReadWrite)
-  else LayoutFile := TFileStream.Create(FileName, fmCreate);
   try
+    if FileExistsUTF8(FileName) then
+    LayoutFile := TFileStream.Create(FileName, fmOpenReadWrite)
+    else LayoutFile := TFileStream.Create(FileName, fmCreate);
     SaveLayoutToStream(LayoutFile);
   finally
-    Free;
+    LayoutFile.Free;
   end;
 end;

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]