From 998f2aa16461f73918d3b7f06a1c0db4dc623606 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 2 Jul 2016 08:56:40 +0000
Subject: [PATCH] tvplanit: Avoid a 3d bevelled border around contact grid in
 flat drawing mode.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4891 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpcontactgridpainter.pas | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/components/tvplanit/source/vpcontactgridpainter.pas b/components/tvplanit/source/vpcontactgridpainter.pas
index c907930b6..16946f083 100644
--- a/components/tvplanit/source/vpcontactgridpainter.pas
+++ b/components/tvplanit/source/vpcontactgridpainter.pas
@@ -109,13 +109,11 @@ begin
   dec(R.Bottom, 1);
   case FContactGrid.DrawingStyle of
     dsFlat:
-      begin  { draw an outer and inner bevel }
-        DrawBevelRect(RenderCanvas, R, BevelShadow, BevelHighlight);
-        InflateRect(R, -1, -1);
-        DrawBevelRect(RenderCanvas, R, BevelHighlight, BevelShadow);
+      begin  { Draw a simple border rectangle }
+        DrawBevelRect(RenderCanvas, R, BevelShadow, BevelShadow);
       end;
     ds3d:
-      begin  { draw a 3d bevel }
+      begin  { Draw a 3d bevel }
         DrawBevelRect(RenderCanvas, R, BevelShadow, BevelHighlight);
         InflateRect(R, -1, -1);
         drawBevelRect(RenderCanvas, R, BevelDarkShadow, BevelFace);