Changeset 182 for Docking/CoolDocking/UCoolDockLayout.pas

Timestamp:

Mar 9, 2011, 2:11:40 PM (14 years ago)

Author:

george

Message:

• Added: Default layout initialization in Demo IDE.
• Fixed: Tab position switching through popup menu.

File:

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

Docking/CoolDocking/UCoolDockLayout.pas

@@ -351 +351 @@
         NewItem := TCoolDockLayoutItem.Create;
         NewItem.Parent := Parent;
+        NewItem.DockStyle := TCoolDockManager(Form.HostDockSite.Parent.DockManager).DockStyle;
+        Parent.Items.Add(NewItem);
         NewItem.Store(Form.HostDockSite.Parent);
-        Parent.Items.Add(NewItem);
       end;
     end;
@@ -391 +392 @@
             if FormClass = TCoolDockConjoinForm then begin
               ParentComponent := TCoolDockConjoinForm.Create(Application);
+              TCoolDockManager(TCoolDockConjoinForm(ParentComponent).Panel.DockManager).DockStyle := ParentLayoutItem.DockStyle;
               ParentLayoutItem.Restore(TWinControl(ParentComponent));
             end;