Changeset 55 for Docking/CoolDocking/UCoolDocking.pas

Timestamp:

Sep 20, 2010, 1:15:16 PM (14 years ago)

Author:

george

Message:

• Opraveno: Neuvolněná paměť vytvářených sdružených oken.
• Opraveno: Komponenta formuláře pro volby kotvení předělána z TForm na TComponent, které volá TForm.Show pomocí metody Execute.

File:

• Docking/CoolDocking/UCoolDocking.pas (modified) (14 diffs)

Docking/CoolDocking/UCoolDocking.pas

@@ -9 +9 @@
 uses
   Classes, SysUtils, Controls, LCLType, LMessages, Graphics, StdCtrls,
-  Buttons, ExtCtrls, Contnrs, Forms, ComCtrls, Dialogs, Menus, FileUtil;
+  Buttons, ExtCtrls, Contnrs, Forms, ComCtrls, Dialogs, Menus, FileUtil,
+  UCoolDockCustomize, DOM, XMLWrite, XMLRead;
 
 const
@@ -88 +89 @@
     procedure InsertControlPanel(Control: TControl; InsertAt: TAlign;
       DropCtl: TControl);
+    procedure PopupMenuTabCloseClick(Sender: TObject);
     procedure SetDockStyle(const AValue: TDockStyle);
     procedure SetMoveDuration(const AValue: Integer);
@@ -102 +104 @@
     procedure PopupMenuPositionTopClick(Sender: TObject);
     procedure PopupMenuPositionBottomClick(Sender: TObject);
+    procedure PopupMenuUndockClick(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
+    procedure TabControlMouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
   public
     constructor Create(ADockSite: TWinControl); override;
@@ -168 +173 @@
   SPositionRight = 'Right';
   SPositionBottom = 'Bottom';
+  SUndock = 'Undock';
 
 procedure Register;
 begin
   RegisterComponents('CoolDocking', [TCoolDockMaster]);
+  RegisterComponents('CoolDocking', [TCoolDockCustomize]);
 end;
 
@@ -254 +261 @@
   NewMenuItem.Caption := SRenameForm;
   NewMenuItem.OnClick := PopupMenuRenameClick;
+  PopupMenu1.Items.Add(NewMenuItem);
+
+  NewMenuItem := TMenuItem.Create(PopupMenu1);
+  NewMenuItem.Caption := SUndock;
+  NewMenuItem.OnClick := PopupMenuUndockClick;
   PopupMenu1.Items.Add(NewMenuItem);
 
@@ -264 +276 @@
     OnChange := TabControlChange;
     PopupMenu := PopupMenu1;
+    OnMouseDown := TabControlMouseDown;
   end;
   TabsPos := hpTop;
@@ -344 +357 @@
       if DockStyle = dsList then Visible := True;
       Align := alClient;
-      PopupMenu := PopupMenu1;
     end;
 
@@ -376 +388 @@
     if (not Assigned(FDockSite.Parent)) then begin
       // Create conjointed form
-      NewConjoinDockForm := TCoolDockConjoinForm.Create(nil);
+      NewConjoinDockForm := TCoolDockConjoinForm.Create(Application);
       NewConjoinDockForm.Visible := True;
       NewConjoinDockForm.BoundsRect := FDockSite.BoundsRect;
@@ -382 +394 @@
       Control.ManualDock(NewConjoinDockForm.Panel, nil, InsertAt);
     end else begin
-      NewConjoinDockForm := TCoolDockConjoinForm.Create(nil);
+      NewConjoinDockForm := TCoolDockConjoinForm.Create(Application);
       NewConjoinDockForm.Visible := True;
       NewConjoinDockForm.BoundsRect := FDockSite.BoundsRect;
@@ -464 +476 @@
     FDockPanels.Remove(ClientPanel);
     if FDockSite.DockClientCount = 2 then FDockDirection := ddNone;
+    UpdateClientSize;
     //FDockSite.Invalidate;
     //if (FDockSite is TCoolDockConjoinForm) and (FDockSite.DockClientCount = 1) then
@@ -498 +511 @@
   NewConjoinDockForm: TCoolDockConjoinForm;
 begin
-  NewConjoinDockForm := TCoolDockConjoinForm.Create(nil);
+  NewConjoinDockForm := TCoolDockConjoinForm.Create(Application);
   NewConjoinDockForm.Visible := True;
   NewConjoinDockForm.BoundsRect := FDockSite.BoundsRect;
@@ -632 +645 @@
 procedure TCoolDockManager.PopupMenuCloseClick(Sender: TObject);
 begin
-//  TForm(TCoolDockManager(TControl(Sender).Parent.Parent.Parent.DockManager).FDockSite).Close;
+  TForm(TCoolDockManager(TControl(Sender).Parent.Parent.Parent.DockManager).FDockSite).Close;
+end;
+
+procedure TCoolDockManager.PopupMenuTabCloseClick(Sender: TObject);
+begin
+  if TabControl.TabIndex <> -1 then
+    TCoolDockClientPanel(FDockPanels[TabControl.TabIndex]).Control.Hide;
 end;
 
@@ -665 +684 @@
 end;
 
+procedure TCoolDockManager.PopupMenuUndockClick(Sender: TObject);
+begin
+
+end;
+
 procedure TCoolDockManager.Timer1Timer(Sender: TObject);
 begin
 //  TimerMoveForm.Width := TimerMoveForm.Width
+end;
+
+procedure TCoolDockManager.TabControlMouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+begin
+  if (Button = mbLeft) and (TabControl.TabIndex <> -1) then begin
+    DragManager.DragStart(TCoolDockClientPanel(FDockPanels[TabControl.TabIndex]).Control, False, 1);
+  end;
 end;
 
@@ -803 +835 @@
 
 procedure TCoolDockMaster.SaveLayoutToStream(Stream: TStream);
-begin
-
+var
+  Doc: TXMLDocument;
+  RootNode: TDOMNode;
+  NewNode: TDOMNode;
+  NewNode2: TDOMNode;
+  I: Integer;
+begin
+  Doc := TXMLDocument.Create;
+  with Doc do try
+    RootNode := CreateElement('DockLayout');
+    AppendChild(RootNode);
+    with RootNode do begin
+      for I := 0 to Application.ComponentCount - 1 do begin
+        if Application.Components[I] is TForm then
+        with Application.Components[I] as TForm do
+        if Assigned(HostDockSite) then
+        begin
+          NewNode := OwnerDocument.CreateElement('Form');
+
+          if HostDockSite.Parent is TForm then begin
+            NewNode2 := OwnerDocument.CreateElement('ParentFormName');
+            NewNode2.TextContent := UTF8Decode(HostDockSite.Parent.Name);
+            NewNode.AppendChild(NewNode2);
+
+            NewNode2 := OwnerDocument.CreateElement('ParentFormClassName');
+            NewNode2.TextContent := UTF8Decode(HostDockSite.Parent.ClassName);
+            NewNode.AppendChild(NewNode2);
+          end;
+
+          NewNode2 := OwnerDocument.CreateElement('Name');
+          NewNode2.TextContent := UTF8Decode(Name);
+          NewNode.AppendChild(NewNode2);
+
+          NewNode2 := OwnerDocument.CreateElement('Caption');
+          NewNode2.TextContent := UTF8Decode(Caption);
+          NewNode.AppendChild(NewNode2);
+
+          NewNode2 := OwnerDocument.CreateElement('Width');
+          NewNode2.TextContent := IntToStr(Width);
+          NewNode.AppendChild(NewNode2);
+
+          NewNode2 := OwnerDocument.CreateElement('Height');
+          NewNode2.TextContent := IntToStr(Height);
+          NewNode.AppendChild(NewNode2);
+
+          NewNode2 := OwnerDocument.CreateElement('UndockWidth');
+          NewNode2.TextContent := IntToStr(UndockWidth);
+          NewNode.AppendChild(NewNode2);
+
+          NewNode2 := OwnerDocument.CreateElement('UndockHeight');
+          NewNode2.TextContent := IntToStr(UndockHeight);
+          NewNode.AppendChild(NewNode2);
+
+          NewNode2 := OwnerDocument.CreateElement('FormState');
+          NewNode2.TextContent := IntToStr(Integer(FormState));
+          NewNode.AppendChild(NewNode2);
+
+          NewNode2 := OwnerDocument.CreateElement('Visible');
+          NewNode2.TextContent := IntToStr(Integer(Visible));
+          NewNode.AppendChild(NewNode2);
+
+          AppendChild(NewNode);
+        end;
+      end;
+    end;
+    WriteXMLFile(Doc, Stream);
+  finally
+    Free;
+  end;
 end;