Changeset 197 for Docking/CoolDocking/Managers/UCDManagerTabsPopup.pas

Timestamp:

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

Author:

george

Message:

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

File:

• Docking/CoolDocking/Managers/UCDManagerTabsPopup.pas (modified) (4 diffs)

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;