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

Timestamp:

Dec 8, 2010, 10:40:38 AM (14 years ago)

Author:

george

Message:

• Added: Windows showing application component tree with names and types.

File:

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

Docking/CoolDocking/Demo/UMainForm.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
   ComCtrls, ExtCtrls, Buttons, Menus, UCoolDocking, UCoolDockCustomize,
-  UDockForm;
+  UDockForm, UComponentTree;
 
 type
@@ -16 +16 @@
   TMainForm = class(TForm)
     Button1: TButton;
+    Button2: TButton;
     CoolDockClient1: TCoolDockClient;
     CoolDockCustomize1: TCoolDockCustomize;
@@ -27 +28 @@
     Panel1: TPanel;
     procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -70 +72 @@
   ConjoinedDockForm1.ManualDock(Panel1);
   TCoolDockManager(ConjoinedDockForm1.Panel.DockManager).DockStyle := dsTabs;
-  (*NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
+  NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
   NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
   NewDockForm.ManualDock(TForm(DockForms[0]));
   NewDockForm.ManualDock(TForm(DockForms[0]));
-  NewDockForm.ManualDock(TForm(DockForms[0]));*)
+  NewDockForm.ManualDock(TForm(DockForms[0]));
 //  TCustomDockManager(TDockForm(DockForms[0]).DockManager).DockStyle := dsTabs;
 end;
@@ -107 +109 @@
 end;
 
+procedure TMainForm.Button2Click(Sender: TObject);
+begin
+  ComponentTree.Show;
+end;
+
 end.