Changeset 359 for Docking/CoolDocking/UCDClient.pas

Timestamp:

May 4, 2012, 12:27:25 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Regions size update on Control visible state change.
• Added: Support for custom center region selection. Surrounding regions are aligned to edges and keep size on docksite resize.

File:

• Docking/CoolDocking/UCDClient.pas (modified) (1 diff)

Docking/CoolDocking/UCDClient.pas

@@ -95 +95 @@
 begin
   inherited Create(AOwner);
-  FDockable := False;
+  FDockable := True;
   if not (AOwner is TForm) then
     raise Exception.Create(SWrongOwner);
   with (AOwner as TForm) do begin
     if not (csDesigning in ComponentState) then begin
-      (*if Dockable then begin
+      if Dockable then begin
         DragKind := dkDock;
         DragMode := dmAutomatic;
         DockSite := True;
       end;
-      *)UseDockManager := True;
+      UseDockManager := True;
       DockManager := TCDManagerRegions.Create(TWinControl(AOwner));
       //FormStyle := fsStayOnTop;