Changeset 43 for DockManager/Lazarus/Demo/UMainForm.pas

Timestamp:

Sep 16, 2010, 1:52:48 PM (14 years ago)

Author:

george

Message:

• Upraveno: Přepracováno na uchování seznamu ukotvovacích klientů horizontálně nebo vertikálně.

File:

• DockManager/Lazarus/Demo/UMainForm.pas (modified) (2 diffs)

DockManager/Lazarus/Demo/UMainForm.pas

@@ -44 +44 @@
 
 procedure TMainForm.FormShow(Sender: TObject);
+var
+  DockForm1: TDockForm;
+  DockForm2: TDockForm;
+  DockForm3: TDockForm;
 begin
   Button1Click(Self);
-  LastDockForm.ManualDock(Panel1);
+  DockForm1 := LastDockForm;
+  DockForm1.ManualDock(Panel1);
+
+  Button1Click(Self);
+  DockForm2 := LastDockForm;
+  DockForm2.ManualDock(Panel1);
+
+  Button1Click(Self);
+  DockForm3 := LastDockForm;
+  DockForm3.ManualDock(DockForm2);
 end;
 
@@ -75 +88 @@
   NewForm.DragKind := dkDock;
   NewForm.DragMode := dmAutomatic;
+  NewForm.DockSite := True;
+  NewForm.UseDockManager := True;
   Inc(FormIndex);
   NewForm.Show;