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

Timestamp:

Apr 14, 2011, 12:51:20 PM (13 years ago)

Author:

george

Message:

• Modified: Unit UStreamHelper no longer define TThreadStreamHelper.

File:

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

Docking/CoolDocking/Managers/UCDManagerTabs.pas

@@ -28 +28 @@
     MouseButton: TMouseButton;
     FDockItems: TObjectList; // TList<TCDManagerRegionsItem>
+    FUpdating: Boolean;
     procedure TabControlMouseLeave(Sender: TObject);
     procedure TabControlMouseDown(Sender: TObject; Button: TMouseButton;
@@ -335 +336 @@
   for I := 0 to DockItems.Count - 1 do
   with TCDManagerTabsItem(DockItems[I]) do begin
+    //Control.Tag := Integer(dhtTemporal);
     //Control.Visible := False;
     //Control.Parent := nil;
@@ -369 +371 @@
     end;
     PageControl.Pages[I].TabVisible := Control.Visible or (HideType = dhtTemporal);
+
     //TCDClientPanel(DockPanels[I]).ClientAreaPanel.Width := DockSite.Width;
     //TCDClientPanel(DockPanels[I]).ClientAreaPanel.Height := DockSite.Height - PageControl.Height;