tvplanit: Beginning to integrate TVpGanttView in the tvplanit printing system. Still a long way to go...

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

components/tvplanit/source/vpedelem.lfm

@@ -1,6 +1,6 @@
 object frmEditElement: TfrmEditElement
   Left = 288
-  Height = 447
+  Height = 466
   Top = 321
   Width = 473
   HorzScrollBar.Page = 378
@@ -8,7 +8,7 @@ object frmEditElement: TfrmEditElement
   AutoSize = True
   BorderStyle = bsDialog
   Caption = 'Edit Element'
-  ClientHeight = 447
+  ClientHeight = 466
   ClientWidth = 473
   OnCreate = FormCreate
   OnShow = FormShow
@@ -16,7 +16,7 @@ object frmEditElement: TfrmEditElement
   object gbVisual: TGroupBox
     Left = 12
     Height = 144
-    Top = 196
+    Top = 215
     Width = 449
     Align = alTop
     AutoSize = True
@@ -359,7 +359,7 @@ object frmEditElement: TfrmEditElement
   object gbCaption: TGroupBox
     Left = 12
     Height = 54
-    Top = 352
+    Top = 371
     Width = 449
     Align = alTop
     AutoSize = True
@@ -466,7 +466,7 @@ object frmEditElement: TfrmEditElement
   object Panel2: TPanel
     Left = 12
     Height = 51
-    Top = 133
+    Top = 152
     Width = 451
     Align = alTop
     AutoSize = True
@@ -564,7 +564,7 @@ object frmEditElement: TfrmEditElement
   object ButtonPanel: TPanel
     Left = 0
     Height = 25
-    Top = 414
+    Top = 433
     Width = 461
     Align = alTop
     AutoSize = True
@@ -613,7 +613,7 @@ object frmEditElement: TfrmEditElement
   end
   object ItemTypePanel: TPanel
     Left = 12
-    Height = 78
+    Height = 97
     Top = 43
     Width = 451
     Align = alTop
@@ -622,12 +622,12 @@ object frmEditElement: TfrmEditElement
     BorderSpacing.Top = 12
     BorderSpacing.Right = 10
     BevelOuter = bvNone
-    ClientHeight = 78
+    ClientHeight = 97
     ClientWidth = 451
     TabOrder = 1
     object rgItemType: TRadioGroup
       Left = 0
-      Height = 78
+      Height = 97
       Top = 0
       Width = 451
       Align = alClient
@@ -641,10 +641,10 @@ object frmEditElement: TfrmEditElement
       ChildSizing.ShrinkHorizontal = crsScaleChilds
       ChildSizing.ShrinkVertical = crsScaleChilds
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
-      ChildSizing.ControlsPerLine = 4
-      ClientHeight = 58
+      ChildSizing.ControlsPerLine = 3
+      ClientHeight = 77
       ClientWidth = 447
-      Columns = 4
+      Columns = 3
       ItemIndex = 0
       Items.Strings = (
         'DayView'
@@ -655,6 +655,7 @@ object frmEditElement: TfrmEditElement
         'Caption'
         'Tasks'
         'Contacts'
+        'GanttView'
       )
       OnClick = rgItemTypeClick
       ParentFont = False