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

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