Changeset 46 for DockManager/Lazarus/Demo/UMainForm.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/Demo/UMainForm.pas (modified) (5 diffs)

DockManager/Lazarus/Demo/UMainForm.pas

@@ -18 +18 @@
     procedure Button1Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
@@ -23 +24 @@
   public
     FormIndex: Integer;
-    LastDockForm: TDockForm;
+    DockForms: TList;
     function NewDockForm: TDockForm;
   end;
@@ -38 +39 @@
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
+  DockForms := TList.Create;
+end;
+
+procedure TMainForm.FormDestroy(Sender: TObject);
+begin
+  DockForms.Free;
 end;
 
@@ -46 +53 @@
   DockForm3: TDockForm;
 begin
-  DockForm1 := NewDockForm;
-  DockForm1.ManualDock(Panel1);
-
-  DockForm2 := NewDockForm;
-  DockForm2.ManualDock(Panel1);
-
-  DockForm3 := NewDockForm;
-  DockForm3.ManualDock(DockForm2);
+  NewDockForm.ManualDock(Panel1);
+  NewDockForm.ManualDock(Panel1, nil, alBottom);
+  NewDockForm.ManualDock(TForm(DockForms[1]).Parent);
+  NewDockForm.ManualDock(TForm(DockForms[1]).Parent);
 end;
 
@@ -67 +70 @@
   Inc(FormIndex);
   Result.Show;
+  DockForms.Add(Result);
 end;