Changeset 354 for Docking/CoolDocking/UCDMaster.pas

Timestamp:

Apr 26, 2012, 9:12:02 AM (13 years ago)

Author:

chronos

Message:

• Added: CoolDocking text logging support.
• Added: CoolDocking update locking on TCDManager descendants update. This fixes tab disappear if tab with regions style conjoinform was switched to another tab.
• Modified: CoolDocking regions style item layout changed to support aligned forms. Only one region is aligned as alClient. Rest contained regions are aligned to borders.

File:

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

Docking/CoolDocking/UCDMaster.pas

@@ -9 +9 @@
 
 type
+  TLogEvent = procedure (Sender: TObject; Text: string) of object;
+
   { TCDMaster }
 
@@ -16 +18 @@
     FDefaultMoveSpeed: Integer;
     FDefaultTabsPos: THeaderPos;
+    FOnDebugLog: TLogEvent;
     FShowIcons: Boolean;
     FTabsEnabled: Boolean;
@@ -24 +27 @@
     destructor Destroy; override;
   published
+    property OnDebugLog: TLogEvent read FOnDebugLog write FOnDebugLog;
     property TabsEnabled: Boolean read FTabsEnabled write SetTabsEnabled;
     property DefaultTabsPos: THeaderPos read FDefaultTabsPos