Changeset 197 for Docking/CoolDocking/Managers

Timestamp:

Mar 16, 2011, 7:47:27 AM (14 years ago)

Author:

george

Message:

• Modified: Docked client header redone to delphi visual style.

Location:

Docking/CoolDocking/Managers

Files:

• UCDManagerRegions.pas (modified) (4 diffs)
• UCDManagerTabsPopup.pas (modified) (4 diffs)

Docking/CoolDocking/Managers/UCDManagerRegions.pas

@@ -57 +57 @@
   PanelHeader := TCDPanelHeader.Create(nil);
   PanelHeader.Header.ManagerItem := Self;
+  PanelHeader.Header.OnMouseDown := DockPanelMouseDown;
+  PanelHeader.Header.Title.OnMouseDown := DockPanelMouseDown;
 
   Splitter := TSplitter.Create(nil);
   with Splitter do begin
+    Width := 3;
+    Height := 3;
     //Parent := Panel;
     //Color := clRed;
@@ -67 +71 @@
 destructor TCDManagerRegionsItem.Destroy;
 begin
+  PanelHeader.Parent := nil;
+  PanelHeader.Free;
+  Splitter.Parent := nil;
+  Splitter.Free;
+  Control.Parent := nil;
   inherited Destroy;
 end;
@@ -111 +120 @@
     NewItem.PanelHeader.Header.Icon.Picture.Assign((Control as TForm).Icon);
     NewItem.PanelHeader.Parent := DockSite;
+    NewItem.PanelHeader.Header.Title.Caption := TForm(Control).Caption;
 
     NewItem.Control := Control;
@@ -163 +173 @@
 begin
   ManagerItem := FindControlInPanels(Control);
-  if Assigned(ManagerItem) then
+  if Assigned(ManagerItem) then begin
     Control.RemoveHandlerOnVisibleChanged(ManagerItem.VisibleChange);
+  end;
 
   DockItems.Remove(ManagerItem);

Docking/CoolDocking/Managers/UCDManagerTabsPopup.pas

@@ -48 +48 @@
   TCDStylePopupTabs = class(TCDManagerTabs)
   public
-    TabControl: TTabControl;
-    TabImageList: TImageList;
     AutoHideEnabled: Boolean;
     AutoHide: TCDAutoHide;
-    procedure TabControlMouseLeave(Sender: TObject);
-    procedure TabControlChange(Sender: TObject);
-    procedure TabControlMouseDown(Sender: TObject; Button: TMouseButton;
-      Shift: TShiftState; X, Y: Integer);
-    procedure TabControlMouseUp(Sender: TObject; Button: TMouseButton;
-      Shift: TShiftState; X, Y: Integer);
+    PopupPanel: TPanel;
     constructor Create(ADockSite: TWinControl);
     destructor Destroy; override;
@@ -174 +167 @@
 { TCDStylePopupTabs }
 
-procedure TCDStylePopupTabs.TabControlMouseLeave(Sender: TObject);
-begin
-
-end;
-
-procedure TCDStylePopupTabs.TabControlChange(Sender: TObject);
-begin
-
-end;
-
-procedure TCDStylePopupTabs.TabControlMouseDown(Sender: TObject;
-  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
-begin
-
-end;
-
-procedure TCDStylePopupTabs.TabControlMouseUp(Sender: TObject;
-  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
-begin
-
-end;
 
 constructor TCDStylePopupTabs.Create(ADockSite: TWinControl);
@@ -202 +174 @@
   inherited;
   FDockStyle := dsPopupTabs;
-
   AutoHide := TCDAutoHide.Create;
+  PopupPanel := TPanel.Create(nil);
 end;
 
@@ -209 +181 @@
 begin
   AutoHide.Free;
+  PopupPanel.Free;
   inherited Destroy;
 end;