Changeset 354 for Docking/CoolDocking/UCDCommon.pas

Timestamp:

Apr 26, 2012, 9:12:02 AM (12 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/UCDCommon.pas (modified) (3 diffs)

Docking/CoolDocking/UCDCommon.pas

@@ -1 +1 @@
 unit UCDCommon;
 
-{$mode objfpc}{$H+}
+{$mode delphi}{$H+}
 
 interface
@@ -76 +76 @@
 function GetUniqueName(BaseName: string): string;
 function HeaderPosToTabPos(HeaderPos: THeaderPos): TTabPosition;
+procedure DebugLog(Text: string); inline;
 
 implementation
@@ -81 +82 @@
 var
   UniqueNameCounter: Integer;
+
+procedure DebugLog(Text: string); inline;
+begin
+  //{$IFDEF DEBUG_COOLDOCK}
+  WriteLn(FormatDateTime('hh:nn:ss.zzz', Time) + ' ' + Text);
+  //{$ENDIF}
+end;
 
 function GetUniqueName(BaseName: string): string;