Changeset 197 for Docking/CoolDocking/Managers/UCDManagerRegions.pas

Timestamp:

Mar 16, 2011, 7:47:27 AM (14 years ago)

Author:

george

Message:

• Modified: Docked client header redone to delphi visual style.

File:

• Docking/CoolDocking/Managers/UCDManagerRegions.pas (modified) (4 diffs)

Docking/CoolDocking/Managers/UCDManagerRegions.pas

@@ -57 +57 @@
   PanelHeader := TCDPanelHeader.Create(nil);
   PanelHeader.Header.ManagerItem := Self;
+  PanelHeader.Header.OnMouseDown := DockPanelMouseDown;
+  PanelHeader.Header.Title.OnMouseDown := DockPanelMouseDown;
 
   Splitter := TSplitter.Create(nil);
   with Splitter do begin
+    Width := 3;
+    Height := 3;
     //Parent := Panel;
     //Color := clRed;
@@ -67 +71 @@
 destructor TCDManagerRegionsItem.Destroy;
 begin
+  PanelHeader.Parent := nil;
+  PanelHeader.Free;
+  Splitter.Parent := nil;
+  Splitter.Free;
+  Control.Parent := nil;
   inherited Destroy;
 end;
@@ -111 +120 @@
     NewItem.PanelHeader.Header.Icon.Picture.Assign((Control as TForm).Icon);
     NewItem.PanelHeader.Parent := DockSite;
+    NewItem.PanelHeader.Header.Title.Caption := TForm(Control).Caption;
 
     NewItem.Control := Control;
@@ -163 +173 @@
 begin
   ManagerItem := FindControlInPanels(Control);
-  if Assigned(ManagerItem) then
+  if Assigned(ManagerItem) then begin
     Control.RemoveHandlerOnVisibleChanged(ManagerItem.VisibleChange);
+  end;
 
   DockItems.Remove(ManagerItem);