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

Timestamp:

Nov 19, 2012, 2:34:58 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Better switching tabbed controls.

File:

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

Docking/CoolDocking/Managers/UCDManagerTabsPopup.pas

@@ -56 +56 @@
     SplitterMousePos: TPoint;
     procedure PageControlResize(Sender: TObject);
-    procedure InsertControlNoUpdate(Control: TControl; InsertAt: TAlign); override;
     procedure SplitterMouseDown(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
@@ -64 +63 @@
       Shift: TShiftState; X, Y: Integer);
     procedure UpdatePopupFormBounds;
+    procedure PopupFormMouseLeave(Sender: TObject);
+  protected
     procedure TabControlChange(Sender: TObject); override;
-    procedure PopupFormMouseLeave(Sender: TObject);
+    procedure InsertControlNoUpdate(Control: TControl; InsertAt: TAlign); override;
   public
     AutoHideEnabled: Boolean;
@@ -84 +85 @@
 
 uses
-  UCDClient, UCDManagerRegions;
+  UCDManagerRegions;
 
 { TCDManagerTabsPopupItem }