From 3c9f3f57e491d09f4e0ab4bef3fb419e606fbaab Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 6 Jul 2016 08:17:28 +0000
Subject: [PATCH] tvplanit: Fix Dayview crashing IDE when inserted to form

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4920 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpdayview.pas        | 2 +-
 components/tvplanit/source/vpdayviewpainter.pas | 2 --
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/components/tvplanit/source/vpdayview.pas b/components/tvplanit/source/vpdayview.pas
index 93a2e4093..69828cd11 100644
--- a/components/tvplanit/source/vpdayview.pas
+++ b/components/tvplanit/source/vpdayview.pas
@@ -418,7 +418,7 @@ type
       UseGran: TVpGranularity);
     procedure PaintToCanvas (ACanvas: TCanvas; ARect: TRect; Angle: TVpRotationAngle;
       ADate: TDateTime; StartHour, EndHour: TVpHours; UseGran: TVpGranularity);
-    procedure RenderToCanvas (RenderCanvas: TCanvas; RenderIn: TRect;
+    procedure RenderToCanvas(RenderCanvas: TCanvas; RenderIn: TRect;
       Angle: TVpRotationAngle; Scale: Extended; RenderDate: TDateTime;
       StartLine, StopLine: Integer; UseGran: TVpGranularity; DisplayOnly: Boolean); override;
 
diff --git a/components/tvplanit/source/vpdayviewpainter.pas b/components/tvplanit/source/vpdayviewpainter.pas
index d9c0d66f3..cc5eac43d 100644
--- a/components/tvplanit/source/vpdayviewpainter.pas
+++ b/components/tvplanit/source/vpdayviewpainter.pas
@@ -305,10 +305,8 @@ begin
   // Initialize the rectangle to be used for all-day events
   ADEventsRect := InitAllDayEventsRect;
 
-  {
   if (FDayView.DataStore = nil) or (FDayView.DataStore.Resource = nil) then
     Exit;
-  }
 
   // Collect all of the events for this range and determine the maximum
   // number of all day events for the range of days covered by the control.