Changeset 242 for Docking

Timestamp:

May 11, 2011, 3:47:47 PM (14 years ago)

Author:

george

Message:

• Added: Save/Load layout to string. Useful for store layout in registry instead of file.

Location:

Docking/CoolDocking

Files:

• UCDClient.pas (modified) (1 diff)
• UCDLayout.pas (modified) (2 diffs)

Docking/CoolDocking/UCDClient.pas

@@ -110 +110 @@
       UseDockManager := True;
       DockManager := TCDManagerRegions.Create(TWinControl(AOwner));
+      //FormStyle := fsStayOnTop;
     end;
   end;

Docking/CoolDocking/UCDLayout.pas

@@ -60 +60 @@
     procedure LoadFromFile(FileName: string);
     procedure SaveToFile(FileName: string);
+    procedure LoadFromString(Value: string);
+    function SaveToString: string;
     procedure PopulateStringList(List: TStrings);
     function FindByName(Name: string): TCDLayout;
@@ -198 +200 @@
     Stream.Size := 0;
     SaveToStream(Stream);
+  finally
+    Stream.Free;
+  end;
+end;
+
+procedure TCDLayoutList.LoadFromString(Value: string);
+var
+  Stream: TMemoryStream;
+begin
+  if Length(Value) > 0 then
+  try
+    Stream := TMemoryStream.Create;
+    Stream.WriteBuffer(Value[1], Length(Value));
+    Stream.Position := 0;
+    LoadFromStream(Stream);
+  finally
+    Stream.Free;
+  end;
+end;
+
+function TCDLayoutList.SaveToString: string;
+var
+  Stream: TMemoryStream;
+begin
+  Result := '';
+  try
+    Stream := TMemoryStream.Create;
+    Stream.Size := 0;
+    SaveToStream(Stream);
+    if Stream.Size > 0 then begin
+      SetLength(Result, Stream.Size);
+      Stream.Position := 0;
+      Stream.ReadBuffer(Result[1], Stream.Size);
+    end;
   finally
     Stream.Free;