Changeset 46 for DockManager/Lazarus/UCustomDockManager.pas

Timestamp:

Sep 17, 2010, 8:02:32 AM (14 years ago)

Author:

george

Message:

• Upraveno: Ukotvení do podoken předěláno s využitím panelů.

File:

• DockManager/Lazarus/UCustomDockManager.pas (modified) (4 diffs)

DockManager/Lazarus/UCustomDockManager.pas

@@ -31 +31 @@
     Control: TControl;
     Splitter: TSplitter;
+    ClientAreaPanel: TPanel;
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
@@ -177 +178 @@
     end;
     NewPanel.Control := Control;
-    Control.Parent := NewPanel;
+    Control.Parent := NewPanel.ClientAreaPanel;
+    Control.Align := alClient;
     FDockPanels.Add(NewPanel);
 
@@ -202 +204 @@
       NewConjoinDockForm := TConjoinDockForm.Create(nil);
       NewConjoinDockForm.Visible := True;
+      NewConjoinDockForm.BoundsRect := FDockSite.BoundsRect;
       Control.ManualDock(NewConjoinDockForm.Panel);
       FDockSite.ManualDock(NewConjoinDockForm.Panel);
     end else begin
-      NewPanel := TPanel.Create(nil);
-      NewPanel.Parent := FDockSite.Parent;
-      NewPanel.Visible := True;
-      NewPanel.Left := FDockSite.Left;
-      NewPanel.Top := FDockSite.Top;
-      NewPanel.Width := FDockSite.Width;
-      NewPanel.Height := FDockSite.Height;
-      NewPanel.UseDockManager := True;
-      NewPanel.DockSite := True;
-      NewPanel.Color := clGreen;
-      NewPanel.ManualDock(FDockSite.HostDockSite);
-//      FDockSite.Parent := nil;
-      Control.ManualDock(NewPanel);
-      FDockSite.ManualDock(NewPanel);
+      Control.ManualDock(FDockSite.Parent);
     end;
   end else
-  if FDockSite is TPanel then begin
+  if (FDockSite is TPanel) or (FDockSite is TDockClientPanel) then begin
     InsertControlPanel(Control, InsertAt, DropCtl);
   end;
@@ -332 +322 @@
     OnClick := CloseButtonClick;
   end;
+  ClientAreaPanel := TPanel.Create(Self);
+  with ClientAreaPanel do begin
+    Parent := Self;
+    Visible := True;
+    DockSite := True;
+    UseDockManager := True;
+    Left := 0;
+    Top := GrabberSize;
+    Width := Self.Width;
+    Height := Self.Height;
+    Anchors := [akTop, akBottom, akLeft, akRight];
+    BevelInner := bvNone;
+    BevelOuter := bvNone;
+  end;
   OnPaint := DockPanelPaint;
   OnMouseDown := DockPanelMouseDown;