tvplanit: Cosmetic changes and some refactoring in unit VpPrtFmt

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

components/tvplanit/languages/demo.de.po

@@ -31,6 +31,10 @@ msgstr "Turbo Power VisualPlanIt Demo"
 msgid "Language"
 msgstr "Sprache"
 
+#: tmainform.label2.caption
+msgid "Visible days"
+msgstr ""
+
 #: tmainform.rballtasks.caption
 msgid "All tasks"
 msgstr "Alle Aufgaben"

components/tvplanit/languages/demo.po

@@ -21,6 +21,10 @@ msgstr ""
 msgid "Language"
 msgstr ""
 
+#: tmainform.label2.caption
+msgid "Visible days"
+msgstr ""
+
 #: tmainform.rballtasks.caption
 msgid "All tasks"
 msgstr ""

components/tvplanit/source/vpdayview.pas

@@ -2080,9 +2080,7 @@ end;
 
 procedure TVpDayView.SetNumDays(Value: Integer);
 begin
-  if (Value <> FNumDays)
+  if (Value <> FNumDays) and (Value > 0) and (Value < 31) then begin
-  and (Value > 0)
-  and (Value < 31) then begin
     FNumDays := Value;
     SetLength(dvColRectArray, FNumDays);
     SetTimeIntervals(Granularity);
@@ -3796,6 +3794,7 @@ var
       { Clean Up }
     finally
       try
+        SetLength(EventArray, 0);
         FreeBitmaps;
       finally
         { restore canvas color and font }
@@ -3807,7 +3806,7 @@ var
         OldBrush.Free;
       end;
     end;
-  end; // DrawEvents (begins at line 2832 . OMG: 1000 lines per local proc!!!)
+  end; // DrawEvents (begins at line 2832 . OMG - 1000 lines per local proc!!!)
 
   procedure DrawCells(R: TRect; ColDate: TDateTime; Col: Integer);
   var