pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix painting of borderless contact header line

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4902 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-03 09:51:12 +00:00
parent cf727df5c0
commit 523416cafa
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/tvplanit/source/vpcontactgridpainter.pas
View File

@ -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);