Changeset 208 for Docking/CoolDocking/UCDLayout.pas

Timestamp:

Mar 18, 2011, 1:24:37 PM (13 years ago)

Author:

george

Message:

• Fixed: Controls docked in Popup Tabs Manager was not removed due wrong RemoveControl method inheritance.
• Fixed: Tabs in Tabs manager was not update properly.
• Added: HeaderPos stored in Layout.

File:

• Docking/CoolDocking/UCDLayout.pas (modified) (5 diffs)

Docking/CoolDocking/UCDLayout.pas

@@ -27 +27 @@
     UndockSize: TPoint;
     DockStyle: TCDStyleType;
+    HeaderPos: THeaderPos;
     Processed: boolean;
     procedure SaveToNode(Node: TDOMNode);
@@ -286 +287 @@
     NewNode.TextContent := IntToStr(RestoredRect.Left);
     AppendChild(NewNode);
+    NewNode := OwnerDocument.CreateElement('HeaderPos');
+    NewNode.TextContent := IntToStr(Integer(HeaderPos));
+    AppendChild(NewNode);
   end;
 end;
@@ -349 +353 @@
     if Assigned(NewNode) then
       RestoredRect.Height := StrToInt(NewNode.TextContent);
+    NewNode := FindNode('HeaderPos');
+    if Assigned(NewNode) then
+      HeaderPos := THeaderPos(StrToInt(NewNode.TextContent));
   end;
 end;
@@ -366 +373 @@
   Rect.Width := Form.Width;
   Rect.Height := Form.Height;
+  if Assigned(Form.DockManager) then
+    HeaderPos := TCDManager(Form.DockManager).HeaderPos;
   if Form is TForm then
   begin
@@ -422 +431 @@
   Form.UndockHeight := UndockSize.Y;
   Form.Visible := Visible;
+  if Assigned(Form.DockManager) then
+    TCDManager(Form.DockManager).HeaderPos := HeaderPos;
   if HostDockSiteName <> '' then
   begin