Changeset 437 for Docking/CoolDocking/Managers/UCDManagerRegions.pas

Timestamp:

Nov 19, 2012, 2:34:58 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Better switching tabbed controls.

File:

• Docking/CoolDocking/Managers/UCDManagerRegions.pas (modified) (2 diffs)

Docking/CoolDocking/Managers/UCDManagerRegions.pas

@@ -51 +51 @@
       DropCtl: TControl); override;
     procedure RemoveControl(Control: TControl); override;
-    constructor Create(ADockSite: TWinControl);
+    constructor Create(ADockSite: TWinControl); override;
     destructor Destroy; override;
     procedure PaintSite(DC: HDC); override;
     procedure Update; override;
     procedure SetVisible(const AValue: Boolean); override;
-    procedure ChangeVisible(Control: TWinControl; Visible: Boolean);
+    procedure ChangeVisible(Control: TWinControl; Visible: Boolean); override;
     property DockDirection: TCDDirection read FDockDirection
       write FDockDirection;
@@ -93 +93 @@
 
 procedure TCDManagerRegionsItem.Paint(Sender: TObject);
-var
-  I: Integer;
-  R: TRect;
 begin
   inherited Paint(Sender);