Changeset 195 for Docking/CoolDocking/UCDManager.pas

Timestamp:

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

Author:

george

Message:

 

File:

• Docking/CoolDocking/UCDManager.pas (modified) (5 diffs)

Docking/CoolDocking/UCDManager.pas

@@ -33 +33 @@
   end;
 
-  { TCDManagerItem }
-
-  TCDManagerItem = class
+  { TCDPanelHeader }
+
+  TCDPanelHeader = class(TPanel)
   private
     FHeaderPos: THeaderPos;
     FShowHeader: Boolean;
+    procedure SetHeaderPos(const AValue: THeaderPos);
+  public
+    Header: TCDHeader;
+    ControlPanel: TPanel;
+    property ShowHeader: Boolean read FShowHeader write FShowHeader;
+    property HeaderPos: THeaderPos read FHeaderPos write SetHeaderPos;
+    constructor Create(TheOwner: TComponent);
+    destructor Destroy; override;
+  end;
+
+  { TCDManagerItem }
+
+  TCDManagerItem = class
+  private
     procedure DockPanelMouseDown(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
     procedure ResizeExecute(Sender: TObject);
-    procedure SetHeaderPos(const AValue: THeaderPos);
   public
-    Header: TCDHeader;
     Control: TControl;
     Manager: TCDManager;
@@ -51 +63 @@
     constructor Create;
     destructor Destroy; override;
-    property ShowHeader: Boolean read FShowHeader write FShowHeader;
-    property HeaderPos: THeaderPos read FHeaderPos write SetHeaderPos;
   end;
 
@@ -116 +126 @@
   UCDManagerRegions, UCDManagerTabs, UCDManagerRegionsPopup, UCDManagerTabsPopup;
 
-{ TCDManagerItem }
-
-procedure TCDManagerItem.SetHeaderPos(const AValue: THeaderPos);
+{ TCDPanelHeader }
+
+procedure TCDPanelHeader.SetHeaderPos(const AValue: THeaderPos);
 begin
   if FHeaderPos=AValue then exit;
   FHeaderPos:=AValue;
-  Paint(Self);
-end;
+  //Paint(Self);
+end;
+
+constructor TCDPanelHeader.Create(TheOwner: TComponent);
+begin
+  inherited;
+  //Paint.OnPaint := Paint;
+//  Header.Shape.OnMouseDown := DockPanelMouseDown;
+//  Header.Title.OnMouseDown := DockPanelMouseDown;
+  HeaderPos := hpTop;
+
+  ShowHeader := True;
+  ControlPanel := TPanel.Create(Self);
+  with ControlPanel do begin
+    Parent := Self;
+    Visible := True;
+    DockSite := True;
+    UseDockManager := True;
+    Align := alClient;
+    BevelInner := bvNone;
+    BevelOuter := bvNone;
+    //Color := clGreen;
+  end;
+  Header := TCDHeader.Create(Self);
+  with Header do begin
+    Parent := Self;
+    Visible := ShowHeader;
+    Align := alTop;
+    Height := GrabberSize;
+    //ManagerItem := Self;
+  end;
+  //OnResize := ResizeExecute;
+  BevelInner := bvNone;
+  BevelOuter := bvNone;
+end;
+
+destructor TCDPanelHeader.Destroy;
+begin
+  inherited Destroy;
+end;
+
+{ TCDManagerItem }
 
 procedure TCDManagerItem.Paint(Sender: TObject);
@@ -145 +195 @@
 constructor TCDManagerItem.Create;
 begin
-  //Paint.OnPaint := Paint;
-  Header.Shape.OnMouseDown := DockPanelMouseDown;
-  Header.Title.OnMouseDown := DockPanelMouseDown;
-  //OnResize := ResizeExecute;
-  //BevelInner := bvNone;
-  //BevelOuter := bvNone;
-  HeaderPos := hpTop;
-
-  ShowHeader := True;
-  Header := TCDHeader.Create(nil);
-  with Header do begin
-    Parent := nil;
-    Visible := ShowHeader;
-    Align := alTop;
-    Height := GrabberSize;
-    ManagerItem := Self;
-  end;
 end;
 
@@ -457 +490 @@
     if AValue = dsTabs then begin
       NewManager := TCDManagerTabs.Create(FDockSite);
-      //TCDManagerTabs(Self).TabControlChange(Self);
     end else
     if AValue = dsList then begin