From a4f762c4d4a6c6700c4d56743f55180212e6e29e Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 22 Jun 2016 13:37:24 +0000
Subject: [PATCH] tvplanit: Fix BufDSDatastore to create DB directory if
 AutoCreate is true.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4802 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/languages/demo.de.po | 4 ----
 components/tvplanit/languages/demo.po    | 4 ----
 components/tvplanit/source/vpbufds.pas   | 7 ++++++-
 3 files changed, 6 insertions(+), 9 deletions(-)

diff --git a/components/tvplanit/languages/demo.de.po b/components/tvplanit/languages/demo.de.po
index 9c63344a9..7426b727f 100644
--- a/components/tvplanit/languages/demo.de.po
+++ b/components/tvplanit/languages/demo.de.po
@@ -27,10 +27,6 @@ msgstr "Turbo Power VisualPlanIt Demo"
 msgid "Language"
 msgstr "Sprache"
 
-#: tmainform.label2.caption
-msgid "Number of days"
-msgstr ""
-
 #: tmainform.rballtasks.caption
 msgid "All tasks"
 msgstr "Alle Aufgaben"
diff --git a/components/tvplanit/languages/demo.po b/components/tvplanit/languages/demo.po
index 7233631fc..9df94b4bb 100644
--- a/components/tvplanit/languages/demo.po
+++ b/components/tvplanit/languages/demo.po
@@ -17,10 +17,6 @@ msgstr ""
 msgid "Language"
 msgstr ""
 
-#: tmainform.label2.caption
-msgid "Number of days"
-msgstr ""
-
 #: tmainform.rballtasks.caption
 msgid "All tasks"
 msgstr ""
diff --git a/components/tvplanit/source/vpbufds.pas b/components/tvplanit/source/vpbufds.pas
index dcac80890..cd96d9a41 100644
--- a/components/tvplanit/source/vpbufds.pas
+++ b/components/tvplanit/source/vpbufds.pas
@@ -99,7 +99,12 @@ begin
     dir := IncludeTrailingPathDelimiter(FDirectory);
   dir := ExpandFileName(dir);
   if not DirectoryExistsUTF8(dir) then
-    raise Exception.CreateFmt('Directory "%s" for tables does not exist.', [dir]);
+  begin
+    if AutoCreate then
+      CreateDir(dir)
+    else
+      raise Exception.CreateFmt('Directory "%s" for tables does not exist.', [dir]);
+  end;
 
   if ATableName = ResourceTableName then
     table := FResourceTable