Changeset 199 for Docking/CoolDocking/Managers/UCDManagerTabs.pas

Timestamp:

Mar 16, 2011, 2:17:54 PM (14 years ago)

Author:

george

Message:

• Modified: Enhanced handling of popup tabs style.

File:

• Docking/CoolDocking/Managers/UCDManagerTabs.pas (modified) (3 diffs)

Docking/CoolDocking/Managers/UCDManagerTabs.pas

@@ -26 +26 @@
     MouseDown: Boolean;
     MouseButton: TMouseButton;
-    MouseDownSkip: Boolean;
     FDockItems: TObjectList; // TList<TCDManagerRegionsItem>
     procedure TabControlMouseLeave(Sender: TObject);
@@ -39 +38 @@
     procedure RemoveControl(Control: TControl); override;
     function GetHeaderPos: THeaderPos; override;
-    procedure SetHeaderPos(const AValue: THeaderPos); override;
   public
+    MouseDownSkip: Boolean;
     TabImageList: TImageList;
     PageControl: TPageControl;
+    procedure SetHeaderPos(const AValue: THeaderPos); override;
     procedure InsertControlNoUpdate(Control: TControl; InsertAt: TAlign); virtual;
     procedure TabControlChange(Sender: TObject); virtual;
@@ -195 +195 @@
     //Align := alTop;
     //Height := 24;
+    Color := clBlue;
     Align := alClient;
     OnChange := TabControlChange;