Ignore:
Timestamp:
Oct 8, 2010, 10:27:42 AM (14 years ago)
Author:
george
Message:
  • Přidáno: Třídy TBufferedFileStream.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Docking/CoolDocking/UCoolDocking.pas

    r63 r64  
    10291029  R: TRect;
    10301030begin
    1031   if (csDestroyingHandle in ControlState) then
     1031  if not (csDesigning in ComponentState) then
    10321032  if Assigned(Control) then begin
    10331033    R := Control.ClientRect;
     
    11931193  LayoutFile: TFileStream;
    11941194begin
    1195   if FileExistsUTF8(FileName) then
    1196   LayoutFile := TFileStream.Create(FileName, fmOpenReadWrite)
    1197   else LayoutFile := TFileStream.Create(FileName, fmCreate);
    11981195  try
     1196    if FileExistsUTF8(FileName) then
     1197    LayoutFile := TFileStream.Create(FileName, fmOpenReadWrite)
     1198    else LayoutFile := TFileStream.Create(FileName, fmCreate);
    11991199    SaveLayoutToStream(LayoutFile);
    12001200  finally
    1201     Free;
     1201    LayoutFile.Free;
    12021202  end;
    12031203end;
Note: See TracChangeset for help on using the changeset viewer.