Changeset 179 for Docking/CoolDocking/UCoolDockLayout.pas

Timestamp:

Mar 8, 2011, 12:58:28 PM (14 years ago)

Author:

george

Message:

• Added: Store and restore basic form properties with use of layouts.

File:

• Docking/CoolDocking/UCoolDockLayout.pas (modified) (14 diffs)

Docking/CoolDocking/UCoolDockLayout.pas

@@ -19 +19 @@
     Visible: Boolean;
     Rect: TRectangle;
-    FormState: TFormState;
+    RestoredRect: TRectangle;
+    WindowState: TWindowState;
     UndockSize: TPoint;
     DockStyle: TDockStyle;
     procedure SaveToNode(Node: TDOMNode);
     procedure LoadFromNode(Node: TDOMNode);
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -35 +38 @@
     constructor Create;
     destructor Destroy; override;
+    procedure Store;
+    procedure Restore;
   end;
 
@@ -46 +51 @@
     procedure LoadFromFile(FileName: string);
     procedure SaveToFile(FileName: string);
+    procedure PopulateStringList(List: TStrings);
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -78 +84 @@
   Doc: TXMLDocument;
   Child: TDOMNode;
-  NewItem: TCoolDockLayoutItem;
+  NewItem: TCoolDockLayout;
   NewNode: TDOMNode;
 begin
@@ -88 +94 @@
       if Assigned(NewNode) then
       with NewNode do begin
-        Child := Doc.DocumentElement.FirstChild;
+        Child := FirstChild;
         while Assigned(Child) do begin
-          NewItem := TCoolDockLayoutItem.Create;
+          NewItem := TCoolDockLayout.Create;
           NewItem.LoadFromNode(Child);
           Items.Add(NewItem);
@@ -117 +123 @@
       with RootNode do begin
         NewNode := OwnerDocument.CreateElement('Items');
+        with NewNode do
         for I := 0 to Items.Count - 1 do begin
           NewNode2 := OwnerDocument.CreateElement('Layout');
@@ -150 +157 @@
     if FileExistsUTF8(FileName) then Stream := TFileStream.Create(FileName, fmOpenReadWrite)
       else Stream := TFileStream.Create(FileName, fmCreate);
+    Stream.Size := 0;
     SaveToStream(Stream);
   finally
@@ -156 +164 @@
 end;
 
+procedure TCoolDockLayoutList.PopulateStringList(List: TStrings);
+var
+  I: Integer;
+begin
+  List.Clear;
+  for I := 0 to Items.Count - 1 do
+    List.AddObject(TCoolDockLayout(Items[I]).Name, TCoolDockLayout(Items[I]));
+end;
+
 { TCoolDockLayoutItem }
 
@@ -172 +189 @@
     NewNode.TextContent := UTF8Decode(Caption);
     AppendChild(NewNode);
-    NewNode := OwnerDocument.CreateElement('FormState');
-    NewNode.TextContent := IntToStr(Integer(FormState));
+    NewNode := OwnerDocument.CreateElement('WindowState');
+    NewNode.TextContent := IntToStr(Integer(WindowState));
     AppendChild(NewNode);
     NewNode := OwnerDocument.CreateElement('UndockWidth');
@@ -199 +216 @@
     NewNode.TextContent := IntToStr(Integer(DockStyle));
     AppendChild(NewNode);
+    NewNode := OwnerDocument.CreateElement('RestoredWidth');
+    NewNode.TextContent := IntToStr(RestoredRect.Width);
+    AppendChild(NewNode);
+    NewNode := OwnerDocument.CreateElement('RestoredHeight');
+    NewNode.TextContent := IntToStr(RestoredRect.Height);
+    AppendChild(NewNode);
+    NewNode := OwnerDocument.CreateElement('RestoredTop');
+    NewNode.TextContent := IntToStr(RestoredRect.Top);
+    AppendChild(NewNode);
+    NewNode := OwnerDocument.CreateElement('RestoredLeft');
+    NewNode.TextContent := IntToStr(RestoredRect.Left);
+    AppendChild(NewNode);
   end;
 end;
@@ -216 +245 @@
     if Assigned(NewNode) then
       Caption := UTF8Encode(NewNode.TextContent);
-    NewNode := FindNode('FormState');
-    if Assigned(NewNode) then
-      FormState := TFormState(StrToInt(NewNode.TextContent));
+    NewNode := FindNode('WindowState');
+    if Assigned(NewNode) then
+      WindowState := TWindowState(StrToInt(NewNode.TextContent));
     NewNode := FindNode('UndockWidth');
     if Assigned(NewNode) then
@@ -243 +272 @@
     if Assigned(NewNode) then
       DockStyle := TDockStyle(StrToInt(NewNode.TextContent));
-  end;
+    NewNode := FindNode('RestoredTop');
+    if Assigned(NewNode) then
+      RestoredRect.Top := StrToInt(NewNode.TextContent);
+    NewNode := FindNode('RestoredLeft');
+    if Assigned(NewNode) then
+      RestoredRect.Left := StrToInt(NewNode.TextContent);
+    NewNode := FindNode('RestoredWidth');
+    if Assigned(NewNode) then
+      RestoredRect.Width := StrToInt(NewNode.TextContent);
+    NewNode := FindNode('RestoredHeight');
+    if Assigned(NewNode) then
+      RestoredRect.Height := StrToInt(NewNode.TextContent);
+  end;
+end;
+
+constructor TCoolDockLayoutItem.Create;
+begin
+  Rect := TRectangle.Create;
+  RestoredRect := TRectangle.Create;
+end;
+
+destructor TCoolDockLayoutItem.Destroy;
+begin
+  Rect.Free;
+  RestoredRect.Free;
+  inherited Destroy;
 end;
 
@@ -259 +313 @@
     AppendChild(NewNode);
     NewNode := OwnerDocument.CreateElement('Items');
+    with NewNode do
     for I := 0 to Items.Count - 1 do begin
       NewNode2 := OwnerDocument.CreateElement('Form');
@@ -303 +358 @@
 end;
 
+procedure TCoolDockLayout.Store;
+var
+  I: Integer;
+  Form: TForm;
+  NewItem: TCoolDockLayoutItem;
+begin
+  Items.Clear;
+  for I := 0 to Application.ComponentCount - 1 do
+  if (Application.Components[I] is TForm) then begin
+    Form := (Application.Components[I] as TForm);
+    NewItem := TCoolDockLayoutItem.Create;
+    NewItem.Name := Form.Name;
+    NewItem.Caption := Form.Caption;
+    NewItem.UndockSize.X := Form.UndockWidth;
+    NewItem.UndockSize.Y := Form.UndockHeight;
+    NewItem.Visible := Form.Visible;
+    NewItem.Rect.Left := Form.Left;
+    NewItem.Rect.Top := Form.Top;
+    NewItem.Rect.Width := Form.Width;
+    NewItem.Rect.Height := Form.Height;
+    NewItem.RestoredRect.Left := Form.RestoredLeft;
+    NewItem.RestoredRect.Top := Form.RestoredTop;
+    NewItem.RestoredRect.Width := Form.RestoredWidth;
+    NewItem.RestoredRect.Height := Form.RestoredHeight;
+    NewItem.WindowState := Form.WindowState;
+    Items.Add(NewItem);
+  end;
+end;
+
+procedure TCoolDockLayout.Restore;
+var
+  Form: TForm;
+  I: Integer;
+begin
+  for I := 0 to Items.Count - 1 do
+  with TCoolDockLayoutItem(Items[I]) do begin
+    Form := TForm(Application.FindComponent(Name));
+    if WindowState = wsMaximized then begin
+      Form.SetRestoredBounds(RestoredRect.Left, RestoredRect.Top,
+        RestoredRect.Width, RestoredRect.Height);
+      Form.WindowState := WindowState;
+    end else begin
+      Form.WindowState := WindowState;
+      Form.SetRestoredBounds(RestoredRect.Left, RestoredRect.Top,
+        RestoredRect.Width, RestoredRect.Height);
+    end;
+    Form.Caption := Caption;
+    Form.SetBounds(Rect.Left, Rect.Top, Rect.Width, Rect.Height);
+    Form.UndockWidth := UndockSize.X;
+    Form.UndockHeight := UndockSize.Y;
+    Form.Visible := Visible;
+  end;
+end;
+
 end.