Changeset 182 for Docking/CoolDocking/UCoolDockStylePopupTabs.pas

Timestamp:

Mar 9, 2011, 2:11:40 PM (14 years ago)

Author:

george

Message:

• Added: Default layout initialization in Demo IDE.
• Fixed: Tab position switching through popup menu.

File:

• Docking/CoolDocking/UCoolDockStylePopupTabs.pas (modified) (3 diffs)

Docking/CoolDocking/UCoolDockStylePopupTabs.pas

@@ -6 +6 @@
 
 uses
-  Classes, Controls, SysUtils, ComCtrls, ExtCtrls,
+  Classes, Controls, SysUtils, ComCtrls, ExtCtrls, UCoolDockCommon,
   UCoolDockStyleTabs, UCoolDockStyle, UCoolDockClientPanel;
 
@@ -50 +50 @@
     procedure TabControlMouseUp(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
-    constructor Create(AManager: TObject);
+    constructor Create(AManager: TCoolDockManagerBase);
     destructor Destroy; override;
   private
@@ -181 +181 @@
 end;
 
-constructor TCoolDockStylePopupTabs.Create(AManager: TObject);
+constructor TCoolDockStylePopupTabs.Create(AManager: TCoolDockManagerBase);
 var
   I: Integer;