Changeset 64 for Docking/CoolDocking/UCoolDocking.pas

Timestamp:

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

Author:

george

Message:

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

File:

• Docking/CoolDocking/UCoolDocking.pas (modified) (2 diffs)

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;