TvPlanIt: Activate dayview drag-and-drop in the examples/datastores demos.

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

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

@@ -69,6 +69,9 @@
       </Checks>
     </CodeGeneration>
     <Linking>
+      <Debugging>
+        <DebugInfoType Value="dsDwarf2Set"/>
+      </Debugging>
       <Options>
         <Win32>
           <GraphicApplication Value="True"/>

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

@@ -8,7 +8,7 @@ object Form1: TForm1
   ClientWidth = 895
   OnCreate = FormCreate
   OnDestroy = FormDestroy
-  LCLVersion = '2.1.0.0'
+  LCLVersion = '2.3.0.0'
   object Panel1: TPanel
     Left = 0
     Height = 33
@@ -91,6 +91,7 @@ object Form1: TForm1
         AllDayEventAttributes.BackgroundColor = clBtnShadow
         AllDayEventAttributes.EventBorderColor = cl3DDkShadow
         AllDayEventAttributes.EventBackgroundColor = clBtnFace
+        AllowDragAndDrop = True
         ShowEventTimes = False
         DrawingStyle = dsFlat
         TimeSlotColors.Active = clWhite
@@ -233,11 +234,11 @@ object Form1: TForm1
     end
     object TabSheet2: TTabSheet
       Caption = 'Contacts'
-      ClientHeight = 594
-      ClientWidth = 928
+      ClientHeight = 625
+      ClientWidth = 887
       object VpContactButtonBar1: TVpContactButtonBar
         Left = 0
-        Height = 594
+        Height = 625
         Top = 0
         Width = 40
         DrawingStyle = dsFlat
@@ -246,9 +247,9 @@ object Form1: TForm1
       end
       object VpContactGrid1: TVpContactGrid
         Left = 40
-        Height = 594
+        Height = 625
         Top = 0
-        Width = 888
+        Width = 847
         DataStore = VpFirebirdDatastore1
         ControlLink = VpControlLink1
         Color = clWindow
@@ -267,17 +268,13 @@ object Form1: TForm1
   end
   object VpControlLink1: TVpControlLink
     DataStore = VpFirebirdDatastore1
-    Printer.BottomMargin = 0
     Printer.DayStart = h_08
     Printer.DayEnd = h_05
     Printer.Granularity = gr30Min
-    Printer.LeftMargin = 0
     Printer.MarginUnits = imAbsolutePixel
     Printer.PrintFormats = <>
-    Printer.RightMargin = 0
-    Printer.TopMargin = 0
-    left = 136
-    top = 264
+    Left = 136
+    Top = 264
   end
   object VpResourceEditDialog1: TVpResourceEditDialog
     Version = 'v1.12'
@@ -288,15 +285,15 @@ object Form1: TForm1
     Placement.Left = 10
     Placement.Height = 250
     Placement.Width = 400
-    left = 136
-    top = 335
+    Left = 136
+    Top = 335
   end
   object SQLTransaction1: TSQLTransaction
     Active = False
     Action = caCommitRetaining
     Database = IBConnection1
-    left = 256
-    top = 120
+    Left = 256
+    Top = 120
   end
   object VpFirebirdDatastore1: TVpFirebirdDatastore
     CategoryColorMap.Category0.Color = clNavy
@@ -327,8 +324,8 @@ object Form1: TForm1
     AutoConnect = False
     AutoCreate = False
     DayBuffer = 31
-    left = 136
-    top = 200
+    Left = 136
+    Top = 200
   end
   object IBConnection1: TIBConnection
     Connected = False
@@ -336,13 +333,15 @@ object Form1: TForm1
     KeepConnection = False
     Transaction = SQLTransaction1
     CheckTransactionParams = False
-    left = 136
-    top = 120
+    UseConnectionCharSetIfNone = False
+    Left = 136
+    Top = 120
   end
   object SQLQuery1: TSQLQuery
     FieldDefs = <>
     Params = <>
-    left = 149
-    top = 512
+    Macros = <>
+    Left = 149
+    Top = 512
   end
 end