tvplanit: Fix list-index-out-of-bounds error of freshly created NavBar (issue #33670)

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

components/tvplanit/languages/vpsr.fi.po

@@ -452,9 +452,10 @@ msgid "Error: Failure while creating Task."
 msgstr ""
 
 #: vpsr.rsfalse
+#, fuzzy
 msgctxt "vpsr.rsfalse"
 msgid "F"
-msgstr ""
+msgstr "P"
 
 #: vpsr.rsfirstnamelbl
 msgid "First name:"

components/tvplanit/source/vpnavbar.pas

@@ -3071,6 +3071,9 @@ var
   folder: TVpNavFolder;
   TR: TRect;
 begin
+  if FActiveFolder = -1 then
+    exit;
+
   {For container style folders...}
 
   {Hide the containers for all inactive folders}