Changeset 193 for Docking/CoolDocking/UCDPopupMenu.pas

Timestamp:

Mar 11, 2011, 10:57:39 AM (13 years ago)

Author:

george

Message:

• Fixed: Infinite loop in TCDManager SetVisible method.

File:

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

Docking/CoolDocking/UCDPopupMenu.pas

@@ -200 +200 @@
   if PopupComponent is TPageControl then
   with TPageControl(PopupComponent) do begin
-    TCDStyleTabs(Manager).TabsPos := hpAuto;
+    TCDManagerTabs(Manager).TabsPos := hpAuto;
   end else
   if PopupComponent is TCDHeader then
@@ -212 +212 @@
   if PopupComponent is TPageControl then
   with TPageControl(PopupComponent) do begin
-    TCDStyleTabs(Manager).TabsPos := hpLeft;
+    TCDManagerTabs(Manager).TabsPos := hpLeft;
   end else
   if PopupComponent is TCDHeader then
@@ -224 +224 @@
   if PopupComponent is TPageControl then
   with TPageControl(PopupComponent) do begin
-    TCDStyleTabs(Manager).TabsPos := hpRight;
+    TCDManagerTabs(Manager).TabsPos := hpRight;
   end else
   if PopupComponent is TCDHeader then
@@ -236 +236 @@
   if PopupComponent is TPageControl then
   with TPageControl(PopupComponent) do begin
-    TCDStyleTabs(Manager).TabsPos := hpTop;
+    TCDManagerTabs(Manager).TabsPos := hpTop;
   end else
   if PopupComponent is TCDHeader then
@@ -248 +248 @@
   if PopupComponent is TPageControl then
   with TPageControl(PopupComponent) do begin
-    TCDStyleTabs(Manager).TabsPos := hpBottom;
+    TCDManagerTabs(Manager).TabsPos := hpBottom;
   end else
   if PopupComponent is TCDHeader then