Changeset 183 for Docking/CoolDocking/UCoolDockStyleTabs.pas

Timestamp:

Mar 10, 2011, 7:55:48 AM (14 years ago)

Author:

george

Message:

• Fixed: Insertion in regions on left and top side.
• Added: If inserted control side is defferent than already placed controls then create conjoined subform.

File:

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

Docking/CoolDocking/UCoolDockStyleTabs.pas

@@ -25 +25 @@
     procedure TabControlMouseUp(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
-    procedure InsertControl(NewPanel: TCoolDockClientPanel;
-      AControl: TControl; InsertAt: TAlign); override;
+    procedure InsertControl(AControl: TControl; InsertAt: TAlign); override;
     procedure UpdateClientSize; override;
   private
     FTabsPos: THeaderPos;
-    procedure InsertControlNoUpdate(NewPanel: TCoolDockClientPanel;
-      AControl: TControl; InsertAt: TAlign);
+    procedure InsertControlNoUpdate(AControl: TControl; InsertAt: TAlign);
+    procedure RemoveControl(Control: TControl); override;
   public
     constructor Create(AManager: TCoolDockManagerBase);
@@ -162 +161 @@
     MultiLine := True;
     PopupMenu := TCoolDockManager(Manager).PopupMenu;
+    OnMouseLeave := TabControlMouseLeave;
+    OnMouseDown := TabControlMouseDown;
     //TTabControlNoteBookStrings(Tabs).NoteBook.OnMouseLeave := TabControlMouseLeave;
     //TTabControlNoteBookStrings(Tabs).NoteBook.OnMouseDown := TabControlMouseDown;
@@ -175 +176 @@
   with TCoolDockManager(Manager) do
   for I := 0 to DockPanels.Count - 1 do
-    Self.InsertControlNoUpdate(TCoolDockClientPanel(DockPanels[I]),
-      TCoolDockClientPanel(DockPanels[I]).Control, alNone);
+    Self.InsertControlNoUpdate(TCoolDockClientPanel(DockPanels[I]).Control, alNone);
   TabControlChange(Self);
 end;
@@ -193 +193 @@
 end;
 
-procedure TCoolDockStyleTabs.InsertControlNoUpdate(NewPanel: TCoolDockClientPanel;
-  AControl: TControl; InsertAt: TAlign);
+procedure TCoolDockStyleTabs.InsertControlNoUpdate(AControl: TControl; InsertAt: TAlign);
 var
   NewTabSheet: TTabSheet;
+  NewPanel: TCoolDockClientPanel;
 begin
   inherited;
+  with TCoolDockManager(Manager) do begin
+    NewPanel := TCoolDockClientPanel.Create(nil);
+    with NewPanel do begin
+      Parent := TCoolDockManager(Manager).DockSite;
+      OwnerDockManager := Self;
+      if DockStyle = dsList then Visible := True;
+      Align := alClient;
+      Header.PopupMenu := TCoolDockManager(Manager).PopupMenu;
+      //PopupMenu.Parent := Self.DockSite;
+    end;
+    if (AControl is TForm) and Assigned((AControl as TForm).Icon) then
+      NewPanel.Header.Icon.Picture.Assign((AControl as TForm).Icon);
+
+    NewPanel.Control := AControl;
+    AControl.AddHandlerOnVisibleChanged(NewPanel.VisibleChange);
+    AControl.Parent := NewPanel.ClientAreaPanel;
+    AControl.Align := alClient;
+    if (InsertAt = alTop) or (InsertAt = alLeft) then
+      DockPanels.Insert(0, NewPanel)
+      else DockPanels.Add(NewPanel);
+
+  end;
+
   if AControl.Visible then begin
     NewTabSheet := TTabSheet.Create(PageControl);
@@ -213 +236 @@
 end;
 
-procedure TCoolDockStyleTabs.InsertControl(NewPanel: TCoolDockClientPanel;
-  AControl: TControl; InsertAt: TAlign);
+procedure TCoolDockStyleTabs.RemoveControl(Control: TControl);
+begin
+  inherited RemoveControl(Control);
+end;
+
+procedure TCoolDockStyleTabs.InsertControl(AControl: TControl; InsertAt: TAlign);
 var
   NewTabSheet: TTabSheet;
 begin
   inherited;
-  InsertControlNoUpdate(NewPanel, AControl, InsertAt);
+  InsertControlNoUpdate(AControl, InsertAt);
   TabControlChange(Self);
 end;