tvplanit: Add new fields (email1..3, website1..2, address1..2, pathtophoto) to contact records. Update some demos.

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

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

@@ -164,8 +164,12 @@ object Form1: TForm1
           DrawingStyle = dsFlat
           EventDayStyle = []
           EventFont.Height = -12
+          HeadAttributes.Color = clBtnFace
           LineColor = clGray
           TimeFormat = tf12Hour
+          TodayAttributes.Color = clSilver
+          TodayAttributes.BorderPen.Color = clRed
+          TodayAttributes.BorderPen.Width = 3
           OffDayColor = clSilver
           SelectedDayColor = clRed
           ShowEvents = True
@@ -228,11 +232,11 @@ object Form1: TForm1
     end
     object TabSheet2: TTabSheet
       Caption = 'Contacts'
-      ClientHeight = 594
-      ClientWidth = 928
+      ClientHeight = 624
+      ClientWidth = 972
       object VpContactButtonBar1: TVpContactButtonBar
         Left = 0
-        Height = 594
+        Height = 624
         Top = 0
         Width = 40
         DrawingStyle = dsFlat
@@ -241,9 +245,9 @@ object Form1: TForm1
       end
       object VpContactGrid1: TVpContactGrid
         Left = 40
-        Height = 594
+        Height = 624
         Top = 0
-        Width = 888
+        Width = 932
         DataStore = VpBufDSDataStore1
         ControlLink = VpControlLink1
         Color = clWindow
@@ -307,10 +311,13 @@ object Form1: TForm1
     CategoryColorMap.Category8.Description = 'Category 8'
     CategoryColorMap.Category9.Color = clMaroon
     CategoryColorMap.Category9.Description = 'Category 9'
+    HiddenCategories.BackgroundColor = clSilver
+    HiddenCategories.Color = clGray
     EnableEventTimer = True
     PlayEventSounds = True
     AutoConnect = True
     AutoCreate = True
+    DayBuffer = 31
     UseAutoIncFields = False
     left = 136
     top = 192