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

Timestamp:

Sep 17, 2010, 4:16:15 PM (14 years ago)

Author:

george

Message:

• Přidáno: Částečná podpora pro volitelné umístění záložek.
• Přidáno: Částečná podpora pro vysouvatelná okna v záložkách.

File:

• DockManager/Lazarus/Demo/UMainForm.pas (modified) (2 diffs)

DockManager/Lazarus/Demo/UMainForm.pas

@@ -17 +17 @@
     CustomDockMaster1: TCustomDockMaster;
     Panel1: TPanel;
+    TabControl1: TTabControl;
     procedure Button1Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -57 +58 @@
   ConjoinedDockForm1 := TCustomDockManager(Panel1.DockManager).CreateContainer(alRight);
   ConjoinedDockForm1.Name := 'Model';;
+  TCustomDockManager(ConjoinedDockForm1.Panel.DockManager).TabsPos := hpLeft;
   //ConjoinedDockForm1.ManualDock(Panel1);
   TCustomDockManager(ConjoinedDockForm1.Panel.DockManager).DockStyle := dsTabs;