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

Timestamp:

Mar 16, 2011, 12:32:41 PM (14 years ago)

Author:

george

Message:

• Fixed: Popup submenus style and position item selection.
• Added: Locking dock managers.
• Modified: Enhanced auto popup tabs handling. Not yet finished.
• Modified: Dock manager position united for all dock manager descendands.

File:

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

Docking/CoolDocking/Managers/UCDManagerRegions.pas

@@ -17 +17 @@
     PanelHeader: TCDPanelHeader;
     Splitter: TSplitter;
+    procedure Paint(Sender: TObject); override;
     constructor Create;
     destructor Destroy; override;
@@ -26 +27 @@
   private
     FDockItems: TObjectList; // TList<TCDManagerRegionsItem>
+    function GetHeaderPos: THeaderPos; override;
+    procedure SetHeaderPos(const AValue: THeaderPos); override;
     function GetDirection(InsertAt: TAlign): TCDDirection;
   public
@@ -53 +56 @@
 { TCDManagerRegionsItem }
 
+procedure TCDManagerRegionsItem.Paint(Sender: TObject);
+var
+  I: Integer;
+  R: TRect;
+begin
+  inherited Paint(Sender);
+  with PanelHeader do
+  if not (csDesigning in ComponentState) then
+  if Assigned(Control) then begin
+    //R := Control.ClientRect;
+    //Canvas.FillRect(R);
+    Header.Visible := ShowHeader;
+    if ShowHeader then begin
+      if ControlPanel.DockClientCount = 0 then
+        Header.DrawGrabber(Canvas, Control) else
+      Header.DrawGrabber(Canvas, ControlPanel);
+    end;
+  end;
+end;
+
 constructor TCDManagerRegionsItem.Create;
 begin
@@ -59 +82 @@
   PanelHeader.Header.OnMouseDown := DockPanelMouseDown;
   PanelHeader.Header.Title.OnMouseDown := DockPanelMouseDown;
+  PanelHeader.Header.Icon.OnMouseDown := DockPanelMouseDown;
 
   Splitter := TSplitter.Create(nil);
@@ -81 +105 @@
 
 { TCDManagerRegions }
+
+function TCDManagerRegions.GetHeaderPos: THeaderPos;
+begin
+  Result := inherited;
+end;
+
+procedure TCDManagerRegions.SetHeaderPos(const AValue: THeaderPos);
+begin
+  inherited SetHeaderPos(AValue);
+  case AValue of
+    hpBottom, hpTop: FDockDirection := ddVertical;
+    hpLeft, hpRight: FDockDirection := ddHorizontal;
+  end;
+end;
 
 function TCDManagerRegions.GetDirection(InsertAt: TAlign): TCDDirection;
@@ -117 +155 @@
     PanelHeader.Header.PopupMenu := Self.PopupMenu;
   end;
-  if (Control is TForm) and Assigned((Control as TForm).Icon) then
+  if (Control is TForm) and Assigned((Control as TForm).Icon) then begin
     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;
-    Control.AddHandlerOnVisibleChanged(NewItem.VisibleChange);
-    Control.Parent := NewItem.PanelHeader.ControlPanel;
-    Control.Align := alClient;
-    if (InsertAt = alTop) or (InsertAt = alLeft) then
-      DockItems.Insert(0, NewItem)
-      else DockItems.Add(NewItem);
-  end;
+    NewItem.PanelHeader.Header.Icon.Width := NewItem.PanelHeader.Header.Icon.Picture.Bitmap.Width;
+    NewItem.PanelHeader.Header.Icon.Height := NewItem.PanelHeader.Header.Icon.Picture.Bitmap.Height;
+  end;
+
+  NewItem.PanelHeader.Parent := DockSite;
+  NewItem.PanelHeader.Header.Title.Caption := TForm(Control).Caption;
+
+  NewItem.Control := Control;
+  Control.AddHandlerOnVisibleChanged(NewItem.VisibleChange);
+  Control.Parent := NewItem.PanelHeader.ControlPanel;
+  Control.Align := alClient;
+  if (InsertAt = alTop) or (InsertAt = alLeft) then
+    DockItems.Insert(0, NewItem)
+    else DockItems.Add(NewItem);
+end;
 
 procedure TCDManagerRegions.InsertControlPanel(Control: TControl; InsertAt: TAlign;
@@ -248 +290 @@
     PanelHeader.Width := Self.DockSite.Width div
       Self.DockSite.DockClientCount;
-    //TCDClientPanel(FDockPanels[I]).DockPanelPaint(Self);
+    Paint(Self);
     if I < (DockItems.Count - 1) then PanelHeader.Align := BaseAlign
       else PanelHeader.Align := alClient;