Changeset 45 for DockManager/Lazarus/UCustomDockManager.pas

Timestamp:

Sep 17, 2010, 7:27:04 AM (14 years ago)

Author:

george

Message:

• Přidáno: Pokusná podpora pro hiearchické ukotvení do podpanelů.

File:

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

DockManager/Lazarus/UCustomDockManager.pas

@@ -49 +49 @@
     FDockPanels: TObjectList; // of TDockClientPanel
     function FindControlInPanels(Control: TControl): TDockClientPanel;
+    procedure InsertControlPanel(Control: TControl; InsertAt: TAlign;
+      DropCtl: TControl);
   public
     constructor Create(ADockSite: TWinControl); override;
@@ -127 +129 @@
 end;
 
-procedure TCustomDockManager.InsertControl(Control: TControl; InsertAt: TAlign;
+procedure TCustomDockManager.InsertControlPanel(Control: TControl; InsertAt: TAlign;
   DropCtl: TControl);
 var
@@ -133 +135 @@
   NewPanel: TDockClientPanel;
   I: Integer;
-  NewConjoinDockForm: TConjoinDockForm;
-begin
-  if (FDockSite is TForm) and (not Assigned(FDockSite.Parent)) then begin
-    NewConjoinDockForm := TConjoinDockForm.Create(nil);
-    NewConjoinDockForm.Visible := True;
-    Control.ManualDock(NewConjoinDockForm.Panel);
-    FDockSite.ManualDock(NewConjoinDockForm.Panel);
-  end else
-  if FDockSite is TPanel then begin
+begin
     if FDockSite.DockClientCount = 2 then begin
       if (InsertAt = alTop) or (InsertAt = alBottom) then
@@ -149 +143 @@
         FDockDirection := ddHorizontal
       else FDockDirection := ddHorizontal;
-    end;
+    end;// else FDockSite.DockClientCount > 2 then begin
+
+    //end;
     if FDockSite.DockClientCount > 1 then begin
       NewSplitter := TSplitter.Create(nil);
@@ -190 +186 @@
         FDockSite.DockClientCount;
     end;
+end;
+
+procedure TCustomDockManager.InsertControl(Control: TControl; InsertAt: TAlign;
+  DropCtl: TControl);
+var
+  NewSplitter: TSplitter;
+  NewDockPanel: TDockClientPanel;
+  NewPanel: TPanel;
+  I: Integer;
+  NewConjoinDockForm: TConjoinDockForm;
+begin
+  if (FDockSite is TForm) then begin
+    if (not Assigned(FDockSite.Parent)) then begin
+      // Create conjointed form
+      NewConjoinDockForm := TConjoinDockForm.Create(nil);
+      NewConjoinDockForm.Visible := True;
+      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);
+    end;
+  end else
+  if FDockSite is TPanel then begin
+    InsertControlPanel(Control, InsertAt, DropCtl);
   end;