From 58b8bc540989261bb6539197553a3953e2979956 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 12 Jun 2016 09:35:53 +0000
Subject: [PATCH] tvplanit: Fix slowing down of DayView (by DonAlfredo)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4723 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpcanvasutils.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/components/tvplanit/source/vpcanvasutils.pas b/components/tvplanit/source/vpcanvasutils.pas
index 8dffef071..b4d104088 100644
--- a/components/tvplanit/source/vpcanvasutils.pas
+++ b/components/tvplanit/source/vpcanvasutils.pas
@@ -1799,6 +1799,7 @@ var
 begin
   Result := False;
   Done   := False;
+  GetRgnBox (ARegion, @WorkRect);
   while not Done do begin
     if HPos > WorkRect.Right then begin 
       HPos := WorkRect.Left;