tvplanit: Add code to zeos datastore to convert old tables (v1.04) to the new structure.

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

components/tvplanit/examples/datastores/zeos/project1.lpi

@@ -10,9 +10,6 @@
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
     </General>
-    <VersionInfo>
-      <StringTable ProductVersion=""/>
-    </VersionInfo>
     <BuildModes Count="1">
       <Item1 Name="Default" Default="True"/>
     </BuildModes>
@@ -65,11 +62,9 @@
       <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
     <Linking>
-      <Options>
-        <Win32>
-          <GraphicApplication Value="True"/>
-        </Win32>
-      </Options>
+      <Debugging>
+        <UseExternalDbgSyms Value="True"/>
+      </Debugging>
     </Linking>
   </CompilerOptions>
   <Debugging>

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

@@ -117,9 +117,6 @@ object Form1: TForm1
           AllDayEventAttributes.BackgroundColor = clWindow
           AllDayEventAttributes.EventBorderColor = clGray
           AllDayEventAttributes.EventBackgroundColor = clBtnFace
-          Align = alClient
-          TabStop = True
-          TabOrder = 0
           DateLabelFormat = 'dddd, mmmm dd, yyyy'
           DayHeadAttributes.Color = clBtnFace
           DayHeadAttributes.DateFormat = 'dddd mmmm, dd'
@@ -132,6 +129,9 @@ object Form1: TForm1
           TimeFormat = tf12Hour
           ShowEventTime = True
           WeekStartsOn = dtMonday
+          Align = alClient
+          TabStop = True
+          TabOrder = 0
         end
         object VpMonthView1: TVpMonthView
           Left = 0
@@ -152,8 +152,12 @@ object Form1: TForm1
           DayNameStyle = dsShort
           DrawingStyle = dsFlat
           EventDayStyle = []
+          HeadAttributes.Color = clBtnFace
           LineColor = clGray
           TimeFormat = tf12Hour
+          TodayAttributes.Color = clSilver
+          TodayAttributes.BorderPen.Color = clRed
+          TodayAttributes.BorderPen.Width = 3
           OffDayColor = clSilver
           SelectedDayColor = clRed
           ShowEvents = True
@@ -247,9 +251,8 @@ object Form1: TForm1
   end
   object ZConnection1: TZConnection
     ControlsCodePage = cCP_UTF8
-    AutoEncodeStrings = False
     Properties.Strings = (
-      'AutoEncodeStrings='
+      'AutoEncodeStrings=ON'
     )
     Port = 0
     left = 136
@@ -276,10 +279,11 @@ 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 = False
-    AutoCreate = False
+    Daybuffer = 31
     left = 136
     top = 200
   end
@@ -309,4 +313,8 @@ object Form1: TForm1
     left = 136
     top = 335
   end
+  object ZTable1: TZTable
+    left = 136
+    top = 536
+  end
 end

components/tvplanit/examples/datastores/zeos/unit1.pas

@@ -7,7 +7,8 @@ interface
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
   StdCtrls, ComCtrls, VpBaseDS, VpZeosDs, VpDayView, VpWeekView, VpTaskList,
-  VpContactGrid, VpMonthView, VpResEditDlg, VpContactButtons, ZConnection;
+  VpContactGrid, VpMonthView, VpResEditDlg, VpContactButtons, ZConnection,
+  ZDataset;
 
 type
 
@@ -35,6 +36,7 @@ type
     VpWeekView1: TVpWeekView;
     VpZeosDatastore1: TVpZeosDatastore;
     ZConnection1: TZConnection;
+    ZTable1: TZTable;
     procedure BtnNewResClick(Sender: TObject);
     procedure BtnEditResClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);