From 44ec7c690bd7f0df3807e55d332bda854c8e0e1b Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 2 May 2018 04:49:38 +0000
Subject: [PATCH] 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 | 3 ++-
 components/tvplanit/source/vpnavbar.pas  | 3 +++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/components/tvplanit/languages/vpsr.fi.po b/components/tvplanit/languages/vpsr.fi.po
index 39cafe261..1e241808a 100644
--- a/components/tvplanit/languages/vpsr.fi.po
+++ b/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:"
diff --git a/components/tvplanit/source/vpnavbar.pas b/components/tvplanit/source/vpnavbar.pas
index be74f22ed..65c8fbe5b 100644
--- a/components/tvplanit/source/vpnavbar.pas
+++ b/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}