Changeset 191 for Docking/CoolDocking/UCDPopupMenu.pas

Timestamp:

Mar 11, 2011, 10:07:38 AM (14 years ago)

Author:

george

Message:

• Modified: Classes which iherits from TCDStyle changed to inherit from TCDManager. Now all styles will be different dock managers. Field DockStyleHanler of TCDManager removed and DockStyle property changes TCDManager descendends.

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(TCDManager(Manager).DockStyleHandler).TabsPos := hpAuto;
+    TCDStyleTabs(Manager).TabsPos := hpAuto;
   end else
   if PopupComponent is TCDHeader then
@@ -212 +212 @@
   if PopupComponent is TPageControl then
   with TPageControl(PopupComponent) do begin
-    TCDStyleTabs(TCDManager(Manager).DockStyleHandler).TabsPos := hpLeft;
+    TCDStyleTabs(Manager).TabsPos := hpLeft;
   end else
   if PopupComponent is TCDHeader then
@@ -224 +224 @@
   if PopupComponent is TPageControl then
   with TPageControl(PopupComponent) do begin
-    TCDStyleTabs(TCDManager(Manager).DockStyleHandler).TabsPos := hpRight;
+    TCDStyleTabs(Manager).TabsPos := hpRight;
   end else
   if PopupComponent is TCDHeader then
@@ -236 +236 @@
   if PopupComponent is TPageControl then
   with TPageControl(PopupComponent) do begin
-    TCDStyleTabs(TCDManager(Manager).DockStyleHandler).TabsPos := hpTop;
+    TCDStyleTabs(Manager).TabsPos := hpTop;
   end else
   if PopupComponent is TCDHeader then
@@ -248 +248 @@
   if PopupComponent is TPageControl then
   with TPageControl(PopupComponent) do begin
-    TCDStyleTabs(TCDManager(Manager).DockStyleHandler).TabsPos := hpBottom;
+    TCDStyleTabs(Manager).TabsPos := hpBottom;
   end else
   if PopupComponent is TCDHeader then