Changeset 6 for DockManagement/Demo

Timestamp:

Dec 9, 2011, 7:22:16 AM (13 years ago)

Author:

chronos

Message:

• Added: Some basic functionality for conjoined form support.

Location:

DockManagement/Demo

Files:

• UMainForm.dfm (modified) (1 diff)
• UMainForm.pas (modified) (5 diffs)

DockManagement/Demo/UMainForm.dfm

@@ -3 +3 @@
   Top = 0
   Caption = 'DockManagement demo'
-  ClientHeight = 202
-  ClientWidth = 398
+  ClientHeight = 372
+  ClientWidth = 540
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET

DockManagement/Demo/UMainForm.pas

@@ -4 +4 @@
 
 uses
-  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
-  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, UDockForm, Vcl.Menus, UDockManagement;
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
+  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, UDockForm, Vcl.Menus, UDockManagement, Generics.Collections;
 
 type
@@ -18 +18 @@
   private
     RegistryKey: string;
+    function NewDockForm: TDockForm;
   public
+    Forms: TObjectList<TForm>;
     FormCounter: Integer;
     BaseDockPanel: TDBaseDockPanel;
@@ -38 +40 @@
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
+  Forms := TObjectList<TForm>.Create;
   CustomDockManager := TDDockManager.Create(Self);
   CustomDockManager.RegistryKey := RegistryKey;
@@ -54 +57 @@
   BaseDockPanel.Free;
   CustomDockManager.Free;
+  Forms.Free;
 end;
 
 procedure TMainForm.FormShow(Sender: TObject);
+var
+  I: Integer;
 begin
  // Init dock init list
@@ -68 +74 @@
   end;
   //CustomDockManager.LoadFromRegistry
+  for I := 0 to 5 do begin
+    Forms.Add(NewDockForm);
+  end;
+end;
+
+function TMainForm.NewDockForm: TDockForm;
+begin
+  Inc(FormCounter);
+  Result := TDockForm.Create(MainForm);
+  Result.Memo1.Text := 'Form ' + IntToStr(FormCounter);
+  Result.Memo1.Align := alClient;
+  Result.Caption := 'Form ' + IntToStr(FormCounter);
+  Result.Show;
+  CustomDockManager.RegisterDockForm(Result, 200, 200, Result.Name, True);
 end;
 
 procedure TMainForm.Newform1Click(Sender: TObject);
-var
-  NewForm: TDockForm;
 begin
-  Inc(FormCounter);
-  NewForm := TDockForm.Create(MainForm);
-  NewForm.Caption := 'Form ' + IntToStr(FormCounter);
-  NewForm.Show;
-  CustomDockManager.RegisterDockForm(NewForm, 200, 200, NewForm.Name, True);
+  Forms.Add(NewDockForm);
 end;