Changeset 103 for Docking/CoolDocking/UCoolDockStyle.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/UCoolDockStyle.pas (modified) (3 diffs)

Docking/CoolDocking/UCoolDockStyle.pas

@@ -9 +9 @@
 
 type
-
   { TCoolDockStyle }
 
   TCoolDockStyle = class
+  private
+  public
     Manager: TObject; // TCoolDockManager;
+    function GetHeaderPos: THeaderPos; virtual;
+    procedure SetHeaderPos(const AValue: THeaderPos); virtual;
     constructor Create(AManager: TObject);
     procedure InsertControl(NewPanel: TCoolDockClientPanel; AControl: TControl;
       InsertAt: TAlign); virtual;
     procedure UpdateClientSize; virtual;
+    procedure Switch(Index: Integer); virtual;
+    procedure ChangeVisible(Control: TWinControl; Visible: Boolean); virtual;
+    property HeaderPos: THeaderPos read GetHeaderPos write SetHeaderPos;
   end;
 
@@ -26 +32 @@
 
 { TCoolDockStyle }
+
+function TCoolDockStyle.GetHeaderPos: THeaderPos;
+begin
+
+end;
+
+procedure TCoolDockStyle.SetHeaderPos(const AValue: THeaderPos);
+begin
+
+end;
 
 constructor TCoolDockStyle.Create(AManager: TObject);
@@ -43 +59 @@
 end;
 
+procedure TCoolDockStyle.Switch(Index: Integer);
+begin
+
+end;
+
+procedure TCoolDockStyle.ChangeVisible(Control: TWinControl; Visible: Boolean);
+begin
+
+end;
+
 end.