Changeset 198 for Docking/CoolDocking/UCDClient.pas

Timestamp:

Mar 16, 2011, 12:32:41 PM (13 years ago)

Author:

george

Message:

• Fixed: Popup submenus style and position item selection.
• Added: Locking dock managers.
• Modified: Enhanced auto popup tabs handling. Not yet finished.
• Modified: Dock manager position united for all dock manager descendands.

File:

• Docking/CoolDocking/UCDClient.pas (modified) (3 diffs)

Docking/CoolDocking/UCDClient.pas

@@ -17 +17 @@
 
 type
+
+  { TCDClient }
+
   TCDClient = class(TCDClientBase)
   private
@@ -23 +26 @@
     procedure SetDockable(const AValue: Boolean);
     procedure SetFloatable(const AValue: Boolean);
+    procedure SetPanel(const AValue: TPanel); override;
   public
     constructor Create(AOwner: TComponent); override;
@@ -78 +82 @@
 end;
 
+procedure TCDClient.SetPanel(const AValue: TPanel);
+begin
+  inherited SetPanel(AValue);
+  if not (csDesigning in ComponentState) then begin
+    if Assigned(Panel) then
+    with Panel do begin
+      DockSite := True;
+      UseDockManager := True;
+      DockManager := TCDManagerRegions.Create(Panel);
+    end;
+  end;
+end;
+
 constructor TCDClient.Create(AOwner: TComponent);
 begin