pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix Dayview crashing IDE when inserted to form

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4920 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-06 08:17:28 +00:00
parent 7cfd38f300
commit 3c9f3f57e4
2 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/tvplanit/source/vpdayview.pas
View File

@ -418,7 +418,7 @@ type
UseGran: TVpGranularity); UseGran: TVpGranularity);
procedure PaintToCanvas (ACanvas: TCanvas; ARect: TRect; Angle: TVpRotationAngle; procedure PaintToCanvas (ACanvas: TCanvas; ARect: TRect; Angle: TVpRotationAngle;
ADate: TDateTime; StartHour, EndHour: TVpHours; UseGran: TVpGranularity); 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; Angle: TVpRotationAngle; Scale: Extended; RenderDate: TDateTime;
StartLine, StopLine: Integer; UseGran: TVpGranularity; DisplayOnly: Boolean); override; StartLine, StopLine: Integer; UseGran: TVpGranularity; DisplayOnly: Boolean); override;

2
components/tvplanit/source/vpdayviewpainter.pas
View File

@ -305,10 +305,8 @@ begin
// Initialize the rectangle to be used for all-day events // Initialize the rectangle to be used for all-day events
ADEventsRect := InitAllDayEventsRect; ADEventsRect := InitAllDayEventsRect;
{
if (FDayView.DataStore = nil) or (FDayView.DataStore.Resource = nil) then if (FDayView.DataStore = nil) or (FDayView.DataStore.Resource = nil) then
Exit; Exit;
}
// Collect all of the events for this range and determine the maximum // 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. // number of all day events for the range of days covered by the control.