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

Timestamp:

Sep 20, 2010, 9:22:02 AM (14 years ago)

Author:

george

Message:

• Upraveno: Balíček přejmenován na CoolDocking. Přejmenovány také jména jednotek a tříd. Upraveno demo.
• Opraveno: Přidávání nových oken do okna se záložkami.

File:

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

Docking/CoolDocking/Demo/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, ExtCtrls, Buttons, Menus, UCustomDockManager, UDockForm;
+  ComCtrls, ExtCtrls, Buttons, Menus, UCoolDocking, UDockForm;
 
 type
@@ -15 +15 @@
   TMainForm = class(TForm)
     Button1: TButton;
-    CustomDockMaster1: TCustomDockMaster;
+    CoolDockMaster1: TCoolDockMaster;
     Panel1: TPanel;
     procedure Button1Click(Sender: TObject);
@@ -50 +50 @@
 procedure TMainForm.FormShow(Sender: TObject);
 var
-  ConjoinedDockForm1: TConjoinDockForm;
-  ConjoinedDockForm2: TConjoinDockForm;
+  ConjoinedDockForm1: TCoolDockConjoinForm;
+  ConjoinedDockForm2: TCoolDockConjoinForm;
 begin
   NewDockForm.ManualDock(Panel1);
 //  NewDockForm.ManualDock(Panel1, nil, a);
-  ConjoinedDockForm1 := TCustomDockManager(Panel1.DockManager).CreateContainer(alRight);
+  ConjoinedDockForm1 := TCoolDockManager(Panel1.DockManager).CreateContainer(alRight);
   ConjoinedDockForm1.Name := 'Model';;
-  TCustomDockManager(ConjoinedDockForm1.Panel.DockManager).TabsPos := hpLeft;
+  TCoolDockManager(ConjoinedDockForm1.Panel.DockManager).TabsPos := hpLeft;
   //ConjoinedDockForm1.ManualDock(Panel1);
-  TCustomDockManager(ConjoinedDockForm1.Panel.DockManager).DockStyle := dsTabs;
+  TCoolDockManager(ConjoinedDockForm1.Panel.DockManager).DockStyle := dsTabs;
   NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
   NewDockForm.ManualDock(ConjoinedDockForm1.Panel);