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

Timestamp:

Sep 20, 2010, 1:15:16 PM (14 years ago)

Author:

george

Message:

• Opraveno: Neuvolněná paměť vytvářených sdružených oken.
• Opraveno: Komponenta formuláře pro volby kotvení předělána z TForm na TComponent, které volá TForm.Show pomocí metody Execute.

File:

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

Docking/CoolDocking/Demo/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, ExtCtrls, Buttons, Menus, UCoolDocking, UDockForm;
+  ComCtrls, ExtCtrls, Buttons, Menus, UCoolDocking, UCoolDockCustomize,
+  UDockForm;
 
 type
@@ -15 +16 @@
   TMainForm = class(TForm)
     Button1: TButton;
+    Button2: TButton;
+    CoolDockCustomize1: TCoolDockCustomize;
     CoolDockMaster1: TCoolDockMaster;
     Panel1: TPanel;
+    TabControl1: TTabControl;
     procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -54 +59 @@
 begin
   NewDockForm.ManualDock(Panel1);
-//  NewDockForm.ManualDock(Panel1, nil, a);
+ // NewDockForm.ManualDock(Panel1);
   ConjoinedDockForm1 := TCoolDockManager(Panel1.DockManager).CreateContainer(alRight);
   ConjoinedDockForm1.Name := 'Model';;
@@ -87 +92 @@
 end;
 
+procedure TMainForm.Button2Click(Sender: TObject);
+begin
+  CoolDockCustomize1.Execute;
+end;
+
 end.