Changeset 103 for Docking/CoolDocking/UCoolDockStyleRegions.pas

Timestamp:

Dec 29, 2010, 1:56:04 PM (14 years ago)

Author:

george

Message:

• Fixed: Hiding invisible docked forms as tabs.
• Added: Ability to bring window to front on execute Form.Show.

File:

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

Docking/CoolDocking/UCoolDockStyleRegions.pas

@@ -17 +17 @@
 
   TCoolDockStyleRegions = class(TCoolDockStyle)
-    Header: TCoolDockHeader;
+  private
+  public
     Panels: TObjectList; // TObjectList<TCoolDockStyleRegionsPanel>
+    function GetHeaderPos: THeaderPos; override;
+    procedure SetHeaderPos(const AValue: THeaderPos); override;
     constructor Create(AManager: TObject);
     destructor Destroy; override;
@@ -31 +34 @@
 
 { TCoolDockStyleRegions }
+
+function TCoolDockStyleRegions.GetHeaderPos: THeaderPos;
+begin
+//  Result := TCoolDockManager(Manager).;
+end;
+
+procedure TCoolDockStyleRegions.SetHeaderPos(const AValue: THeaderPos);
+begin
+  inherited SetHeaderPos(AValue);
+end;
 
 constructor TCoolDockStyleRegions.Create(AManager: TObject);
@@ -72 +85 @@
 end;
 
-
-
 end.