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

Timestamp:

Sep 21, 2010, 8:03:17 AM (14 years ago)

Author:

george

Message:

• Přidáno: Okno pro zobrazení seznamu všech oken.

File:

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

Docking/CoolDocking/Demo/UMainForm.pas

@@ -16 +16 @@
   TMainForm = class(TForm)
     Button1: TButton;
-    Button2: TButton;
     CoolDockCustomize1: TCoolDockCustomize;
     CoolDockMaster1: TCoolDockMaster;
+    CoolDockWindowList1: TCoolDockWindowList;
+    MainMenu1: TMainMenu;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
     Panel1: TPanel;
-    TabControl1: TTabControl;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
@@ -26 +30 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure MenuItem2Click(Sender: TObject);
+    procedure MenuItem4Click(Sender: TObject);
   private
     { private declarations }
@@ -73 +79 @@
 end;
 
+procedure TMainForm.MenuItem2Click(Sender: TObject);
+begin
+  CoolDockCustomize1.Execute;
+end;
+
+procedure TMainForm.MenuItem4Click(Sender: TObject);
+begin
+  CoolDockWindowList1.Execute;
+end;
+
 function TMainForm.NewDockForm: TDockForm;
 begin
@@ -94 +110 @@
 procedure TMainForm.Button2Click(Sender: TObject);
 begin
-  CoolDockCustomize1.Execute;
+
 end;