Changeset 217 for Docking/CoolDocking/UCDCommon.pas

Timestamp:

Mar 22, 2011, 11:32:28 AM (13 years ago)

Author:

george

Message:

• Fixed: If control docked to panel owned by main form then it was possible to redock main form to conjoin form.
• Modified: Header title is now painted to canvas instead of use of TLabel. This will be necessary to draw rotated text later.
• Added: Length of header title is now reduced to not overlap to header buttons area.

File:

• Docking/CoolDocking/UCDCommon.pas (modified) (2 diffs)

Docking/CoolDocking/UCDCommon.pas

@@ -75 +75 @@
 
 function GetUniqueName(BaseName: string): string;
+function HeaderPosToTabPos(HeaderPos: THeaderPos): TTabPosition;
 
 implementation
@@ -87 +88 @@
 end;
 
+function HeaderPosToTabPos(HeaderPos: THeaderPos): TTabPosition;
+begin
+  case HeaderPos of
+    hpBottom: Result := tpBottom;
+    hpLeft: Result := tpLeft;
+    hpTop: Result := tpTop;
+    hpRight: Result := tpRight;
+    hpAuto: Result := tpTop;
+  end;
+end;
 
 { TCDManagerBase }