tvplanit: Add a string as a second datasource to the TVpJSONDatastore (see forum https://forum.lazarus.freepascal.org/index.php/topic,42712.msg298324)

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

components/tvplanit/examples/datastores/json/unit1.lfm

@@ -7,7 +7,7 @@ object Form1: TForm1
   ClientHeight = 686
   ClientWidth = 980
   OnCreate = FormCreate
-  LCLVersion = '1.9.0.0'
+  LCLVersion = '2.1.0.0'
   object Panel1: TPanel
     Left = 0
     Height = 33
@@ -170,7 +170,6 @@ object Form1: TForm1
           Align = alBottom
           TabStop = True
           TabOrder = 1
-          KBNavigation = True
           DateLabelFormat = 'mmmm yyyy'
           DayHeadAttributes.Font.Height = -13
           DayHeadAttributes.Font.Name = 'Tahoma'
@@ -181,6 +180,7 @@ object Form1: TForm1
           EventDayStyle = []
           EventFont.Height = -12
           HeadAttributes.Color = clBtnFace
+          KBNavigation = True
           OffDayColor = clSilver
           SelectedDayColor = clRed
           ShowEvents = True
@@ -295,7 +295,7 @@ object Form1: TForm1
     top = 264
   end
   object VpResourceEditDialog1: TVpResourceEditDialog
-    Version = 'v1.08'
+    Version = 'v1.12'
     DataStore = VpJSONDataStore1
     Options = []
     Placement.Position = mpCenter
@@ -335,6 +335,7 @@ object Form1: TForm1
     HiddenCategories.Color = clGray
     EnableEventTimer = True
     PlayEventSounds = True
+    OnDisconnect = VpJSONDataStore1Disconnect
     FileName = 'data.json'
     left = 136
     top = 192