Changeset 205 for Docking/CoolDocking/Demo/IDE/UMainForm.pas

Timestamp:

Mar 17, 2011, 2:17:17 PM (13 years ago)

Author:

george

Message:

• Modified: Enhanced tabs popup manager.

File:

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

Docking/CoolDocking/Demo/IDE/UMainForm.pas

@@ -103 +103 @@
     procedure FormShow(Sender: TObject);
   public
+    NewFileIndex: Integer;
+    SourceCodeContainer: TCDConjoinForm;
     procedure InitDefaultDockLayout;
   end;
@@ -176 +178 @@
     ToolPaletteForm.Show;
 
+    SourceCodeContainer := TCDManager(DockPanel.DockManager).CreateContainer(alRight);
+    TCDManager(SourceCodeContainer.DockManager).DockStyle := dsTabs;
+    TCDManager(SourceCodeContainer.DockManager).HeaderPos := hpTop;
+
     NewContainer1.ManualDock(DockPanel);
     NewContainer1.Show;
-    SourceEditorForm.ManualDock(DockPanel);
-    SourceEditorForm.Show;
+//    SourceCodeContainer.ManualDock(DockPanel);
+//    SourceCodeContainer.Show;
     NewContainer2.ManualDock(DockPanel);
     NewContainer2.Show;
@@ -243 +249 @@
 
 procedure TMainForm.ANewFileExecute(Sender: TObject);
-begin
-  SourceEditorForm.Show;
+var
+  NewFile: TSourceEditorForm;
+begin
+  Application.CreateForm(TSourceEditorForm, NewFile);
+  //NewFile := TSourceEditorForm.Create(nil);
+  Inc(NewFileIndex);
+  NewFile.Caption := 'Unit ' + IntToStr(NewFileIndex);
+  NewFile.ManualDock(SourceCodeContainer);
+  NewFile.Show;
 end;