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

Timestamp:

Mar 7, 2011, 1:32:07 PM (13 years ago)

Author:

george

Message:

• Fixed: Docking popupmenu action Close and Rename.
• Added: Partialy implemented tab hiding.

File:

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

Docking/CoolDocking/Demo/UMainForm.pas

@@ -26 +26 @@
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
+    PageControl1: TPageControl;
     Panel1: TPanel;
+    TabControl1: TTabControl;
+    TabSheet1: TTabSheet;
+    TabSheet2: TTabSheet;
+    TabSheet3: TTabSheet;
+    TabSheet4: TTabSheet;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
@@ -34 +40 @@
     procedure MenuItem2Click(Sender: TObject);
     procedure MenuItem4Click(Sender: TObject);
+    procedure PageControl1Change(Sender: TObject);
   private
   public
@@ -74 +81 @@
   NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
   NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
+  NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
   //NewDockForm.ManualDock(TForm(DockForms[0]));
   //NewDockForm.ManualDock(TForm(DockForms[0]));
@@ -90 +98 @@
 end;
 
+procedure TMainForm.PageControl1Change(Sender: TObject);
+begin
+
+end;
+
 function TMainForm.NewDockForm: TDockForm;
 begin
-  Result := TDockForm.Create(Self);
+  Application.CreateForm(TDockForm, Result);
+//  Result := TDockForm.Create(Self);
   Result.Name := 'Form' + IntToStr(FormIndex);
+  Result.CoolDockClient1.Name := 'CoolDockClient' + IntToStr(FormIndex);
   Result.Caption := Result.Name;
   Result.Memo1.Text := Result.Name;