Changeset 355 for Docking/CoolDocking/Demo/Testing/UMainForm.pas

Timestamp:

Apr 27, 2012, 8:34:10 AM (13 years ago)

Author:

chronos

Message:

• Modified: Change concept of dock manager items logical visibility vs TControl real visibility. Not visible controls are hidden by manager using TCDManager.DockSiteVisible property. TCDManager provide events OnDockSiteHide and OnDockSiteShow for handling logical visibility.

File:

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

Docking/CoolDocking/Demo/Testing/UMainForm.pas

@@ -27 +27 @@
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
-    PageControl1: TPageControl;
     Panel1: TPanel;
-    TabControl1: TTabControl;
-    TabSheet1: TTabSheet;
-    TabSheet2: TTabSheet;
-    TabSheet3: TTabSheet;
-    TabSheet4: TTabSheet;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
@@ -43 +37 @@
     procedure PageControl1Change(Sender: TObject);
   private
+    procedure DockSiteShowExecute(Sender: TObject);
+    procedure DockSiteHideExecute(Sender: TObject);
   public
     FormIndex: Integer;
@@ -79 +75 @@
   NewDockForm.ManualDock(Form1);
   TCDManager(Panel1.DockManager).DockStyle := dsTabs;
+  NewDockForm.ManualDock(Panel1);
 (*  ConjoinedDockForm1 := TCDManager(Panel1.DockManager).CreateConjoinForm;
   ConjoinedDockForm1.Name := 'Model';;
@@ -109 +106 @@
 end;
 
+procedure TMainForm.DockSiteShowExecute(Sender: TObject);
+begin
+  if Sender is TControl then
+    DebugLog(TControl(Sender).Name + ' Show');
+end;
+
+procedure TMainForm.DockSiteHideExecute(Sender: TObject);
+begin
+  if Sender is TControl then
+    DebugLog(TControl(Sender).Name + ' Hide');
+end;
+
 function TMainForm.NewDockForm: TDockForm;
 begin
@@ -117 +126 @@
   Result.Caption := Result.Name;
   Result.Memo1.Text := Result.Name;
+  TCDManager(Result.DockManager).OnDockSiteHide := DockSiteHideExecute;
+  TCDManager(Result.DockManager).OnDockSiteShow := DockSiteShowExecute;
   //Result.DragKind := dkDock;
   //Result.DragMode := dmAutomatic;