Changeset 44

Timestamp:

Sep 16, 2010, 2:15:02 PM (14 years ago)

Author:

george

Message:

• Přidáno: Částečná implementace umělého ukotvovacího okna.

Location:

DockManager/Lazarus

Files:

• Demo/UMainForm.lfm (modified) (1 diff)
• Demo/UMainForm.pas (modified) (3 diffs)
• UCustomDockManager.pas (modified) (4 diffs)

DockManager/Lazarus/Demo/UMainForm.lfm

@@ -29 +29 @@
     DockSite = True
     TabOrder = 1
-    OnMouseDown = Panel1MouseDown
   end
 end

DockManager/Lazarus/Demo/UMainForm.pas

@@ -19 +19 @@
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
-    procedure ListView1EndDrag(Sender, Target: TObject; X, Y: Integer);
-    procedure ListView1StartDrag(Sender: TObject; var DragObject: TDragObject);
-    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
-      Shift: TShiftState; X, Y: Integer);
   private
     { private declarations }
@@ -28 +24 @@
     FormIndex: Integer;
     LastDockForm: TDockForm;
+    function NewDockForm: TDockForm;
   end;
 
@@ -49 +46 @@
   DockForm3: TDockForm;
 begin
-  Button1Click(Self);
-  DockForm1 := LastDockForm;
+  DockForm1 := NewDockForm;
   DockForm1.ManualDock(Panel1);
 
-  Button1Click(Self);
-  DockForm2 := LastDockForm;
+  DockForm2 := NewDockForm;
   DockForm2.ManualDock(Panel1);
 
-  Button1Click(Self);
-  DockForm3 := LastDockForm;
+  DockForm3 := NewDockForm;
   DockForm3.ManualDock(DockForm2);
 end;
 
-procedure TMainForm.ListView1EndDrag(Sender, Target: TObject; X, Y: Integer);
+function TMainForm.NewDockForm: TDockForm;
 begin
-
-end;
-
-procedure TMainForm.ListView1StartDrag(Sender: TObject;
-  var DragObject: TDragObject);
-begin
-
-end;
-
-procedure TMainForm.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
-  Shift: TShiftState; X, Y: Integer);
-begin
-
+  Result := TDockForm.Create(Self);
+  Result.Name := 'Form' + IntToStr(FormIndex);
+  Result.Memo1.Text := Result.Name;
+  Result.DragKind := dkDock;
+  Result.DragMode := dmAutomatic;
+  Result.DockSite := True;
+  Result.UseDockManager := True;
+  Inc(FormIndex);
+  Result.Show;
 end;
 
 procedure TMainForm.Button1Click(Sender: TObject);
-var
-  NewForm: TDockForm;
 begin
-  NewForm := TDockForm.Create(Self);
-  NewForm.Name := 'Form' + IntToStr(FormIndex);
-  NewForm.Memo1.Text := NewForm.Name;
-  NewForm.DragKind := dkDock;
-  NewForm.DragMode := dmAutomatic;
-  NewForm.DockSite := True;
-  NewForm.UseDockManager := True;
-  Inc(FormIndex);
-  NewForm.Show;
-  LastDockForm := NewForm;
+  NewDockForm;
 end;
 

DockManager/Lazarus/UCustomDockManager.pas

@@ -17 +17 @@
   TCustomDockManager = class;
 
+  { TConjoinDockForm }
+
   TConjoinDockForm = class(TForm)
-
+    Panel: TPanel;
+    constructor Create(TheOwner: TComponent); override;
   end;
 
@@ -130 +133 @@
   NewPanel: TDockClientPanel;
   I: Integer;
-begin
-  if FDockSite.DockClientCount = 2 then begin
-    if (InsertAt = alTop) or (InsertAt = alBottom) then
-      FDockDirection := ddVertical
-    else
-    if (InsertAt = alLeft) or (InsertAt = alRight) then
-      FDockDirection := ddHorizontal
-    else FDockDirection := ddHorizontal;
-  end;
-  if FDockSite.DockClientCount > 1 then begin
-    NewSplitter := TSplitter.Create(nil);
-    NewSplitter.Parent := FDockSite;
-    NewSplitter.Visible := True;
-    NewSplitter.Color := clRed;
-    with NewSplitter do
-    if FDockDirection = ddVertical then begin
-      Align := alTop;
-      Top := FDockSite.Height;
-    end else
-    if FDockDirection = ddHorizontal then begin
-      Align := alLeft;
-      Left := FDockSite.Width;
-    end;
-
-    with TDockClientPanel(FDockPanels.Last) do
-    if FDockDirection = ddVertical then
-      Align := alTop
-    else
-    if FDockDirection = ddHorizontal then
-      Align := alLeft;
-  end;
-  NewPanel := TDockClientPanel.Create(nil);
-  with NewPanel do begin
-    Splitter := NewSplitter;
-    Parent := FDockSite;
-    OwnerDockManager := Self;
-    Visible := True;
-    Align := alClient;
-  end;
-  NewPanel.Control := Control;
-  Control.Parent := NewPanel;
-  FDockPanels.Add(NewPanel);
-
-  for I := 0 to FDockPanels.Count - 1 do begin
-    TDockClientPanel(FDockPanels[I]).Height := FDockSite.Height div
-      FDockSite.DockClientCount;
-    TDockClientPanel(FDockPanels[I]).Width := FDockSite.Width div
-      FDockSite.DockClientCount;
+  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
+    if FDockSite.DockClientCount = 2 then begin
+      if (InsertAt = alTop) or (InsertAt = alBottom) then
+        FDockDirection := ddVertical
+      else
+      if (InsertAt = alLeft) or (InsertAt = alRight) then
+        FDockDirection := ddHorizontal
+      else FDockDirection := ddHorizontal;
+    end;
+    if FDockSite.DockClientCount > 1 then begin
+      NewSplitter := TSplitter.Create(nil);
+      NewSplitter.Parent := FDockSite;
+      NewSplitter.Visible := True;
+      NewSplitter.Color := clRed;
+      with NewSplitter do
+      if FDockDirection = ddVertical then begin
+        Align := alTop;
+        Top := FDockSite.Height;
+      end else
+      if FDockDirection = ddHorizontal then begin
+        Align := alLeft;
+        Left := FDockSite.Width;
+      end;
+
+      with TDockClientPanel(FDockPanels.Last) do
+      if FDockDirection = ddVertical then
+        Align := alTop
+      else
+      if FDockDirection = ddHorizontal then
+        Align := alLeft;
+    end;
+    NewPanel := TDockClientPanel.Create(nil);
+    with NewPanel do begin
+      Splitter := NewSplitter;
+      Parent := FDockSite;
+      OwnerDockManager := Self;
+      Visible := True;
+      Align := alClient;
+    end;
+    NewPanel.Control := Control;
+    Control.Parent := NewPanel;
+    FDockPanels.Add(NewPanel);
+
+    for I := 0 to FDockPanels.Count - 1 do begin
+      TDockClientPanel(FDockPanels[I]).Height := FDockSite.Height div
+        FDockSite.DockClientCount;
+      TDockClientPanel(FDockPanels[I]).Width := FDockSite.Width div
+        FDockSite.DockClientCount;
+    end;
   end;
 
@@ -243 +255 @@
   if Control.HostDockSite = Self.FDockSite then begin
     ClientPanel := FindControlInPanels(Control);
-    //ClientPanel.Splitter.Free;
+    //if Assigned(ClientPanel) then ClientPanel.Splitter.Free;
     FDockPanels.Remove(ClientPanel);
     if FDockSite.DockClientCount = 2 then FDockDirection := ddNone;
@@ -350 +362 @@
 end;
 
+{ TConjoinDockForm }
+
+constructor TConjoinDockForm.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+  Panel := TPanel.Create(Self);
+  with Panel do begin
+    Parent := Self;
+    DockSite := True;
+    UseDockManager := True;
+    Align := alClient;
+  end;
+  DragKind := dkDock;
+  DragMode := dmAutomatic;
+end;
+
 initialization
   DefaultDockManagerClass := TCustomDockManager;