Changeset 182 for Docking/CoolDocking/UCoolDockStyle.pas

Timestamp:

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

Author:

george

Message:

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

File:

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

Docking/CoolDocking/UCoolDockStyle.pas

@@ -6 +6 @@
 
 uses
-  Classes, Controls, SysUtils, UCoolDockClientPanel;
+  Classes, Controls, SysUtils, UCoolDockClientPanel, UCoolDockCommon;
 
 type
@@ -14 +14 @@
   private
   public
-    Manager: TObject; // TCoolDockManager;
+    Manager: TCoolDockManagerBase;
     function GetHeaderPos: THeaderPos; virtual;
     procedure SetHeaderPos(const AValue: THeaderPos); virtual;
-    constructor Create(AManager: TObject);
+    constructor Create(AManager: TCoolDockManagerBase);
     procedure InsertControl(NewPanel: TCoolDockClientPanel; AControl: TControl;
       InsertAt: TAlign); virtual;
@@ -50 +50 @@
 end;
 
-constructor TCoolDockStyle.Create(AManager: TObject);
+constructor TCoolDockStyle.Create(AManager: TCoolDockManagerBase);
 begin
   Manager := AManager;