From 2200cdbece44abdb3aff137be7091c27f3b3c50c Mon Sep 17 00:00:00 2001
From: georgebou <georgebou@hotmail.com>
Date: Wed, 29 Jan 2014 18:26:37 +0200
Subject: [PATCH] Update anchordocking.pas

Hi.

I have added a new header style that draws 2 rectangles and make the header more visible.
I use it for myself, so i thought that maybe some others would find it useful.
---
 components/anchordocking/anchordocking.pas | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

diff --git a/components/anchordocking/anchordocking.pas b/components/anchordocking/anchordocking.pas
index 2a2a873f737..755096956cc 100644
--- a/components/anchordocking/anchordocking.pas
+++ b/components/anchordocking/anchordocking.pas
@@ -382,7 +382,8 @@   TAnchorDockManagerClass = class of TAnchorDockManager;
     adhsFrame3D,
     adhsLine,
     adhsLines,
-    adhsPoints
+    adhsPoints,
+    adhsFrameRect
     );
 const
   adhsDefault = adhsFrame3D;
@@ -655,7 +656,8 @@   TAnchorDockMaster = class(TComponent)
     'Frame3D',
     'Line',
     'Lines',
-    'Points'
+    'Points',
+    'FrameRect'
     );
 
 function StrToADHeaderStyle(const s: string): TADHeaderStyle;
@@ -774,6 +776,19 @@ procedure DrawADHeader(Canvas: TCanvas; Style: TADHeaderStyle; r: TRect;
         ly := ly - 4;
       end;
     end;
+    adhsFrameRect:
+        if Horizontal then begin
+           Canvas.Pen.Color:=clgray;
+           Canvas.Rectangle( r.Left+2, r.Top, r.Right-0, r.Bottom);
+           Canvas.Pen.Color:=clltgray;
+           Canvas.Rectangle( r.Left+2+2, r.Top+2, r.Right-0-2, r.Bottom-2);
+        end
+        else begin
+          Canvas.Pen.Color:=clgray;
+          Canvas.Rectangle( r.Left, r.Top+0, r.Right, r.Bottom-2);
+          Canvas.Pen.Color:=clltgray;
+          Canvas.Rectangle( r.Left+2, r.Top+0+2, r.Right-2, r.Bottom-2-2);
+        end;
   end;
 end;
 
@@ -6027,4 +6042,3 @@ finalization
   FreeAndNil(DockMaster);
 
 end.
-