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

Timestamp:

Dec 29, 2010, 1:56:04 PM (14 years ago)

Author:

george

Message:

• Fixed: Hiding invisible docked forms as tabs.
• Added: Ability to bring window to front on execute Form.Show.

File:

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

Docking/CoolDocking/Demo/UMainForm.pas

@@ -71 +71 @@
   //TCoolDockManager(ConjoinedDockForm1.Panel.DockManager).TabsPos := hpLeft;
   ConjoinedDockForm1.ManualDock(Panel1);
-  //TCoolDockManager(ConjoinedDockForm1.Panel.DockManager).DockStyle := dsTabs;
+  TCoolDockManager(ConjoinedDockForm1.Panel.DockManager).DockStyle := dsTabs;
   NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
   NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
-  NewDockForm.ManualDock(TForm(DockForms[0]));
-  NewDockForm.ManualDock(TForm(DockForms[0]));
-  NewDockForm.ManualDock(TForm(DockForms[0]));
-//  TCustomDockManager(TDockForm(DockForms[0]).DockManager).DockStyle := dsTabs;
+  //NewDockForm.ManualDock(TForm(DockForms[0]));
+  //NewDockForm.ManualDock(TForm(DockForms[0]));
+  //NewDockForm.ManualDock(TForm(DockForms[0]));
+  //TCustomDockManager(TDockForm(DockForms[0]).DockManager).DockStyle := dsTabs;
 end;
 
@@ -94 +94 @@
   Result := TDockForm.Create(Self);
   Result.Name := 'Form' + IntToStr(FormIndex);
+  Result.Caption := Result.Name;
   Result.Memo1.Text := Result.Name;
   //Result.DragKind := dkDock;