Changeset 430 for Docking/CoolDocking/UCDManager.pas

Timestamp:

Oct 17, 2012, 1:24:58 PM (12 years ago)

Author:

chronos

Message:

• Fixed: CoolDock show wrong tab focused if tab was invisible.

File:

• Docking/CoolDocking/UCDManager.pas (modified) (4 diffs)

Docking/CoolDocking/UCDManager.pas

@@ -60 +60 @@
     property HeaderPos: THeaderPos read FHeaderPos write SetHeaderPos;
     property HeaderVisible: Boolean read GetHeaderVisible write SetHeaderVisible;
-    constructor Create(TheOwner: TComponent);
+    constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
   end;
@@ -89 +89 @@
     FUpdateCount: Integer;
     FDockStyle: TCDStyleType;
+    procedure SetHeaderPos(const AValue: THeaderPos); virtual;
   private
     FDockSite: TWinControl;
@@ -116 +117 @@
     procedure InsertControlPanel(Control: TControl; InsertAt: TAlign;
       DropCtl: TControl); virtual;
-    procedure SetHeaderPos(const AValue: THeaderPos); virtual;
     function GetHeaderPos: THeaderPos; virtual;
     procedure BringToFront; virtual;
@@ -552 +552 @@
   NewConjoinDockForm := TCDConjoinForm.Create(Application);
   NewConjoinDockForm.Name := GetUniqueName('ConjoinForm');
-  //NewConjoinDockForm.Visible := True;
+  NewConjoinDockForm.Visible := True;
   NewConjoinDockForm.BoundsRect := FDockSite.BoundsRect;
   NewConjoinDockForm.CoolDockClient.Master := Self.Master;