Changeset 359 for Docking/CoolDocking/UCDManager.pas

Timestamp:

May 4, 2012, 12:27:25 PM (13 years ago)

Author:

chronos

Message:

• Fixed: Regions size update on Control visible state change.
• Added: Support for custom center region selection. Surrounding regions are aligned to edges and keep size on docksite resize.

File:

• Docking/CoolDocking/UCDManager.pas (modified) (3 diffs)

Docking/CoolDocking/UCDManager.pas

@@ -8 +8 @@
   Classes, SysUtils, UCDCommon, Controls, Contnrs, Dialogs,
   UCDPopupMenu, LCLType, LCLIntf, LMessages, Graphics, Buttons,
-  UCDConjoinForm, Menus, StdCtrls, ExtCtrls, Forms;
+  UCDConjoinForm, Menus, ExtCtrls, Forms;
 
 const
@@ -57 +57 @@
     Header: TCDHeader;
     ControlPanel: TPanel;
+    DockItem: TCDManagerItem;
     property HeaderPos: THeaderPos read FHeaderPos write SetHeaderPos;
     property HeaderVisible: Boolean read GetHeaderVisible write SetHeaderVisible;
@@ -357 +358 @@
   FDockSiteVisible := AValue;
   SetVisible(FDockSiteVisible);
-  if Assigned(FOnDockSiteHide) and not AValue then
+  if Assigned(FOnDockSiteHide) and (not FDockSiteVisible) then
     FOnDockSiteHide(Self);
-  if Assigned(FOnDockSiteShow) and AValue then
+  if Assigned(FOnDockSiteShow) and FDockSiteVisible then
     FOnDockSiteShow(Self);
 end;