From e93ddb5320dc7c2fca02b70565e91cfcc489c4f2 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 15 Jul 2016 14:01:29 +0000
Subject: [PATCH] tvplanit: Fix calculation of scrollbar width for
 DayViewPainter

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4979 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/examples/fulldemo/demomain.lfm | 4 ++--
 components/tvplanit/source/vpdayviewpainter.pas    | 3 ++-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/components/tvplanit/examples/fulldemo/demomain.lfm b/components/tvplanit/examples/fulldemo/demomain.lfm
index 8d2420b16..4b1fb4716 100644
--- a/components/tvplanit/examples/fulldemo/demomain.lfm
+++ b/components/tvplanit/examples/fulldemo/demomain.lfm
@@ -25,9 +25,9 @@ object MainForm: TMainForm
       Height = 532
       Top = 48
       Width = 780
-      ActivePage = TabSettings
+      ActivePage = TabTasks
       Align = alClient
-      TabIndex = 4
+      TabIndex = 1
       TabOrder = 0
       object TabEvents: TTabSheet
         Caption = 'Events'
diff --git a/components/tvplanit/source/vpdayviewpainter.pas b/components/tvplanit/source/vpdayviewpainter.pas
index 9fa667ac2..42ae527f8 100644
--- a/components/tvplanit/source/vpdayviewpainter.pas
+++ b/components/tvplanit/source/vpdayviewpainter.pas
@@ -1736,7 +1736,8 @@ begin
       if StartLine < 0 then
         StartLine := FDayView.TopLine;
       if VisibleLines < LineCount then
-        ScrollbarOffset := 14;
+        ScrollbarOffset := GetSystemMetrics(SM_CYHSCROLL);
+//        ScrollbarOffset := 14;
     end;
 
   Rgn := CreateRectRgn(RenderIn.Left, RenderIn.Top, RenderIn.Right, RenderIn.Bottom);