Changeset 437 for Docking/CoolDocking/UCDPopupMenu.pas

Timestamp:

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

Author:

chronos

Message:

• Fixed: Better switching tabbed controls.

File:

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

Docking/CoolDocking/UCDPopupMenu.pas

@@ -44 +44 @@
 
 uses
-  UCDClient, UCDManagerTabs, UCDCustomize, UCDManager;
+  UCDManagerTabs, UCDCustomize, UCDManager;
 
 resourcestring
@@ -91 +91 @@
   NewMenuItem: TMenuItem;
   NewMenuItem2: TMenuItem;
-  I: Integer;
 begin
   inherited Create(nil);
@@ -199 +198 @@
 
 procedure TCDPopupMenu.PopupMenuCloseClick(Sender: TObject);
-var
-  Control: TControl;
 begin
   if PopupComponent is TPageControl then