tvplanit: Clear TVpMonthView's event array before painting. See https://forum.lazarus.freepascal.org/index.php/topic,62366.msg471573.html

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8713 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/source/vpmonthview.pas

@@ -278,6 +278,7 @@ type
     procedure PaintToCanvas(ACanvas: TCanvas; ARect: TRect; Angle: TVpRotationAngle;
       ADate: TDateTime);
     }
+    procedure ClearEventArray;
     procedure RenderToCanvas(RenderCanvas: TCanvas; RenderIn: TRect;
       Angle: TVpRotationAngle; Scale: Extended; RenderDate: TDateTime;
       StartLine, StopLine: Integer; UseGran: TVpGranularity;
@@ -606,6 +607,14 @@ begin
     Result := descrStr;
 end;
 
+procedure TVpMonthView.ClearEventArray;
+var
+  I: Integer;
+begin
+  for I := 0 to High(mvEventArray) do
+    mvEventArray[I] := Default(TVpEventRec);
+end;
+
 procedure TVpMonthView.LoadLanguage;
 var
   item: TMenuItem;