Changeset 198 for Docking/CoolDocking/UCDCommon.pas

Timestamp:

Mar 16, 2011, 12:32:41 PM (14 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/UCDCommon.pas (modified) (3 diffs)

Docking/CoolDocking/UCDCommon.pas

@@ -12 +12 @@
   TCDHideType = (dhtPermanent, dhtTemporal);
   TCDDirection = (ddNone, ddHorizontal, ddVertical);
+  THeaderPos = (hpAuto, hpLeft, hpTop, hpRight, hpBottom);
 
   TCDMasterBase = class;
@@ -64 +65 @@
     FPanel: TPanel;
     procedure SetMaster(const AValue: TCDMasterBase);
-    procedure SetPanel(const AValue: TPanel);
+  public
+    procedure SetPanel(const AValue: TPanel); virtual;
   published
     property Master: TCDMasterBase read FMaster
@@ -117 +119 @@
 
 procedure TCDClientBase.SetPanel(const AValue: TPanel);
-var
-  OldPanel: TPanel;
 begin
   if FPanel = AValue then exit;
-  OldPanel := FPanel;
+  if Assigned(FPanel) then FPanel.DockSite := False;
   FPanel := AValue;
-  if not (csDesigning in ComponentState) then begin
-    if Assigned(FPanel) then
-    with FPanel do begin
-      DockSite := True;
-      UseDockManager := True;
-      //DockManager := TCoolDockManager.Create(FPanel);
-    end else begin
-      OldPanel.DockSite := False;
-    end;
-  end;
 end;