Changeset 191 for Docking/CoolDocking/UCDClientPanel.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/UCDClientPanel.pas (modified) (3 diffs)

Docking/CoolDocking/UCDClientPanel.pas

@@ -68 +68 @@
 
 uses
-  UCDClient, UCDStyle, UCDManager;
+  UCDClient, UCDManager;
 
 { TCDClientPanel }
@@ -84 +84 @@
   Temp: TControl;
   Temp2: TControl;
-  Temp3: TCDStyle;
 begin
   Temp := TControl(Sender);
@@ -98 +97 @@
     if Assigned(OwnerDockManager) then
     with TCDManager(OwnerDockManager) do
-    if Assigned(DockStyleHandler) then
-    with DockStyleHandler do begin
-      Temp3 := DockStyleHandler;
+    begin
       //UpdateClientSize;
       if ControlVisible then