Changeset 194 for Docking/CoolDocking/UCDPopupMenu.pas

Timestamp:

Mar 11, 2011, 1:00:06 PM (14 years ago)

Author:

george

Message:

• Removed: UCDClientPanel replaced by TCDManagerItem and it's descendend.

File:

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

Docking/CoolDocking/UCDPopupMenu.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Menus, Forms, Controls, Dialogs, UCDClientPanel,
+  Classes, SysUtils, Menus, Forms, Controls, Dialogs,
   ExtCtrls, ComCtrls, UCDCommon;
 
@@ -165 +165 @@
   if PopupComponent is TPageControl then
   with TPageControl(PopupComponent) do begin
-    TForm(TCDClientPanel(TCDManager(Manager).DockPanels[TabIndex]).Control).Close;
-  end;
-  if PopupComponent is TCDHeader then
-  with TCDHeader(PopupComponent) do begin
-    TForm(ParentClientPanel.Control).Close;
+    TForm(TCDManagerTabsItem(TCDManagerTabs(Manager).DockItems[TabIndex]).Control).Close;
+  end;
+  if PopupComponent is TCDHeader then
+  with TCDHeader(PopupComponent) do begin
+    TForm(ManagerItem.Control).Close;
   end;
 end;
@@ -180 +180 @@
   if PopupComponent is TPageControl then
   with TPageControl(PopupComponent) do begin
-    Value := TCDClientPanel(TCDManager(Manager).DockPanels[TabIndex]).Control.Caption;
+    Value := TCDManagerTabsItem(TCDManagerTabs(Manager).DockItems[TabIndex]).Control.Caption;
     if InputQuery(SRenameWindow, SEnterNewWindowName, False, Value) then begin
-      TCDClientPanel(TCDManager(Manager).DockPanels[TabIndex]).Control.Caption := Value;
+      TCDManagerTabsItem(TCDManagerTabs(Manager).DockItems[TabIndex]).Control.Caption := Value;
       Pages[TabIndex].Caption := Value;
     end;
@@ -188 +188 @@
   if PopupComponent is TCDHeader then
   with TCDHeader(PopupComponent) do begin
-    Value := ParentClientPanel.Control.Caption;
+    Value := ManagerItem.Control.Caption;
     if InputQuery(SRenameWindow, SEnterNewWindowName, False, Value) then begin
-      ParentClientPanel.Control.Caption := Value;
+      ManagerItem.Control.Caption := Value;
       Title.Caption := Value;
     end;
@@ -262 +262 @@
   if PopupComponent is TPageControl then
   with TPageControl(PopupComponent) do begin
-    Control := TCDClientPanel(TCDManager(Manager).DockPanels[TabIndex]).Control;
-  end else
-  if PopupComponent is TCDHeader then
-  with TCDHeader(PopupComponent) do begin
-    Control := ParentClientPanel.Control;
+    Control := TCDManagerTabsItem(TCDManagerTabs(Manager).DockItems[TabIndex]).Control;
+  end else
+  if PopupComponent is TCDHeader then
+  with TCDHeader(PopupComponent) do begin
+    Control := ManagerItem.Control;
   end else Control := nil;
   if Assigned(Control) then