Changeset 48 for DockManager/Lazarus/Demo/UMainForm.pas

Timestamp:

Sep 17, 2010, 3:34:31 PM (14 years ago)

Author:

george

Message:

• Přidáno: Balíček Lazarusu pro snadnější instalaci. Součástí je také komponenta globálního správce ukotvení.
• Přidáno: Kontextové menu pro doplňující volby ukotvení oken. Nyní možnost přepínat mezi zobrazením seznamu a záložek.

Location:

DockManager/Lazarus

Files:

• . (modified) (1 prop)
• Demo/UMainForm.pas (modified) (3 diffs)

DockManager/Lazarus/Demo/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, ExtCtrls, Buttons, UCustomDockManager, UDockForm;
+  ComCtrls, ExtCtrls, Buttons, Menus, UCustomDockManager, UDockForm;
 
 type
@@ -15 +15 @@
   TMainForm = class(TForm)
     Button1: TButton;
+    CustomDockMaster1: TCustomDockMaster;
     Panel1: TPanel;
-    TabControl1: TTabControl;
     procedure Button1Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -54 +54 @@
 begin
   NewDockForm.ManualDock(Panel1);
-  NewDockForm.ManualDock(Panel1, nil, alBottom);
-  ConjoinedDockForm1 := TCustomDockManager(TForm(DockForms[1]).DockManager).CreateContainer;
+//  NewDockForm.ManualDock(Panel1, nil, a);
+  ConjoinedDockForm1 := TCustomDockManager(Panel1.DockManager).CreateContainer(alRight);
   ConjoinedDockForm1.Name := 'Model';;
-  ConjoinedDockForm1.ManualDock(Panel1);
+  //ConjoinedDockForm1.ManualDock(Panel1);
   TCustomDockManager(ConjoinedDockForm1.Panel.DockManager).DockStyle := dsTabs;
   NewDockForm.ManualDock(ConjoinedDockForm1.Panel);