Changeset 58 for Docking/CoolDocking/Demo/UMainForm.pas

Timestamp:

Sep 23, 2010, 11:41:59 AM (14 years ago)

Author:

george

Message:

• Upraveno: Systém inicializace ukotvení přepracován z ručního na automatický pomocí použití komponenty TCoolDockClient. Zrušeno nastavení globální třídy výchozího správce ukotvení.

File:

• Docking/CoolDocking/Demo/UMainForm.pas (modified) (2 diffs)

Docking/CoolDocking/Demo/UMainForm.pas

@@ -16 +16 @@
   TMainForm = class(TForm)
     Button1: TButton;
+    CoolDockClient1: TCoolDockClient;
     CoolDockCustomize1: TCoolDockCustomize;
     CoolDockMaster1: TCoolDockMaster;
@@ -94 +95 @@
   Result.Name := 'Form' + IntToStr(FormIndex);
   Result.Memo1.Text := Result.Name;
-  Result.DragKind := dkDock;
-  Result.DragMode := dmAutomatic;
-  Result.DockSite := True;
-  Result.UseDockManager := True;
+  //Result.DragKind := dkDock;
+  //Result.DragMode := dmAutomatic;
+  //Result.DockSite := True;
+  //Result.UseDockManager := True;
   Inc(FormIndex);
   Result.Show;