From 523416cafa2cac2591b57691261b284e11fc1d72 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 3 Jul 2016 09:51:12 +0000
Subject: [PATCH] tvplanit: Fix painting of borderless contact header line

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

diff --git a/components/tvplanit/source/vpcontactgridpainter.pas b/components/tvplanit/source/vpcontactgridpainter.pas
index 15ee499c8..9df4a3f88 100644
--- a/components/tvplanit/source/vpcontactgridpainter.pas
+++ b/components/tvplanit/source/vpcontactgridpainter.pas
@@ -366,7 +366,8 @@ begin
           TmpBmp.Canvas.Brush.Color := RealContactHeadAttrColor;
           TmpBmp.Canvas.FillRect(HeadRect);
           { paint the header cell's border }
-          if FContactGrid.ContactHeadAttributes.Bordered then begin
+          if FContactGrid.ContactHeadAttributes.Bordered and (FContactGrid.DrawingStyle <> dsNoBorder)
+          then begin
             TmpBmp.Canvas.Pen.Style := psSolid;
             {$IFDEF VERSION5}
             TmpBmp.Canvas.Rectangle(HeadRect);