tvplanit: Example for TBufDataset datastore.

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

components/tvplanit/source/vpbufds.pas

@@ -50,6 +50,7 @@ type
   published
     property Directory: String read FDirectory write SetDirectory;
     property AutoConnect;
+    property AutoCreate;
   end;
 
 
@@ -183,7 +184,7 @@ begin
 
   { Connecting or disconnecting? }
   if Value then begin
-    CreateTables;
+    if AutoCreate then CreateTables;
     OpenTables;
     Load;
   end;

components/tvplanit/source/vpsqlite3ds.pas

@@ -47,7 +47,7 @@ type
 
     // inherited
     property AutoConnect;
-    property AutoCreate default true;
+    property AutoCreate;
     property Connected;
   end;
 

components/tvplanit/source/vpzeosds.pas

@@ -43,7 +43,7 @@ type
 
     // inherited
     property AutoConnect;
-    property AutoCreate default true;
+    property AutoCreate;
     property Connected;
   end;