From 3e1a370a4b9e11e18069307497e795827d2594c7 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 9 Jun 2016 22:52:55 +0000
Subject: [PATCH] tvplanit: Avoid header text of week view to overlap with spin
 buttons.

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

diff --git a/components/tvplanit/source/vpweekview.pas b/components/tvplanit/source/vpweekview.pas
index 5df4813c1..7be58ad8f 100644
--- a/components/tvplanit/source/vpweekview.pas
+++ b/components/tvplanit/source/vpweekview.pas
@@ -126,7 +126,7 @@ type
     FDateLabelFormat   : string;
     FDayHeadAttributes : TVpDayHeadAttr;
     FDrawingStyle      : TVpDrawingStyle;
-    FaActiveEvent       : TVpEvent;
+    FaActiveEvent      : TVpEvent;
     FHeadAttr          : TVpWvHeadAttributes;
     FEventFont         : TFont;
     FLineColor         : TColor;
@@ -1075,7 +1075,7 @@ var
                                      RenderCanvas.TextWidth (HeadStr)) div 2,
                                      HeadRect.Top)
     else
-      HeadTextRect.TopLeft := Point (RealLeft + 30 + TextMargin * 2,
+      HeadTextRect.TopLeft := Point (RealLeft + Trunc(wvHeaderHeight * 0.8) * 2 + TextMargin * 2,
                                      HeadRect.Top);
     HeadTextRect.BottomRight := HeadRect.BottomRight;
     { Fix Header String }