tvplanit: Fix WeekView sometimes not showing "today" at program start.

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

components/tvplanit/source/vpweekview.pas

@@ -421,7 +421,6 @@ begin
   wvPainting := false;
   FColor := clWindow;
   FLineColor := clGray;
-  FActiveDate := Now;
   wvStartDate := trunc(GetStartOfWeek(Now, FWeekStartsOn));
   FTimeFormat := tf12Hour;
   FDateLabelFormat := 'dddd, mmmm dd, yyyy';
@@ -452,6 +451,7 @@ begin
   FAllDayEventAttr.Font.Assign (Font);
 
   wvHookUp;
+  SetActiveDate(Now);
 end;
 {=====}