Changeset 195 for Docking/CoolDocking/Managers/UCDManagerTabs.pas

Timestamp:

Mar 11, 2011, 2:16:50 PM (14 years ago)

Author:

george

Message:

 

File:

• Docking/CoolDocking/Managers/UCDManagerTabs.pas (modified) (9 diffs)

Docking/CoolDocking/Managers/UCDManagerTabs.pas

@@ -11 +11 @@
 
 type
-  TCDManagerTabsITem = class(TCDManagerItem)
-
+
+  { TCDManagerTabsItem }
+
+  TCDManagerTabsItem = class(TCDManagerItem)
+    Icon: TImage;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -37 +42 @@
     FTabsPos: THeaderPos;
     function FindControlInPanels(Control: TControl): TCDManagerItem; override;
-    procedure InsertControlNoUpdate(AControl: TControl; InsertAt: TAlign);
+    procedure InsertControlNoUpdate(Control: TControl; InsertAt: TAlign);
     procedure RemoveControl(Control: TControl); override;
   public
@@ -57 +62 @@
   UCDClient;
 
+{ TCDManagerTabsItem }
+
+constructor TCDManagerTabsItem.Create;
+begin
+  Icon := TImage.Create(nil);
+end;
+
+destructor TCDManagerTabsItem.Destroy;
+begin
+  Icon.Free;
+  inherited Destroy;
+end;
+
 { TCDManagerTabs }
 
@@ -91 +109 @@
   I: Integer;
 begin
-  // Hide all clients
+  UpdateClientSize;
+{  // Hide all clients
   for I := 0 to DockItems.Count - 1 do
     if TCDManagerItem(DockItems[I]).Control.Visible
@@ -137 +156 @@
   //TCDClientPanel(FDockPanels[TabControl.TabIndex]).Visible := True;
   end;
-  MouseDownSkip := True;
+  MouseDownSkip := True;        }
 end;
 
@@ -175 +194 @@
     Parent := ADockSite;
     Name := Self.DockSite.Name + 'TabControl';
-    Visible := False;
-    Align := alTop;
+    Visible := True;
+    //Align := alTop;
     //Height := 24;
     Align := alClient;
@@ -193 +212 @@
   //MoveDuration := 1000; // ms
 
-  PageControl.Visible := True;
+  //PageControl.Visible := True;
   //TabImageList.Clear;
-  for I := 0 to DockItems.Count - 1 do
-    Self.InsertControlNoUpdate(TCDManagerItem(DockItems[I]).Control, alNone);
+  for I := 0 to ADockSite.DockClientCount - 1 do
+    InsertControlNoUpdate(ADockSite.DockClients[I], alNone);
   TabControlChange(Self);
+  //TCDManagerTabs(Self).TabControlChange(Self);
 end;
 
@@ -221 +241 @@
 end;
 
-procedure TCDManagerTabs.InsertControlNoUpdate(AControl: TControl; InsertAt: TAlign);
+procedure TCDManagerTabs.InsertControlNoUpdate(Control: TControl; InsertAt: TAlign);
 var
   NewTabSheet: TTabSheet;
-  NewPanel: TCDManagerTabsItem;
+  NewItem: TCDManagerTabsItem;
 begin
   inherited;
   begin
-    NewPanel := TCDManagerTabsItem.Create;
-    with NewPanel do begin
+    NewItem := TCDManagerTabsItem.Create;
+    with NewItem do begin
       //Panel.Parent := Self.DockSite;
       Manager := Self;
-      if DockStyle = dsList then Visible := True;
+      //if DockStyle = dsList then Visible := True;
       //Align := alClient;
-      Header.PopupMenu := Self.PopupMenu;
+      //Header.PopupMenu := Self.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 (Control is TForm) and Assigned((Control as TForm).Icon) then
+      NewItem.Icon.Picture.Assign((Control as TForm).Icon);
+
+    NewItem.Control := Control;
+    Control.AddHandlerOnVisibleChanged(NewItem.VisibleChange);
+    //AControl.Parent := NewItem.ClientAreaPanel;
+    Control.Align := alClient;
     if (InsertAt = alTop) or (InsertAt = alLeft) then
-      DockItems.Insert(0, NewPanel)
-      else DockItems.Add(NewPanel);
-
-  end;
-
-  if AControl.Visible then begin
+      DockItems.Insert(0, NewItem)
+      else DockItems.Add(NewItem);
+
+  end;
+
     NewTabSheet := TTabSheet.Create(PageControl);
     NewTabSheet.PageControl := PageControl;
-    NewTabSheet.Caption := AControl.Caption;
+    NewTabSheet.Caption := Control.Caption;
     NewTabSheet.ImageIndex := TabImageList.Count;
-    TabImageList.Add(NewPanel.Header.Icon.Picture.Bitmap, nil);
-//    if Assigned(NewPanel.Splitter) then
-//      NewPanel.Splitter.Visible := False;
-//    NewPanel.ClientAreaPanel.Visible := False;
-//    NewPanel.Visible := False;
-    //NewPanel.Parent := NewTabSheet;
-  end;
+    NewTabSheet.TabVisible := Control.Visible;
+    Control.Parent := NewTabSheet;
+    TabImageList.Add(NewItem.Icon.Picture.Bitmap, nil);
+//    if Assigned(NewItem.Splitter) then
+//      NewItem.Splitter.Visible := False;
+//    NewItem.ClientAreaPanel.Visible := False;
+//    NewItem.Visible := False;
+    //NewItem.Parent := NewTabSheet;
 end;
 
@@ -282 +302 @@
 var
   I: Integer;
+  NewTabSheet: TTabSheet;
 begin
   inherited UpdateClientSize;
-  for I := 0 to DockItems.Count - 1 do begin
+  for I := 0 to DockItems.Count - 1 do
+  with TCDManagerTabsItem(DockItems[I]) do begin
+    Control.Parent := PageControl.Pages[I];
+    Control.Align := alClient;
+
     //TCDClientPanel(DockPanels[I]).ClientAreaPanel.Width := DockSite.Width;
     //TCDClientPanel(DockPanels[I]).ClientAreaPanel.Height := DockSite.Height - PageControl.Height;