Changeset 194 for Docking/CoolDocking/UCDConjoinForm.pas

Timestamp:

Mar 11, 2011, 1:00:06 PM (14 years ago)

Author:

george

Message:

• Removed: UCDClientPanel replaced by TCDManagerItem and it's descendend.

File:

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

Docking/CoolDocking/UCDConjoinForm.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UCDCommon, UCDClientPanel;
+  Classes, SysUtils, UCDCommon;
 
 type
@@ -40 +40 @@
 begin
   TCDManager(DockManager).Visible := False;
-  // Hide all docked childs
-  with TCDManager(DockManager) do
-  for I := 0 to DockPanels.Count - 1 do
-    if Assigned(TCDClientPanel(DockPanels[I]).Control) then begin
-      TCDClientPanel(DockPanels[I]).Control.Tag := Integer(dhtTemporal);
-      TCDClientPanel(DockPanels[I]).Control.Hide;
-    end;
 end;